大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Dim file1 As FileStream
我们提供的服务有:成都网站设计、网站建设、微信公众号开发、网站优化、网站认证、灵璧ssl等。为上千企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务,是有科学管理、有技术的灵璧网站制作公司
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取消了定长字符串, 所以用字节数组读入, 还得转成字符数组来比较.
把代码输入到vb.net里面,可以转。就像word2003文档用word2007文挡打开,再保存为2007格式一样。
以有简单的 吧编译好的 vb6或者其他的vb的文件用vb.net打开 有个升级向导 一步一步很简单转换时exe只能换成exe dll只能换成dll 以前的属性不能修改就能升级成.net框架下的vb最新的vb.net编辑了。
你可以直接打开 VB6 的程序,VB.net 会自动启动升级向导将你的 VB6 代码升级为 VB.net。