VB點(diǎn)虐 編寫(xiě)的dll，供vb6調(diào)用時(shí)dll中的函數(shù)不可見(jiàn)？

在您的代碼中，您已經(jīng)成功使用了RegAsm命令將DLL注冊(cè)為COM組件，并在VB6中成功引用了該組件的類型庫(kù)文件（TLB文件）。此外，您還在VB6代碼中聲明了一個(gè)YCImageDo類型的對(duì)象，并成功創(chuàng)建了該對(duì)象。

創(chuàng)新互聯(lián)公司堅(jiān)持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：成都網(wǎng)站設(shè)計(jì)、網(wǎng)站建設(shè)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時(shí)代的聞喜網(wǎng)站設(shè)計(jì)、移動(dòng)媒體設(shè)計(jì)的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！

但是，當(dāng)您嘗試使用YCImageDo對(duì)象的屬性和方法時(shí)，卻發(fā)現(xiàn)這些成員不可見(jiàn)。這可能是因?yàn)樵诰帉?xiě)DLL代碼時(shí)您沒(méi)有正確地聲明這些成員的可見(jiàn)性。

在VB.NET中，您可以使用"Public"關(guān)鍵字來(lái)聲明一個(gè)類型的成員（屬性、方法、過(guò)程等）對(duì)外可見(jiàn)，而使用"Private"關(guān)鍵字則聲明該成員僅在類型內(nèi)可見(jiàn)。如果您希望YCImageDo類型的成員在VB6代碼中可見(jiàn)，則應(yīng)將這些成員聲明為Public類型。

例如，如果您希望YCImageDo類型擁有一個(gè)名為"GetImage"的方法，則可以在DLL代碼中按如下方式聲明該方法：

Public Function GetImage() As String

' 在這里編寫(xiě)方法的代碼

End Function

同樣，如果您希望YCImageDo類型擁有一個(gè)名為"ImagePath"的屬性，則可以在DLL代碼中按如下方式聲明該屬性：

Public Property ImagePath As String

如何正確理解VB.NET函數(shù)調(diào)用

1. Shared Function System.Runtime.

InteropServices.DLLimport("user32.dll")

2. MessageBoxA(ByVal hwnd As Integer,

ByVal text As String, ByVal

lpcaption As String, ByVal

wtype As Integer) As Integer

3. End Function

首先integer被作為32位數(shù)據(jù)替代了long(long是64位)

System是Net語(yǔ)言中的一個(gè)族，System.Runtime.InteropServices是system中的一個(gè)類。System.Runtime.InteropServices.DLLimpor是其中的一個(gè)方法。調(diào)用DLL的API

接口，這個(gè)的意思就是vb6的lib"user32", share是共享的意思，例如：

1. Public Class classA

2. Shared Function System.Runtime.

InteropServices.DLLimport("user32.dll")

MessageBoxA(ByVal h As Integer,

ByVal m As String, ByVal c As

String, ByVal type As Integer) As Integer

3. End Function

4. End Class

你可以這樣調(diào)用 classA.MessageboxA 但是如果沒(méi)有這個(gè)share 在class后打點(diǎn)就沒(méi)有MessageboxA的成員出現(xiàn)了 ，現(xiàn)在你就象以前一樣的使用他吧。

其實(shí)上面這個(gè)VB.NET函數(shù)調(diào)用方法并不正確，我們?nèi)耘f要使用API聲明，只是換了一各形式

如果你認(rèn)為這就是VB.NET就錯(cuò)了，看看這個(gè)：

system.WinForms.MessageBox.Show("對(duì)話內(nèi)容寫(xiě)在這里", "標(biāo)題寫(xiě)在這里", messagebox.OK BitOr messagebox.IconAsterisk)

這就是面向?qū)ο?，你已?jīng)完成了所有的任務(wù)。不需要任何的API聲明。不需要寫(xiě)多余的代碼。

1. messagebox.IconAsterisk=驚嘆號(hào)圖標(biāo)

2. messagebox.IconError=錯(cuò)誤圖標(biāo)

3. messagebox.IconExclamation=警告圖標(biāo)

4. messagebox.IconHand=錯(cuò)誤圖標(biāo)

5. messagebox.IconInformation=提示圖標(biāo)

所經(jīng)點(diǎn)NET就是打點(diǎn)到達(dá)，在族后面打點(diǎn)，在類后面打點(diǎn)，在對(duì)象后面打點(diǎn)。第二個(gè)問(wèn)題就是類與類之間相互的關(guān)系，Net在網(wǎng)上處理人與人的關(guān)系，在程序語(yǔ)言中處理類與類的關(guān)系。倒底是加不加share,倒底是類后面打點(diǎn),還是Dim成一個(gè)對(duì)象（把他當(dāng)一個(gè)變量吧）再說(shuō)，是等于class,還是New class.是dim xxx as class=new class 還是dim xxx as new class

就是這樣VB.NET函數(shù)調(diào)用將更簡(jiǎn)單，不須要研究一些很難的東西。

vb點(diǎn)虐 嘗試讀取或?qū)懭胧鼙Ｗo(hù)的內(nèi)存。這通常指示其他內(nèi)存已損壞

這說(shuō)明你調(diào)用 API 傳參存在問(wèn)題。

首先有沒(méi)有設(shè)置結(jié)構(gòu)體內(nèi)存對(duì)齊？

[StructLayout(LayoutKind.Sequential)] 加了嗎？

COLORREF 不要用 Color 代替，用 int 代替

TCHAR cfFaceName[32] 定義為 Byte 數(shù)組也可以，帶在傳參前，必須初始化為 32 個(gè)長(zhǎng)度

如何在VB.NET中引用CSGL庫(kù)?

在VB.NET中不能直接添加opengl,需要引用csgl庫(kù).具體方法如下:

1 下載csgl庫(kù)，壓縮包內(nèi)有l(wèi)ibinstall和dep兩個(gè)文件夾

2 運(yùn)行l(wèi)ibinstall文件夾下的install程序,將csgl.dll和csgl.native.dll文件添加至系統(tǒng)文件夾。

3 運(yùn)用dep文件夾下的ResBuider程序（具體功能暫不可知）。

4 將dep文件夾下的Debug和Release文件夾內(nèi)容分別復(fù)制到運(yùn)行目錄的相應(yīng)文件夾中即可。