从品牌网站建设到网络营销策划,从策略到执行的一站式服务
把代码输入到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))
Next
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
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图