下面的VB6.0編寫的代碼怎么轉(zhuǎn)為VB.net

Dim?file1?As?FileStream

從策劃到設(shè)計制作，每一步都追求做到細(xì)膩，制作可持續(xù)發(fā)展的企業(yè)網(wǎng)站。為客戶提供成都網(wǎng)站設(shè)計、成都網(wǎng)站制作、網(wǎng)站策劃、網(wǎng)頁設(shè)計、申請域名、雅安服務(wù)器托管、網(wǎng)絡(luò)營銷、VI設(shè)計、 網(wǎng)站改版、漏洞修補等服務(wù)。為客戶提供更好的一站式互聯(lián)網(wǎng)解決方案,以客戶的口碑塑造優(yōu)易品牌,攜手廣大客戶,共同發(fā)展進步。

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ù)組來比較.

vb6文件可以轉(zhuǎn)成vb.net的嗎？怎么轉(zhuǎn)

能不能轉(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ū)別！~

我們做過好幾個升級的程序 有的不用改 有的簡單修改 有的基本重寫！~

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

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

VB 6.0 轉(zhuǎn)為vb .net

把代碼輸入到vb.net里面，可以轉(zhuǎn)。就像word2003文檔用word2007文擋打開，再保存為2007格式一樣。

求大神vb6.0代碼轉(zhuǎn)vb.NET

PrivateSubCommand1_Click()OnErrorGoTodeleteError'假如中間有出錯，直接跳轉(zhuǎn)到最后面deleteError:再繼續(xù)往下執(zhí)行'判斷是否選擇了表中的一行IfAdodc1.Recordset.EOF=TrueOrAdodc1.Recordset.BOF=TrueThen'假如在最后一條記錄之后或在第一條記錄之前，說明沒有選中表中的某一行MsgBox"請選擇要顯示的行"ExitSub'沒有選中內(nèi)容，就退出過程，不再執(zhí)行下面的刪除功能EndIfDimbookTypeIdAsIntegerDimdeleteSqlAsStringbookTypeId=Me.Adodc1.Recordset.Fields(0)'得到當(dāng)有選中記錄的第一個字段,估計是圖書類型vbResult=MsgBox("真的決定要刪除當(dāng)前的記錄信息嗎？",vbOKCancel)'詢問是否真的要刪除選中的記錄，得到一返回值IfvbResult=vbOKThendeleteSql="deletefromBookTypewherebookTypeId="bookTypeId'sql語句，作用為在記錄集中找到前面得到的圖書類型編號，并進行刪除的操作語句Callcheck_condatabasecn.Execute(deleteSql)'執(zhí)行刪除操作，真的開始刪除了MsgBox"圖書類型刪除成功!"EndIfMe.Adodc1.Refresh'將記錄集進行更新，變?yōu)閯h除后的記錄集Me.DataGrid1.ReBind'將綁定表格的內(nèi)容顯示為記錄刪除后的內(nèi)容GoToEndSubdeleteError:MsgBox"圖書類型刪除失敗!"EndSub:EndSub

能不能將vb的代碼轉(zhuǎn)換為VB.NET的代碼，困難

可以發(fā)過來看看

Dim?str?As?String?=?"",?temp,?n?As?Integer

Dim?str1?As?String?=?"12,45,2,9,41,31,66,83,2,1,-9,-91,-21"

Dim?a()?As?String?=?Split(str1,?",")

For?i?=?1?To?UBound(a)?Step?1

a(i)?=?Val(a(i))

Next

temp?=?0

n?=?0

For?i?=?1?To?UBound(a)

If?a(i)??temp?Then

temp?=?a(i)

End?If

If?a(i)??0?Then

n?=?n?+?1

End?If

Next

str?=?str??"正數(shù)的個數(shù)為?"??n

str?=?str??"最大元素的下標(biāo)為?"

For?i?=?1?To?UBound(a)

If?a(i)?=?temp?Then

str?=?str??i??"?"

End?If

Next

TextBox6.Text?=?str