大橙子网站建设,新征程启航

为企业提供网站建设、域名注册、服务器等服务

vb的代码转vb.net,vb转换函数

求大神vb6.0代码转vb.NET

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

创新互联公司长期为上千客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为华宁企业提供专业的成都网站制作、成都网站建设,华宁网站改版等技术服务。拥有十载丰富建站经验和众多成功案例,为您定制开发。

下面的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.0代码转化为vb.net可执行源码,急用

用vb。net直接打开vb的工程,会出现转换界面的,你的这段代码应该可以直接转换编译的。


名称栏目:vb的代码转vb.net,vb转换函数
标题URL:http://dzwzjz.com/article/dsspodo.html
在线咨询
服务热线
服务热线:028-86922220
TOP