Are you Japanese? Why the slogan is Japanese?

紅花崗網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián),紅花崗網(wǎng)站設(shè)計制作,有大型網(wǎng)站制作公司豐富經(jīng)驗。已為紅花崗成百上千家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站建設(shè)公司要多少錢,請找那個售后服務(wù)好的紅花崗做網(wǎng)站的公司定做!
Your code directly put it in VB6.0 by use, save the source, then the open method of vb.net upgrade.
I'm not Japanese, so we had to communicate in English with you, sorry.
你可以直接打開 VB6 的程序,VB.net 會自動啟動升級向?qū)⒛愕?VB6 代碼升級為 VB.net。
樣是不行的,要轉(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ù)組來比較.
使用.net的升級向?qū)?雖然不能完全升級但大部分代碼都升級了,再做略微修改
本文名稱:vb轉(zhuǎn)換成vbnet,vb進制轉(zhuǎn)換
網(wǎng)址分享:http://chinadenli.net/article28/hsgicp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供ChatGPT、網(wǎng)站改版、網(wǎng)站建設(shè)、云服務(wù)器、Google、動態(tài)網(wǎng)站
聲明:本網(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)