高人 將vb.net的代碼轉(zhuǎn)換為vb6 特別是CType(sender, Form).Close()這一句

sender就是引發(fā)事件的對(duì)象，因?yàn)椴恢谰唧w類(lèi)型所以用object類(lèi)型，在vb.net就是把sender轉(zhuǎn)成窗體類(lèi)型 意思就是關(guān)閉當(dāng)前窗體。如果轉(zhuǎn)成VB6的話(huà)就是Unload me

創(chuàng)新互聯(lián)公司始終堅(jiān)持【策劃先行，效果至上】的經(jīng)營(yíng)理念，通過(guò)多達(dá)十年累計(jì)超上千家客戶(hù)的網(wǎng)站建設(shè)總結(jié)了一套系統(tǒng)有效的營(yíng)銷(xiāo)推廣解決方案，現(xiàn)已廣泛運(yùn)用于各行各業(yè)的客戶(hù)，其中包括：封陽(yáng)臺(tái)等企業(yè)，備受客戶(hù)贊賞。

vbNet轉(zhuǎn)vb6

Private?Sub?Command1_Click()

Dim?Str?As?String

Str?=?Clipboard.GetText?'獲取剪切板數(shù)據(jù)

ListView1.View?=?lvwReport

ListView1.HideColumnHeaders?=?False

ListView1.GridLines?=?True

ListView1.ColumnHeaders.Clear

ListView1.ListItems.Clear

Dim?Tit?As?Boolean

Tit?=?True

Dim?Index?As?Integer?'?=?0?'標(biāo)題行的列數(shù)。

Dim?i

Dim?k

Dim?lv?As?ListItem

On?Error?GoTo?Catch

For?Each?i?In?Split(Replace(Str,?vbLf,?""),?vbCr)

Dim?Str2()?As?String

Str2?=?Split(i,?vbTab)

If?Tit?Then?'標(biāo)題行

Tit?=?False

For?Each?k?In?Str2

ListView1.ColumnHeaders.Add?,?,?k

Next

Else?'非標(biāo)題行。

Set?lv?=?ListView1.ListItems.Add(,?,?Str2(0))

Index?=?UBound(Str2)

For?k?=?1?To?Index

lv.SubItems(k)?=?Str2(k)

Next

End?If

Next

Catch:

End?Sub

vb.net怎樣轉(zhuǎn)成vb

vb.net里好像提供了自動(dòng)轉(zhuǎn)換vb6程序的，直接點(diǎn) 文件-打開(kāi) 選擇vbp文件，然后下一步下一步就行了，好像是的

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

能不能轉(zhuǎn)換 主要取決于vb6的源程序是不是使用了第三方控件 如果用了 那這些全部都不能轉(zhuǎn)！~

如果vb6里面有控件數(shù)組vb.net會(huì)自動(dòng)生成出一套東西（vb.net里面已經(jīng)沒(méi)有控件數(shù)組）模擬控件數(shù)組

如果vb6的程序很簡(jiǎn)單的話(huà)，轉(zhuǎn)成.net之后應(yīng)該改的地方不大！~

絕對(duì)你應(yīng)該先弄清楚以前vb6的程序具體用了什么 然后去微軟查一下vb6升級(jí)到vb.net最大的區(qū)別！~

我們做過(guò)好幾個(gè)升級(jí)的程序 有的不用改 有的簡(jiǎn)單修改 有的基本重寫(xiě)！~