189 8069 5689

vb转哈vb.net vb转数字

下面的VB6.0编写的代码怎么转为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取消了定长字符串, 所以用字节数组读入, 还得转成字符数组来比较.

如何vb转换到vb.net

你可以直接打开 VB6 的程序,VB.net 会自动启动升级向导将你的 VB6 代码升级为 VB.net。

VB6代码转换VB.NET

Dim i As Integer,wd As Integer,hd As Integer

Dim Obj As HtmlDocument=WebBrowser1.Document.GetElementsByTagName("iframe")(2).Document

For i=0 To Obj.Images.Count-1

wd=Obj.Images(i).OffsetRectangle.Width

hd=Obj.Images(i).OffsetRectangle.Height

If wd=800 Or wd=790 Then

Call tupxiazai(Obj.Images(i).GetAttribute("SRC"),Application.StartupPath "\image\" i "pic.jpg")

End If

Next

vb的回调函数转为vb.NET

先声明一个委托:

Public Delegate Function EnumChildProc(hwnd As Integer, iParam As Integer) As Integer

然后才能使用回调函数,回调函数的参数要和委托完全一致。

然后那个 API 函数需要这样声明:

Declare Function EnumChildWindows Lib "user32" (hWndParent As Integer, lpEnumFunc As EnumChildProc, lParam As Integer) As Integer


当前名称:vb转哈vb.net vb转数字
标题来源:http://jkwzsj.com/article/hhdojh.html

其他资讯