VB.NET里面常用的两种属性定义形式,还有就是加各种修饰符的,比如readonly,writeonly等
公司主营业务:成都网站设计、成都网站制作、移动网站开发等业务。帮助企业客户真正实现互联网宣传,提高企业的竞争能力。创新互联公司是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化,感谢他们对我们的高要求,感谢他们从不同领域给我们带来的挑战,让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联公司推出峄城免费做网站回馈大家。
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取消了定长字符串, 所以用字节数组读入, 还得转成字符数组来比较.
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
PrivateSubCommand1_Click()OnErrorGoTodeleteError'假如中间有出错,直接跳转到最后面deleteError:再继续往下执行'判断是否选择了表中的一行IfAdodc1.Recordset.EOF=TrueOrAdodc1.Recordset.BOF=TrueThen'假如在最后一条记录之后或在第一条记录之前,说明没有选中表中的某一行MsgBox"请选择要显示的行"ExitSub'没有选中内容,就退出过程,不再执行下面的删除功能EndIfDimbookTypeIdAsIntegerDimdeleteSqlAsStringbookTypeId=Me.Adodc1.Recordset.Fields(0)'得到当有选中记录的第一个字段,估计是图书类型vbResult=MsgBox("真的决定要删除当前的记录信息吗?",vbOKCancel)'询问是否真的要删除选中的记录,得到一返回值IfvbResult=vbOKThendeleteSql="deletefromBookTypewherebookTypeId="bookTypeId'sql语句,作用为在记录集中找到前面得到的图书类型编号,并进行删除的操作语句Callcheck_condatabasecn.Execute(deleteSql)'执行删除操作,真的开始删除了MsgBox"图书类型删除成功!"EndIfMe.Adodc1.Refresh'将记录集进行更新,变为删除后的记录集Me.DataGrid1.ReBind'将绑定表格的内容显示为记录删除后的内容GoToEndSubdeleteError:MsgBox"图书类型删除失败!"EndSub:EndSub
用vb。net直接打开vb的工程,会出现转换界面的,你的这段代码应该可以直接转换编译的。
新闻名称:vb代码转vb.net vb代码转c#代码
当前链接:https://www.cdcxhl.com/article16/hishgg.html
成都网站建设公司_创新互联,为您提供Google、自适应网站、品牌网站制作、ChatGPT、企业网站制作、用户体验
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联