vb6.0轉(zhuǎn)VB.NET中簡(jiǎn)單的問題?新手

Visual Basic 還是一如以往那樣提供著強(qiáng)大的語(yǔ)法智能感知功能，但為了實(shí)現(xiàn)平臺(tái)下跨語(yǔ)言集成，使得和其他.NET語(yǔ)言整合，諸如C#統(tǒng)一，它的事件參數(shù)都采用了一致的標(biāo)簽，所以你已經(jīng)不再看見原來那樣的KeyCode之類的事件參數(shù)了，取而代之的是sender和e兩個(gè)對(duì)象。

北海街道網(wǎng)站制作公司哪家好，找創(chuàng)新互聯(lián)公司！從網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、成都響應(yīng)式網(wǎng)站建設(shè)等網(wǎng)站項(xiàng)目制作，到程序開發(fā)，運(yùn)營(yíng)維護(hù)。創(chuàng)新互聯(lián)公司自2013年起到現(xiàn)在10年的時(shí)間，我們擁有了豐富的建站經(jīng)驗(yàn)和運(yùn)維經(jīng)驗(yàn)，來保證我們的工作的順利進(jìn)行。專注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)公司。

方法如下：

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

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

PrivateSubCommand1_Click()OnErrorGoTodeleteError'假如中間有出錯(cuò)，直接跳轉(zhuǎn)到最后面deleteError:再繼續(xù)往下執(zhí)行'判斷是否選擇了表中的一行IfAdodc1.Recordset.EOF=TrueOrAdodc1.Recordset.BOF=TrueThen'假如在最后一條記錄之后或在第一條記錄之前，說明沒有選中表中的某一行MsgBox"請(qǐng)選擇要顯示的行"ExitSub'沒有選中內(nèi)容，就退出過程，不再執(zhí)行下面的刪除功能EndIfDimbookTypeIdAsIntegerDimdeleteSqlAsStringbookTypeId=Me.Adodc1.Recordset.Fields(0)'得到當(dāng)有選中記錄的第一個(gè)字段,估計(jì)是圖書類型vbResult=MsgBox("真的決定要?jiǎng)h除當(dāng)前的記錄信息嗎？",vbOKCancel)'詢問是否真的要?jiǎng)h除選中的記錄，得到一返回值IfvbResult=vbOKThendeleteSql="deletefromBookTypewherebookTypeId="bookTypeId'sql語(yǔ)句，作用為在記錄集中找到前面得到的圖書類型編號(hào)，并進(jìn)行刪除的操作語(yǔ)句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

下面的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取消了定長(zhǎng)字符串, 所以用字節(jié)數(shù)組讀入, 還得轉(zhuǎn)成字符數(shù)組來比較.

VB6.0 代碼轉(zhuǎn)VB.NET

VB.NET里面常用的兩種屬性定義形式，還有就是加各種修飾符的，比如readonly，writeonly等

本文名稱：vb6.0轉(zhuǎn)vb.net的簡(jiǎn)單介紹
標(biāo)題路徑：http://sd-ha.com/article24/doijgje.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站設(shè)計(jì)、網(wǎng)站收錄、標(biāo)簽優(yōu)化、用戶體驗(yàn)、App設(shè)計(jì)、外貿(mào)網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)