Dim?file1?As?FileStream
創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供貢井網(wǎng)站建設(shè)、貢井做網(wǎng)站、貢井網(wǎng)站設(shè)計、貢井網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計與制作、貢井企業(yè)網(wǎng)站模板建站服務(wù),10余年貢井做網(wǎng)站經(jīng)驗,不只是建網(wǎng)站,更提供有價值的思路和整體網(wǎng)絡(luò)服務(wù)。
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ù)組來比較.
樣是不行的,要轉(zhuǎn)化成VB.net只有重新改編,因為框架不同語法也有太多的不同
你可以直接打開 VB6 的程序,VB.net 會自動啟動升級向?qū)⒛愕?VB6 代碼升級為 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
能不能轉(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ū)別!~
我們做過好幾個升級的程序 有的不用改 有的簡單修改 有的基本重寫!~