VB6.0調(diào)用點(diǎn)虐 COM組件問題

調(diào)用.Net的

讓客戶滿意是我們工作的目標(biāo)，不斷超越客戶的期望值來自于我們對這個行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡單的方式提供給客戶，將通過不懈努力成為客戶在信息化領(lǐng)域值得信任、有價值的長期合作伙伴，公司提供的服務(wù)項目有：域名與空間、虛擬空間、營銷軟件、網(wǎng)站建設(shè)、林口網(wǎng)站維護(hù)、網(wǎng)站推廣。

程序集

還是

COM組件

，

這是不同的，

如果你用Visual

Studio，那在項目的引用那里直接引用就可以了，.Net程序集和COM組件在不同的Tab頁里。

COM組件要先注冊才能看到

regsvr32

com.dll

如何使用VB.NET中可選參數(shù)調(diào)用方法

VB.NET可選參數(shù)的默認(rèn)值必須是一個常數(shù)表達(dá)式。

過程定義中跟在可選參數(shù)后的每個參數(shù)也都必須是可選的。

下面的語法顯示帶VB.NET可選參數(shù)的過程聲明：

Sub sub name（ByVal parameter 1 As data type 1,

Optional ByVal parameter 2 As data type 2 = default value）

調(diào)用帶VB.NET可選參數(shù)的過程

過程在運(yùn)行時無法檢測到給定的參數(shù)是否已被省略，或者調(diào)用代碼是否已顯式提供默認(rèn)值。如果需要弄清楚這一點(diǎn)，可以設(shè)置一個不可能的值作為默認(rèn)值。下面的過程定義了可選參數(shù) office,并測試其默認(rèn)值 QJZ 以查看它在調(diào)用中是否已被省略：

Visual Basic

Sub notify（ByVal company As String, Optional ByVal office As String = "QJZ"）

If office = "QJZ" Then

Debug.WriteLine（"office not supplied -- using Headquarters"）

office = "Headquarters" End If

' Insert code to notify headquarters or specified office.

End Sub

如果可選參數(shù)是像 String 這樣的引用類型，只要它不是該變量所預(yù)期的值，就可以使用 Nothing 作為默認(rèn)值。

VB.NET可選參數(shù)和重載

定義帶可選參數(shù)的過程的另一種方法是使用重載。如果有一個可選參數(shù)，可以定義過程的兩個重載版本，一個接受此參數(shù)，另一個則不帶參數(shù)。此方法隨可選參數(shù)數(shù)目的增加而變得更復(fù)雜。然而，這樣做的優(yōu)點(diǎn)是可以完全確定調(diào)用程序是否提供了每個VB.NET可選參數(shù)。

如何正確理解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語言中的一個族，System.Runtime.InteropServices是system中的一個類。System.Runtime.InteropServices.DLLimpor是其中的一個方法。調(diào)用DLL的API

接口，這個的意思就是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 但是如果沒有這個share 在class后打點(diǎn)就沒有MessageboxA的成員出現(xiàn)了 ，現(xiàn)在你就象以前一樣的使用他吧。

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

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

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

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

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

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

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

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

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

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

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