vb转成vb.net vba转vbs

vb 改vb.net

使用.net的升级向导,虽然不能完全升级但大部分代码都升级了,再做略微修改

站在用户的角度思考问题，与客户深入沟通，找到大同网站设计与大同网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：网站制作、网站设计、企业官网、英文网站、手机端网站、网站推广、空间域名、虚拟空间、企业邮箱。业务覆盖大同地区。

那个号回答的问题怎么总是显示不出来？

换朋友的号给你回答。

Dim FileName As String = InputBox("输入文件位置")

Dim yw As String = Nothing

yw = My.Computer.FileSystem.ReadAllText(FileName)

Dim n As Long = Len(yw)

Dim yz As String = Nothing

Dim xz As String = Nothing

Dim xw As String = Nothing

For i = 1 To n

yz = Mid(yw, i, 1)

xz = Chr(Asc(yz) + 10)

xw = xz

My.Computer.FileSystem.WriteAllText(FileName, xw, True)

MsgBox("OK")

代码倒数第二行的最后一个Boolean变量是设置文件输出是否为追加模式的，根据你自己的需要做修改吧。因为我已经不记得VB里的默认输出是追加还是覆盖了。

希望能够满意~

能不能转换主要取决于vb6的源程序是不是使用了第三方控件如果用了那这些全部都不能转！~

如果vb6里面有控件数组vb.net会自动生成出一套东西（vb.net里面已经没有控件数组）模拟控件数组

如果vb6的程序很简单的话，转成.net之后应该改的地方不大！~

绝对你应该先弄清楚以前vb6的程序具体用了什么然后去微软查一下vb6升级到vb.net最大的区别！~

我们做过好几个升级的程序有的不用改有的简单修改有的基本重写！~

先声明一个委托：

Public Delegate Function EnumChildProc(hwnd As Integer, iParam As Integer) As Integer

然后才能使用回调函数，回调函数的参数要和委托完全一致。

然后那个 API 函数需要这样声明：

Declare Function EnumChildWindows Lib "user32" (hWndParent As Integer, lpEnumFunc As EnumChildProc, lParam As Integer) As Integer

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容