求大神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語句，作用為在記錄集中找到前面得到的圖書類型編號，并進(jìn)行刪除的操作語句Callcheck_condatabasecn.Execute(deleteSql)'執(zhí)行刪除操作，真的開始刪除了MsgBox"圖書類型刪除成功!"EndIfMe.Adodc1.Refresh'將記錄集進(jìn)行更新，變?yōu)閯h除后的記錄集Me.DataGrid1.ReBind'將綁定表格的內(nèi)容顯示為記錄刪除后的內(nèi)容GoToEndSubdeleteError:MsgBox"圖書類型刪除失敗!"EndSub:EndSub

創(chuàng)新互聯(lián)公司長期為上千客戶提供的網(wǎng)站建設(shè)服務(wù)，團(tuán)隊從業(yè)經(jīng)驗10年，關(guān)注不同地域、不同群體，并針對不同對象提供差異化的產(chǎn)品和服務(wù)；打造開放共贏平臺，與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為華寧企業(yè)提供專業(yè)的成都網(wǎng)站制作、成都網(wǎng)站建設(shè)，華寧網(wǎng)站改版等技術(shù)服務(wù)。擁有十載豐富建站經(jīng)驗和眾多成功案例,為您定制開發(fā)。

下面的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轉(zhuǎn)換到vb.net

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

求高手將以下vb6.0代碼轉(zhuǎn)化為vb.net可執(zhí)行源碼，急用

用vb。net直接打開vb的工程，會出現(xiàn)轉(zhuǎn)換界面的，你的這段代碼應(yīng)該可以直接轉(zhuǎn)換編譯的。

網(wǎng)站名稱：vb的代碼轉(zhuǎn)vb.net,vb轉(zhuǎn)換函數(shù)
當(dāng)前網(wǎng)址：http://aaarwkj.com/article10/dsspodo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供動態(tài)網(wǎng)站、用戶體驗、網(wǎng)站建設(shè)、營銷型網(wǎng)站建設(shè)、外貿(mào)建站、移動網(wǎng)站建設(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)