vb6.0转net的简单介绍
vb6文件可以转成vb点虐 的吗?怎么转
能不能转换 主要取决于vb6的源程序是不是使用了第三方控件 如果用了 那这些全部都不能转!~
创新互联长期为成百上千客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为丹东企业提供专业的成都做网站、成都网站设计,丹东网站改版等技术服务。拥有十年丰富建站经验和众多成功案例,为您定制开发。
如果vb6里面有控件数组vb点虐 会自动生成出一套东西(vb点虐 里面已经没有控件数组)模拟控件数组
如果vb6的程序很简单的话,转成点虐 之后应该改的地方不大!~
绝对你应该先弄清楚以前vb6的程序具体用了什么 然后去微软查一下vb6升级到vb点虐 最大的区别!~
我们做过好几个升级的程序 有的不用改 有的简单修改 有的基本重写!~
下面的VB6.0编写的代码怎么转为VB点虐
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点虐 取消了定长字符串, 所以用字节数组读入, 还得转成字符数组来比较.
求大神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
学过vb6.0一点,转vb点虐 难吗?
部分一样。
安装中文版的vs,每个关键词、属性、方法都有中文说明。
定义变量和赋值差不多一模一样,比如下面:
1、dim 变量名 as 类型。声明一个变量。
2、Dim 变量名() as 类型。声明一个数组
3、Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
按钮点击事件过程的代码
End Sub
4、public sub 过程名()。公共过程。
过程代码
end sub
5、public function 函数名(函数参数1 as 类型,函数参数2 as 类型) AS 返回类型。
函数代码
end function
6、赋值:变量3=变量1
还有部分代码是一模一样的,可以在网上多找些代码看看。最好还是当新语言学吧,你的适应性要强,理念还是不同的,难度试过才知道。
网站名称:vb6.0转net的简单介绍
文章网址:http://ybzwz.com/article/ddecpgp.html