重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
使用.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
Next
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