这篇文章主要介绍了VB和VB.NET有什么区别，具有一定借鉴价值，感兴趣的朋友可以参考下，希望大家阅读完这篇文章之后大有收获，下面让小编带着大家一起了解一下。
我们提供的服务有：成都网站设计、成都网站制作、微信公众号开发、网站优化、网站认证、兴安ssl等。为上1000家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的兴安网站制作公司
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有什么区别”这篇文章对大家有帮助，同时也希望大家多多支持创新互联，关注创新互联行业资讯频道，更多相关知识等着你来学习!
