VB和VB.NET有什么區(qū)別

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

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

VB經(jīng)過長時間的發(fā)展，現(xiàn)在大部分人都用VB.NET了，接到一個寫模擬系統(tǒng)接口的任務(wù)，預(yù)備先簡單的實現(xiàn)他，就用VB，傳統(tǒng)的讀出寫入就好，隨便寫了一個例子，之后用vb.net升級了一下。原VB情況如下，2個btn，一個是打開文件，把內(nèi)容讀到一個txt1，一個btn，做一個簡單的移位加密，把加密之后的內(nèi)容讀到txt2 ，頁面上放了一個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)然，這個加密是有問題的，對于解密來說，w，x，y，z等字母將無法解密，因為不是搞這個，且不去管他

因為是傳統(tǒng)的文件讀寫，預(yù)計vb.net的變化不大，經(jīng)過升級
果然如此

VB和VB.NET比較升級過后的代碼

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兼容原來的commanddialog控件，open語句有所變化，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處理整型來得更加嚴(yán)格

我測試了一下，去掉老的commanddialog換上新的openfiledialog沒有問題向來savefiledialog也是一樣的

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

名稱欄目：VB和VB.NET有什么區(qū)別
標(biāo)題鏈接：http://muchs.cn/article26/jioccg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站建設(shè)、App開發(fā)、微信小程序、域名注冊、企業(yè)建站、外貿(mào)建站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)