VB和VB.NET有什么区别
发表于:2025-02-23 作者:千家信息网编辑
千家信息网最后更新 2025年02月23日,这篇文章主要介绍了VB和VB.NET有什么区别,具有一定借鉴价值,感兴趣的朋友可以参考下,希望大家阅读完这篇文章之后大有收获,下面让小编带着大家一起了解一下。VB经过长时间的发展,现在大部分人都用VB
千家信息网最后更新 2025年02月23日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有什么区别"这篇文章对大家有帮助,同时也希望大家多多支持,关注行业资讯频道,更多相关知识等着你来学习!
加密
篇文章
升级
变化
代码
传统
内容
文件
问题
果然如此
不大
他因
价值
任务
例子
兴趣
同时
大部分
字母
情况
数据库的安全要保护哪些东西
数据库安全各自的含义是什么
生产安全数据库录入
数据库的安全性及管理
数据库安全策略包含哪些
海淀数据库安全审计系统
建立农村房屋安全信息数据库
易用的数据库客户端支持安全管理
连接数据库失败ssl安全错误
数据库的锁怎样保障安全
转变由管理向服务器
防火墙无法访问数据库
excel读取数据库数据
软件开发属于物资采购
为什么启动管理器服务器
关于网络安全的的申论
mc服务器技术
帝坤互联网科技有限公司
vpn服务器网关设置
mysql分布式数据库架构
织梦修改数据库帐号密码
信息网络安全主要划分为
网络安全案例自述
广州市网络服务器
网络安全培训昆明
下载服务器登录失败
小型社区服务器
链接数据库语法
绍兴物联网大数据平台软件开发
数据库应用技术实训报告小结
杨浦区互联网软件开发诚信经营
旅游软件开发方案模板
阴阳师同一账号登录两个服务器
网络安全培训昆明
门禁打开数据库错误
同源策略代理服务器
挂机宝服务器秒换ip
后台数据库连接
生物软件开发读哪个专业
网络安全等级分