VB6和vb.net的數(shù)據(jù)庫操作有很大不同,不能簡單的語句對語句轉(zhuǎn)換,建議你深入了解vb.net的數(shù)據(jù)庫操作,再做移植
創(chuàng)新互聯(lián)公司專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù),包含不限于成都網(wǎng)站制作、網(wǎng)站設(shè)計(jì)、外貿(mào)網(wǎng)站建設(shè)、蓋州網(wǎng)絡(luò)推廣、成都小程序開發(fā)、蓋州網(wǎng)絡(luò)營銷、蓋州企業(yè)策劃、蓋州品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營等,從售前售中售后,我們都將竭誠為您服務(wù),您的肯定,是我們最大的嘉獎(jiǎng);創(chuàng)新互聯(lián)公司為所有大學(xué)生創(chuàng)業(yè)者提供蓋州建站搭建服務(wù),24小時(shí)服務(wù)熱線:13518219792,官方網(wǎng)址:www.chinadenli.net
VS2008中的叫做VB.NET,運(yùn)行在NET平臺上,對VB6的語法改變了一些,功能也比較強(qiáng)大了,與.NET平臺的其他語言開發(fā)工具容易接合,控件樣式等也有所改進(jìn)。
VB6是VS98時(shí)代的開發(fā)工具,當(dāng)然比VB.NET輕量些,容易上手些,其面向?qū)ο蟪绦蛟O(shè)計(jì)的思想和實(shí)現(xiàn)上沒有VB.NET體現(xiàn)得充分。
引用 Microsoft DAO 3.6 Object Library
Public Function DaoOpenDB(ByVal pDbType As String, ByVal pDbName As String, ByVal pMdbCnct As String) As Integer
On Error GoTo Err_Handler
Dim m_DbDataBase As DAO.Database
Dim gwsMainworkSpace As DAO.Workspace
Dim DAODBEngine As New DAO.DBEngine()
Dim m_DbWkSpace = DAODBEngine.CreateWorkspace("", " Admin ", "")
If pDbType = "c_ACCESS" Then
'Access
m_DbDataBase = m_DbWkSpace.OpenDatabase(pDbName)
Else
'Oracle
m_DbDataBase = m_DbWkSpace.OpenDatabase(pDbName, True, False, pMdbCnct)
End If
DaoOpenDB = c_OK '你在全局中已定義
Exit Function
Err_Handler:
DaoOpenDB = c_NG '你在全局中已定義
MsgBox(Err.Description, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Err")
End Function
Dim i As Integer,wd As Integer,hd As Integer
Dim Obj As HtmlDocument=WebBrowser1.Document.GetElementsByTagName("iframe")(2).Document
For i=0 To Obj.Images.Count-1
wd=Obj.Images(i).OffsetRectangle.Width
hd=Obj.Images(i).OffsetRectangle.Height
If wd=800 Or wd=790 Then
Call tupxiazai(Obj.Images(i).GetAttribute("SRC"),Application.StartupPath "\image\" i "pic.jpg")
End If
Next
在您的代碼中,您已經(jīng)成功使用了RegAsm命令將DLL注冊為COM組件,并在VB6中成功引用了該組件的類型庫文件(TLB文件)。此外,您還在VB6代碼中聲明了一個(gè)YCImageDo類型的對象,并成功創(chuàng)建了該對象。
但是,當(dāng)您嘗試使用YCImageDo對象的屬性和方法時(shí),卻發(fā)現(xiàn)這些成員不可見。這可能是因?yàn)樵诰帉慏LL代碼時(shí)您沒有正確地聲明這些成員的可見性。
在VB.NET中,您可以使用"Public"關(guān)鍵字來聲明一個(gè)類型的成員(屬性、方法、過程等)對外可見,而使用"Private"關(guān)鍵字則聲明該成員僅在類型內(nèi)可見。如果您希望YCImageDo類型的成員在VB6代碼中可見,則應(yīng)將這些成員聲明為Public類型。
例如,如果您希望YCImageDo類型擁有一個(gè)名為"GetImage"的方法,則可以在DLL代碼中按如下方式聲明該方法:
Public Function GetImage() As String
' 在這里編寫方法的代碼
End Function
同樣,如果您希望YCImageDo類型擁有一個(gè)名為"ImagePath"的屬性,則可以在DLL代碼中按如下方式聲明該屬性:
Public Property ImagePath As String
能不能轉(zhuǎn)換 主要取決于vb6的源程序是不是使用了第三方控件 如果用了 那這些全部都不能轉(zhuǎn)!~
如果vb6里面有控件數(shù)組vb.net會自動(dòng)生成出一套東西(vb.net里面已經(jīng)沒有控件數(shù)組)模擬控件數(shù)組
如果vb6的程序很簡單的話,轉(zhuǎn)成.net之后應(yīng)該改的地方不大!~
絕對你應(yīng)該先弄清楚以前vb6的程序具體用了什么 然后去微軟查一下vb6升級到vb.net最大的區(qū)別!~
我們做過好幾個(gè)升級的程序 有的不用改 有的簡單修改 有的基本重寫!~
網(wǎng)頁題目:vb6代碼net vb6代碼轉(zhuǎn)vs2010
轉(zhuǎn)載來源:http://www.chinadenli.net/article0/doojcio.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供動(dòng)態(tài)網(wǎng)站、全網(wǎng)營銷推廣、營銷型網(wǎng)站建設(shè)、關(guān)鍵詞優(yōu)化、網(wǎng)站導(dǎo)航、定制開發(fā)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)