使用.net的升級向?qū)?雖然不能完全升級但大部分代碼都升級了,再做略微修改
站在用戶的角度思考問題,與客戶深入溝通,找到大同網(wǎng)站設(shè)計與大同網(wǎng)站推廣的解決方案,憑借多年的經(jīng)驗,讓設(shè)計與互聯(lián)網(wǎng)技術(shù)結(jié)合,創(chuàng)造個性化、用戶體驗好的作品,建站類型包括:網(wǎng)站制作、網(wǎng)站設(shè)計、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣、空間域名、虛擬空間、企業(yè)郵箱。業(yè)務覆蓋大同地區(qū)。
那個號回答的問題怎么總是顯示不出來?
換朋友的號給你回答。
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")
代碼倒數(shù)第二行的最后一個Boolean變量是設(shè)置文件輸出是否為追加模式的,根據(jù)你自己的需要做修改吧。因為我已經(jīng)不記得VB里的默認輸出是追加還是覆蓋了。
希望能夠滿意~
能不能轉(zhuǎn)換 主要取決于vb6的源程序是不是使用了第三方控件 如果用了 那這些全部都不能轉(zhuǎn)!~
如果vb6里面有控件數(shù)組vb.net會自動生成出一套東西(vb.net里面已經(jīng)沒有控件數(shù)組)模擬控件數(shù)組
如果vb6的程序很簡單的話,轉(zhuǎn)成.net之后應該改的地方不大!~
絕對你應該先弄清楚以前vb6的程序具體用了什么 然后去微軟查一下vb6升級到vb.net最大的區(qū)別!~
我們做過好幾個升級的程序 有的不用改 有的簡單修改 有的基本重寫!~
先聲明一個委托:
Public Delegate Function EnumChildProc(hwnd As Integer, iParam As Integer) As Integer
然后才能使用回調(diào)函數(shù),回調(diào)函數(shù)的參數(shù)要和委托完全一致。
然后那個 API 函數(shù)需要這樣聲明:
Declare Function EnumChildWindows Lib "user32" (hWndParent As Integer, lpEnumFunc As EnumChildProc, lParam As Integer) As Integer
網(wǎng)頁標題:vb轉(zhuǎn)成vb.net vba轉(zhuǎn)vbs
當前地址:http://jinyejixie.com/article40/dddhdeo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供App開發(fā)、軟件開發(fā)、域名注冊、虛擬主機、網(wǎng)站導航、企業(yè)網(wǎng)站制作
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)