VB和VB.NET有什么区别

这篇文章主要介绍了VB和VB.NET有什么区别，具有一定借鉴价值，感兴趣的朋友可以参考下，希望大家阅读完这篇文章之后大有收获，下面让小编带着大家一起了解一下。

VB经过长时间的发展，现在大部分人都用VB.NET了，接到一个写模拟系统接口的任务，预备先简单的实现他，就用VB，传统的读出写入就好，随便写了一个例子，之后用vb.net升级了一下。原VB情况如下，2个btn，一个是打开文件，把内容读到一个txt1，一个btn，做一个简单的移位加密，把加密之后的内容读到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

当然，这个加密是有问题的，对于解密来说，w，x，y，z等字母将无法解密，因为不是搞这个，且不去管他

因为是传统的文件读写，预计vb.net的变化不大，经过升级
果然如此

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

仔细看看，首先.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比较总结：这里可以看出，.neT处理整型来得更加严格

我测试了一下，去掉老的commanddialog换上新的openfiledialog没有问题向来savefiledialog也是一样的

感谢你能够认真阅读完这篇文章，希望小编分享的“VB和VB.NET有什么区别”这篇文章对大家有帮助，同时也希望大家多多支持亿速云，关注亿速云行业资讯频道，更多相关知识等着你来学习!