這篇文章主要介紹了VB和VB.NET有什么區(qū)別，具有一定借鑒價(jià)值，感興趣的朋友可以參考下，希望大家閱讀完這篇文章之后大有收獲，下面讓小編帶著大家一起了解一下。

我們提供的服務(wù)有：成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作、微信公眾號(hào)開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、興安ssl等。為上1000家企事業(yè)單位解決了網(wǎng)站和推廣的問(wèn)題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學(xué)管理、有技術(shù)的興安網(wǎng)站制作公司

VB經(jīng)過(guò)長(zhǎng)時(shí)間的發(fā)展，現(xiàn)在大部分人都用VB.NET了，接到一個(gè)寫模擬系統(tǒng)接口的任務(wù)，預(yù)備先簡(jiǎn)單的實(shí)現(xiàn)他，就用VB，傳統(tǒng)的讀出寫入就好，隨便寫了一個(gè)例子，之后用vb.net升級(jí)了一下。原VB情況如下，2個(gè)btn，一個(gè)是打開文件，把內(nèi)容讀到一個(gè)txt1，一個(gè)btn，做一個(gè)簡(jiǎn)單的移位加密，把加密之后的內(nèi)容讀到txt2 ，頁(yè)面上放了一個(gè)commanddialog

VB和VB.NET比較代碼如下：

PrivateSubcmdopenfile_Click()  cdlfile.ShowOpen  Ifcdlfile.FileName<>vbNullStringThen  TxtSource.Text=vbNullString Opencdlfile.FileNameForInputAs#1  DoUntilEOF(1)  LineInput#1,strline  TxtSourceTxtSource.Text=TxtSource.Text+strline+vbCrLf  Loop  Close#1  EndIf  EndSub   PrivateSubcmdsavefile_Click()  cdlfile.ShowSave  Ifcdlfile.FileName<>vbNullStringThen  Opencdlfile.FileNameForOutputAs#1  Print#1,TxtTarget.Text  Close#1  EndIf  EndSub

加密為：

PrivateSubcmdcode_Click()  strSouce=TxtSource.Text  strTarget=vbNullString intLength=Len(Trim(strSouce))  Fori=1TointLength strtemp=Mid(strSouce,i,1)  If(strtemp>="A"Andstrtemp<="Z"Orstrtemp>="a"Andstrtemp<="z")Then  strtemp=Chr(Asc(strtemp)+5)  EndIf  strTargetstrTarget=strTarget+strtemp  Nexti  TxtTarget.Text=strTarget EndSub

當(dāng)然，這個(gè)加密是有問(wèn)題的，對(duì)于解密來(lái)說(shuō)，w，x，y，z等字母將無(wú)法解密，因?yàn)椴皇歉氵@個(gè)，且不去管他

因?yàn)槭莻鹘y(tǒng)的文件讀寫，預(yù)計(jì)vb.net的變化不大，經(jīng)過(guò)升級(jí)
果然如此

VB和VB.NET比較升級(jí)過(guò)后的代碼

PrivateSubcmdopenfile_Click(ByValeventSenderAsSystem.Object,ByValeventArgsAsSystem.EventArgs)Handlescmdopenfile.Click  cdlfile.ShowOpen()  'OpenFileDialog1.ShowDialog()  Ifcdlfile.FileName<>vbNullStringThen  TxtSource.Text=vbNullString FileOpen(1,cdlfile.FileName,OpenMode.Input)  DoUntilEOF(1)  strline=LineInput(1)  TxtSourceTxtSource.Text=TxtSource.Text+strline+vbCrLf  Loop  FileClose(1)  EndIf  EndSub

仔細(xì)看看，首先.net兼容原來(lái)的commanddialog控件，open語(yǔ)句有所變化，close也變化了

PrivateSubcmdsavefile_Click(ByValeventSenderAsSystem.Object,ByValeventArgsAsSystem.EventArgs)Handlescmdsavefile.Click  cdlfile.ShowSave()  Ifcdlfile.FileName<>vbNullStringThen  FileOpen(1,cdlfile.FileName,OpenMode.Output)  PrintLine(1,TxtTarget.Text)  FileClose(1)  EndIf  EndSub

加密部分

PrivateSubcmdcode_Click(ByValeventSenderAsSystem.Object,ByValeventArgsAsSystem.EventArgs)Handlescmdcode.Click  strSouce=TxtSource.Text  strTarget=vbNullString intLength=CStr(Len(Trim(strSouce)))  Fori=1ToCInt(intLength)  strtemp=Mid(strSouce,i,1)  If(strtemp>="A"Andstrtemp<="Z"Orstrtemp>="a"Andstrtemp<="z")Then  strtemp=Chr(Asc(strtemp)+5)  EndIf  strTargetstrTarget=strTarget&strtemp  Nexti  TxtTarget.Text=strTarget EndSub

VB和VB.NET比較總結(jié)：這里可以看出，.neT處理整型來(lái)得更加嚴(yán)格

我測(cè)試了一下，去掉老的commanddialog換上新的openfiledialog沒有問(wèn)題向來(lái)savefiledialog也是一樣的

感謝你能夠認(rèn)真閱讀完這篇文章，希望小編分享的“VB和VB.NET有什么區(qū)別”這篇文章對(duì)大家有幫助，同時(shí)也希望大家多多支持創(chuàng)新互聯(lián)，關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道，更多相關(guān)知識(shí)等著你來(lái)學(xué)習(xí)!