VB和VB.NET有什么区别

这篇文章主要介绍了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有什么区别”这篇文章对大家有帮助,同时也希望大家多多支持创新互联,关注创新互联行业资讯频道,更多相关知识等着你来学习!


分享题目:VB和VB.NET有什么区别
文章URL:http://myzitong.com/article/jioccg.html