vb6.0语言转换net vb6代码转vs2010

VB 6.0 转为vb 点虐

把代码输入到vb点虐里面，可以转。就像word2003文档用word2007文挡打开，再保存为2007格式一样。

创新互联公司主要从事网站设计、成都网站设计、网页设计、企业做网站、公司建网站等业务。立足成都服务鼓楼,十余年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18982081108

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))

If s = "CMG=""" Then CMGs = i

If s = "[Host" Then DPBo = i - 2 : Exit While

End While

主要是vb点虐取消了定长字符串, 所以用字节数组读入, 还得转成字符数组来比较.

Visual Basic 还是一如以往那样提供着强大的语法智能感知功能，但为了实现平台下跨语言集成，使得和其他.NET语言整合，诸如C#统一，它的事件参数都采用了一致的标签，所以你已经不再看见原来那样的KeyCode之类的事件参数了，取而代之的是sender和e两个对象。

方法如下：

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

If e.KeyCode = Keys.Enter Then

MsgBox("You press enter key!")

End If

End Sub

名称栏目：vb6.0语言转换net vb6代码转vs2010
链接URL：http://azwzsj.com/article/ddgpodi.html