如何vb轉(zhuǎn)換到vb.net

你可以直接打開 VB6 的程序，VB.net 會自動啟動升級向?qū)⒛愕?VB6 代碼升級為 VB.net。

創(chuàng)新互聯(lián)公司是一家成都做網(wǎng)站、成都網(wǎng)站建設(shè)，提供網(wǎng)頁設(shè)計，網(wǎng)站設(shè)計，網(wǎng)站制作，建網(wǎng)站，定制設(shè)計，網(wǎng)站開發(fā)公司，公司2013年成立是互聯(lián)行業(yè)建設(shè)者，服務(wù)者。以提升客戶品牌價值為核心業(yè)務(wù)，全程參與項目的網(wǎng)站策劃設(shè)計制作，前端開發(fā)，后臺程序制作以及后期項目運營并提出專業(yè)建議和思路。

vb 改vb.net

使用.net的升級向?qū)?雖然不能完全升級但大部分代碼都升級了,再做略微修改

VB轉(zhuǎn)化成VB.NET

Are you Japanese? Why the slogan is Japanese?

Your code directly put it in VB6.0 by use, save the source, then the open method of vb.net upgrade.

I'm not Japanese, so we had to communicate in English with you, sorry.

下面的VB6.0編寫的代碼怎么轉(zhuǎn)為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ù)組來比較.

vb的回調(diào)函數(shù)轉(zhuǎn)為vb.NET

先聲明一個委托：

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

本文名稱：vb轉(zhuǎn)為vb.net,vb 強制轉(zhuǎn)換
文章位置：http://chinadenli.net/article1/dsepdod.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供響應(yīng)式網(wǎng)站、網(wǎng)站排名、軟件開發(fā)、自適應(yīng)網(wǎng)站、Google、App設(shè)計

廣告

聲明：本網(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)