下面的VB6.0編寫的代碼怎么轉為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取消了定長字符串, 所以用字節數組讀入, 還得轉成字符數組來比較.

vb6.0轉VB.NET中簡單的問題?新手

Visual Basic 還是一如以往那樣提供著強大的語法智能感知功能，但為了實現平臺下跨語言集成，使得和其他.NET語言整合，諸如C#統一，它的事件參數都采用了一致的標簽，所以你已經不再看見原來那樣的KeyCode之類的事件參數了，取而代之的是sender和e兩個對象。

方法如下：

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

If e.KeyCode = Keys.Enter Then

MsgBox("You press enter key!")

End If

End Sub

VB 6.0 轉為vb .net

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

求大神vb6.0代碼轉vb.NET

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

分享文章：包含vb6.0轉.net的詞條
分享路徑：http://vcdvsql.cn/article16/ddccigg.html

成都網站建設公司_創新互聯，為您提供企業建站、網站策劃、網站設計公司、網站設計、全網營銷推廣、App開發

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯