關(guān)于vb.net事件聲明的信息

vb.net：聲明事件和引用事件分別用的什么語(yǔ)句

聲明事件只需用

成都創(chuàng)新互聯(lián)10多年企業(yè)網(wǎng)站建設(shè)服務(wù);為您提供網(wǎng)站建設(shè),網(wǎng)站制作,網(wǎng)頁(yè)設(shè)計(jì)及高端網(wǎng)站定制服務(wù),企業(yè)網(wǎng)站建設(shè)及推廣,對(duì)成都效果圖設(shè)計(jì)等多個(gè)領(lǐng)域擁有多年的網(wǎng)站設(shè)計(jì)經(jīng)驗(yàn)的網(wǎng)站建設(shè)公司。

private event 事件名稱(參數(shù)表)

在通用部分聲明

引用這個(gè)詞不太恰當(dāng)，應(yīng)該說(shuō)是觸發(fā)

在需要觸發(fā)的地方用

raiseevent 事件名稱(參數(shù)表)就可以了

(vb.net)動(dòng)態(tài)添加的控件如何多次響應(yīng)事件？

熟悉VB的朋友對(duì)使用ActiveX控件一定不會(huì)陌生，眾多控件極大地方便了編程，但

唯一的缺陷是不能動(dòng)態(tài)加載控件，必須在設(shè)計(jì)時(shí)通過(guò)引用，將控件放置在窗體上。

VB6.0已能夠解決該問(wèn)題，只是幫助中沒(méi)有明確說(shuō)明，并且沒(méi)有描述到一些關(guān)鍵功能，

由于以前的版本中可以動(dòng)態(tài)創(chuàng)建進(jìn)程外服務(wù)：如果對(duì)象是外部可創(chuàng)建的，可在 Set 語(yǔ)

句中用 New 關(guān)鍵字、CreateObject 或 GetObject 從部件外面將對(duì)象引用賦予變量。

如果對(duì)象是從屬對(duì)象，則需使用高層對(duì)象的方法，在 Set 語(yǔ)句中指定一個(gè)對(duì)象引用：

Dim xlApp1 As Excel.Application

Set xlApp1 = New Excel.Application

或

Dim xlApp As Object '定義存放引用對(duì)象的變量。

Set xlApp = CreateObject("excel.application")

xlApp.Visible = True

---- 這些語(yǔ)法很容易造成誤導(dǎo)，以為動(dòng)態(tài)加載ActiveX控件也是此方法，可能有朋友也

象我一樣利用CreateObject嘗試了無(wú)數(shù)次，卻無(wú)功而返，不知微軟公司是出于何種考

慮，動(dòng)態(tài)加載ActiveX控件是擴(kuò)展控件集合的方式實(shí)現(xiàn)，通過(guò)實(shí)際摸索，終于就如何實(shí)

現(xiàn)動(dòng)態(tài)ActiveX控件找出了一條切實(shí)可行的方法，下面以一個(gè)具體的實(shí)例來(lái)詳細(xì)說(shuō)明。

一、ActiveX控件

---- ActiveX 控件是 Visual Basic 工具箱的擴(kuò)充部分。使用 ActiveX 控件的方法與

使用其它標(biāo)準(zhǔn)內(nèi)裝的控件，如 CheckBox 控件，完全一樣。在程序中加入 ActiveX 控

件后，它將成為開發(fā)和運(yùn)行環(huán)境的一部分，并為應(yīng)用程序提供新的功能。

---- ActiveX 部件通過(guò)客戶端/服務(wù)器關(guān)系與應(yīng)用程序— 及與部件相互之間— 交互作

用。客戶端是使用部件功能的應(yīng)用程序代碼或部件。服務(wù)器是部件及其關(guān)聯(lián)的對(duì)象。例

如，假設(shè)應(yīng)用程序使用 ActiveX 控件來(lái)提供一個(gè)標(biāo)準(zhǔn)的雇員窗體，供公司的多種應(yīng)用

程序使用。提供雇員窗體的 ActiveX 控件就是服務(wù)器，使用這個(gè)控件的應(yīng)用程序就是

服務(wù)器的客戶端。

二、加載方法

---- VB6.0中對(duì)Controls 集合進(jìn)行了擴(kuò)展，以前版本中Controls 集合在窗體上列舉出

已加載的控件，這在迭代過(guò)程中是很有用的。Controls 集合標(biāo)識(shí)一個(gè)叫做 Controls

的內(nèi)在窗體級(jí)變量。如果忽略可選的 object 所在處的整數(shù)，則關(guān)鍵字 Controls 必須

包括在內(nèi)。我們通常在窗口中使用如下代碼：

Text1.Text="Hello, world"

其實(shí)也可以使用如下代碼達(dá)到同一目的：

Controls(1).Text="Hello, world"

---- 在VB6.0中除了原來(lái)的Clear、Remove 方法外(很奇怪，為什么微軟在VB5.0中只提

供這兩種方法，而沒(méi)有提供Add方法，因?yàn)闆](méi)有Add，這兩種方法也就沒(méi)什么用處)，增

加了Add方法，該方法就是用于動(dòng)態(tài)加載控件的：

Controls.Add(progid as String, Name as String);

progid： ActiveX部件的ProgID，如："VB.CheckBox"；

Name：ActiveX部件加載后的名稱，如： "MyCheckBox"；

若要在窗體上添加一個(gè)名為MyButton的按鈕，可以使用：

dim oControl as Object '窗體級(jí)變量

注意：這里聲明為Object對(duì)象類型

Private Sub LoadControl()

Set oControl = Controls.Add

("VB.CommandButton", "MyButton")

oControl.Left = 10

oControl.Top = 10

oControl.Visible = True '使控件可見(jiàn)

End Sub

---- 這是VB6.0的標(biāo)準(zhǔn)語(yǔ)法，它在例程中也是如此演示的，不過(guò)該方法雖然現(xiàn)實(shí)了控件

的動(dòng)態(tài)加載，按鈕顯示在窗體上，可以象普通按鈕一樣按下去，但加載的控件不能預(yù)先

設(shè)計(jì)響應(yīng)事件代碼，如：事件Sub MyButton_Click()將是非法的，當(dāng)然，可以將要響應(yīng)

的事件封裝在控件內(nèi)部。就編程的觀點(diǎn)來(lái)看該方法沒(méi)什么大的用處，開發(fā)ActiveX控件

的目的是為了資源共享，為了被其他開發(fā)人員利用，所以要提供必要的事件接口，顯然

利用該方法不行，通過(guò)分析VBControls等相關(guān)對(duì)象，找出VBControlExtender對(duì)象與

EventInfo相結(jié)合能提供事件陷井捕捉，VBControlExtender對(duì)象對(duì)動(dòng)態(tài)添加控件特別有

用，它提供了一套通用的屬性、方法、事件給開發(fā)人員，它的一個(gè)突出特點(diǎn)是能編程設(shè)

計(jì)控件的事件，熟習(xí)類編程的朋友對(duì)帶事件的對(duì)象聲明一定不會(huì)陌生：

---- Dim WithEvents objElemt as CElemtVBControlExtender也不例外，聲明的語(yǔ)法

一樣，只不過(guò)它有個(gè)特殊的事件ObjectEvent(Info As EventInfo)，它能捕捉到對(duì)象使

用RaiseEvent產(chǎn)生的所有事件，EventInfo數(shù)據(jù)結(jié)構(gòu)映射了事件的名稱、參數(shù)個(gè)數(shù)和參

數(shù)的值。VBControlExtender和 EventInfo相結(jié)合，采用Select Case 就可以預(yù)先將不

同類對(duì)象的事件放置一起，各自獨(dú)立運(yùn)作。將上面的代碼改寫一下就能提供Click事件

了：

---- Dim WithEvents oControl As VBControlExtender '帶事件聲明聲明之后您就可

以在代碼窗口的左上角的對(duì)象下拉框中發(fā)現(xiàn)該對(duì)象出現(xiàn)了，也就是說(shuō)，該對(duì)象有了事件

或方法了，它的事件有DragDrop，DragOver ，LostFocus ，GotFocus ，ObjectEvent

和Validate，其中ObjectEvent是通用的事件捕捉。

Private Sub LoadControl()

Set oControl = Controls.Add

("VB. CommandButton", "MyButton")

oControl.Visible = True

End Sub

Private Sub oControl_ObjectEvent(Info As EventInfo)

Select Case Info.Name

Case "Click" 'Click事件

'您可以添加處理Click事件代碼

MsgBox "您按了MyButton!"

Case Else ' 其他事件

' Handle unknown events here.

End Select

End Sub

---- 當(dāng)然對(duì)微軟提供的標(biāo)準(zhǔn)控件能采用該方法添加，大家都不會(huì)懷疑，但自己開發(fā)的

控件也能嗎？答案是肯定的，我們可以用一個(gè)實(shí)際的例子進(jìn)行說(shuō)明。

vb.net引發(fā)事件的問(wèn)題，RaiseEvent

在代碼的開頭:

用WithEvents聲明類，比如 Private WithEvents 變量名 As New 類名

用Handles邦定事件，比如Private Sub 過(guò)程名() Handles 變量.事件名

最后引發(fā)事件就相當(dāng)于執(zhí)行定義好的一個(gè)綁定過(guò)程

本文題目：關(guān)于vb.net事件聲明的信息
網(wǎng)址分享：http://m.kartarina.com/article4/hgjooe.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供全網(wǎng)營(yíng)銷推廣、外貿(mào)建站、關(guān)鍵詞優(yōu)化、微信公眾號(hào)、建站公司、網(wǎng)站改版

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)