把代碼輸入到vb.net里面,可以轉(zhuǎn)。就像word2003文檔用word2007文擋打開,再保存為2007格式一樣。
成都創(chuàng)新互聯(lián)公司是專業(yè)的特克斯網(wǎng)站建設(shè)公司,特克斯接單;提供網(wǎng)站制作、成都網(wǎng)站設(shè)計(jì),網(wǎng)頁設(shè)計(jì),網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行特克斯網(wǎng)站開發(fā)網(wǎng)頁制作和功能擴(kuò)展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來合作!
以有簡單的 吧編譯好的 vb6或者其他的vb的文件用vb.net打開 有個(gè)升級向?qū)?一步一步很簡單轉(zhuǎn)換時(shí)exe只能換成exe dll只能換成dll 以前的屬性不能修改就能升級成.net框架下的vb最新的vb.net編輯了。
能不能轉(zhuǎn)換 主要取決于vb6的源程序是不是使用了第三方控件 如果用了 那這些全部都不能轉(zhuǎn)!~
如果vb6里面有控件數(shù)組vb.net會自動生成出一套東西(vb.net里面已經(jīng)沒有控件數(shù)組)模擬控件數(shù)組
如果vb6的程序很簡單的話,轉(zhuǎn)成.net之后應(yīng)該改的地方不大!~
絕對你應(yīng)該先弄清楚以前vb6的程序具體用了什么 然后去微軟查一下vb6升級到vb.net最大的區(qū)別!~
我們做過好幾個(gè)升級的程序 有的不用改 有的簡單修改 有的基本重寫!~
你可以直接打開 VB6 的程序,VB.net 會自動啟動升級向?qū)⒛愕?VB6 代碼升級為 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取消了定長字符串, 所以用字節(jié)數(shù)組讀入, 還得轉(zhuǎn)成字符數(shù)組來比較.
先聲明一個(gè)委托:
Public Delegate Function EnumChildProc(hwnd As Integer, iParam As Integer) As Integer
然后才能使用回調(diào)函數(shù),回調(diào)函數(shù)的參數(shù)要和委托完全一致。
然后那個(gè) API 函數(shù)需要這樣聲明:
Declare Function EnumChildWindows Lib "user32" (hWndParent As Integer, lpEnumFunc As EnumChildProc, lParam As Integer) As Integer