Are you Japanese? Why the slogan is Japanese?
红花岗网站建设公司创新互联,红花岗网站设计制作,有大型网站制作公司丰富经验。已为红花岗成百上千家提供企业网站建设服务。企业网站搭建\成都外贸网站建设公司要多少钱,请找那个售后服务好的红花岗做网站的公司定做!
Your code directly put it in VB6.0 by use, save the source, then the open method of vb.net upgrade.
I'm not Japanese, so we had to communicate in English with you, sorry.
你可以直接打开 VB6 的程序,VB.net 会自动启动升级向导将你的 VB6 代码升级为 VB.net。
样是不行的,要转化成VB.net只有重新改编,因为框架不同语法也有太多的不同
Dim file1 As FileStream
filename = "c:\temp\MyTest.txt"
Dim GetData(4) As Byte, s(4) As Char
file1 = System.IO.File.OpenRead(filename)
Dim CMGs As Long
Dim DPBo As Long
Dim i As Integer = 0, j As Integer
While file1.Read(GetData, 0, 5) 0
i = i + 1
For j = 0 To 4
s(j) = ChrW(GetData(j))
Next
If s = "CMG=""" Then CMGs = i
If s = "[Host" Then DPBo = i - 2 : Exit While
End While
主要是vb.net取消了定长字符串, 所以用字节数组读入, 还得转成字符数组来比较.
使用.net的升级向导,虽然不能完全升级但大部分代码都升级了,再做略微修改
本文名称:vb转换成vbnet,vb进制转换
网址分享:https://www.cdcxhl.com/article28/hsgicp.html
成都网站建设公司_创新互联,为您提供ChatGPT、网站改版、网站建设、云服务器、Google、动态网站
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联