VB常用控件的事件詳解Word版

1、VB常用控件的事件詳解第一章、標(biāo)準(zhǔn)控件的事件1.01 窗體(Form)的事件1.02 文本框控件(Text)的事件 1.03 標(biāo)簽控件(Label)的事件 1.04 框架控件(Frame)的事件 1.05 命令按鈕控件(CommandButton)的事件 1.06 復(fù)選鈕控件(Check)的事件 1.07 單選鈕控件(Option)的事件 1.08 組合框控件(Combo)的事件 1.09 列表框控件(List)的事件 1.10 滾動條控件(HScrollBar和VScrollBar)的事件 1.11 定時器控件(Timer)的事件 1.12 文件列表框控件(File)的事件 1.13 目錄列

2、表框控件(Dir)的事件 1.14 驅(qū)動器列表框控件(Drive)的事件 1.15 圖片框控件(Picture)的事件 1.16 圖象控件(Image)的事件 1.17 數(shù)據(jù)控件(Data)的事件 1.18 OLE容器控件(OLE)的事件 1.19 菜單控件的事件   第二章、ActiveX控件的屬性2.01 ActiveMoviel控件的事件2.02 Adodc控件的事件2.03 Animation控件的事件2.04 CoolBar控件的事件2.05 數(shù)據(jù)組合框(DataCombo)控件的事件2.06 數(shù)據(jù)型電子表格(DataGrid)控件的事件2.07 數(shù)據(jù)列表(DataList

3、)控件的事件2.08 DTPicker控件的事件2.09 平面滾動條(FlatScrollBar)控件的事件2.10 圖像組合框(ImageCombo)控件的事件2.11 Inet控件的事件2.12 列表視圖(ListView)控件的事件2.13 MaskEdBox控件的事件2.14 多媒體(MMControl)控件的事件2.15 月視圖(MonthView)控件的事件2.16 圖表(MSChard)控件的事件2.17 MSComm控件的事件2.18 電子表格(MSFlexGrid)控件的事件2.19 層次型電子表格(MSHFlexGrid)控件的事件2.20 MSRDC控件的事件2.21 進(jìn)

4、度欄(ProgressBar)控件的事件2.22 RichTextBox控件的事件2.23 滑動塊(Slider)控件的事件2.24 選項卡(SSTab)控件的事件2.25 狀態(tài)欄(StatuaBar)控件的事件2.26 SysInfo控件的事件2.27 選項卡(TabStrip)控件的事件2.28 工具欄(ToolBar)控件2.29 樹狀視圖(TreeView)控件2.30 UpDown控件2.31 Winsock控件 第一章、標(biāo)準(zhǔn)控件的事件1.01、 窗體(Form)的事件事件名稱事件處理過程原形及說明Activate (激活)當(dāng)窗體變?yōu)榛顒哟绑w時發(fā)生此事件，此事件比Load事

5、件發(fā)生得晚，事件處理過程原形 Private Sub Form_Activate() End Sub 此事件常用于激活窗體后對窗體進(jìn)行初始化，比Load事件功能強(qiáng)。Click(單擊)當(dāng)用戶單擊窗體時發(fā)生此事件，事件處理過程原形 Private Sub Form_Click() End SubDblClick (雙擊)當(dāng)用戶雙擊窗體時發(fā)生此事件，事件處理過程原形 Private Sub Form_DblClick() End SubDeactivatePrivate Sub Form_Deactivate() End SubDragDrop當(dāng)完成一個完整的拖放動作或使用Drag方法時，發(fā)生此事件

6、，事件處理過程原形 Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)End Sub 形參的意義： Source 正在被拖動的控件。 X、Y 是一個指定當(dāng)前鼠標(biāo)指針在目標(biāo)窗體或控件中水平(X)和垂直(Y)位置的數(shù)字。DragOver當(dāng)用戶進(jìn)行拖放操作時發(fā)生此事件，事件處理過程原形 Private Sub Form_DragOver(Source As Control, X As Single, Y As Single, State As Integer)End Sub 形參的意義： Source 正在被拖

7、動的控件。 X、Y 是一個指定當(dāng)前鼠標(biāo)指針在目標(biāo)窗體或控件中水平(X)和垂直(Y)位置的數(shù)字。GotFocus (獲得焦點)當(dāng)獲得焦點時發(fā)生此事件，事件處理過程原形 Private Sub Form_GotFocus() End SubInitialize當(dāng)應(yīng)用程序創(chuàng)建Form、MDIForm、User控件、PropertyPage或類的實例時發(fā)生。事件處理過程原形 Private Sub Form_Initialize() End SubKeyDown (按下鍵)當(dāng)窗體上沒有能獲得焦點的控件(如文本框控件)時，用戶按下鍵盤上某個鍵時發(fā)生此事件，事件處理過程原形 Private Sub For

8、m_KeyDown(KeyCode As Integer, Shift As Integer)End Sub 形參的意義： KeyCode 按鍵的編碼Shift 轉(zhuǎn)換鍵，意義如下：0 沒有轉(zhuǎn)換鍵按下1 Shift鍵按下2 Ctrl鍵按下3 Alt鍵按下 當(dāng)多個轉(zhuǎn)換鍵同時按下時，應(yīng)把幾個鍵對應(yīng)的數(shù)值相加KeyPress (敲擊鍵)當(dāng)窗體上沒有能獲得焦點的控件(如文本框控件)時，用戶敲擊鍵盤上某個鍵時發(fā)生此事件，事件處理過程原形 Private Sub Form_KeyPress(KeyAscii As Integer)End Sub 形參的意義： KeyAscii 按鍵Ascii碼若改變KeyA

9、scii參數(shù)，相當(dāng)于按下了不同的鍵，若置此參數(shù)為0，則取消按鍵。KeyUp (釋放鍵)當(dāng)窗體上沒有能獲得焦點的控件(如文本框控件)時，用戶按下鍵盤上某個鍵后釋放時發(fā)生此事件，事件處理過程原形 Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)End Sub 形參的意義請參閱KeyDown事件LinkClose此事件在一個DDE對話結(jié)束時發(fā)生此事件，事件處理過程原形 Private Sub Form_LinkClose()End SubLinkError當(dāng)一個DDE對話過程中出現(xiàn)錯誤時，發(fā)生此事件。事件處理過程原形 Priva

10、te Sub Form_LinkError(LinkErr As Integer)End Sub 形參的意義： LinkErr 是一個與DDE有關(guān)錯誤的錯誤號，返回值如下所述 返回值描述1另一個應(yīng)用程序按錯誤的格式已經(jīng)請求過數(shù)據(jù)。在VisualBasic試圖找出另一種應(yīng)用程序識別的格式時，這種錯誤可能連續(xù)出現(xiàn)幾次6當(dāng)發(fā)送端窗體上的LinkMode屬性設(shè)置為0（無）之后，接收端應(yīng)用程序試圖繼續(xù)DDE對話7所有源鏈接都在使用中（每個源最多有128個鏈接）8對目標(biāo)控件來說：一個自動鏈接或LinkRequest方法更新控件中的數(shù)據(jù)失敗對源窗體來說：目標(biāo)試圖將數(shù)據(jù)放置到一個控件中去，并且失敗11無足夠的

11、內(nèi)存給DDE使用LinkExecute當(dāng)一個DDE對話中的命令字符串由一個接收端應(yīng)用程序發(fā)出時發(fā)生此事件。事件處理過程原形 Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer)End Sub 形參的意義： cmdstr 由目標(biāo)應(yīng)用程序所發(fā)出的命令字符串表達(dá)式cancel 是一個整數(shù)，告訴目標(biāo)該命令字符串是否被接受。將cancel設(shè)置為0是通知目標(biāo)該命令字符串被接受。將cancel設(shè)置為任何一個非零的值通知目標(biāo)該命令字符串被拒絕（缺省值被設(shè)置為-1，指示的是cancel）LinkOpen當(dāng)一個DDE對話正在啟動時發(fā)生此

12、事件。事件處理過程原形 Private Sub Form_LinkOpen(Cancel As Integer)End Sub 形參的意義： Cancel 是一個整數(shù)，它用來確定該DDE對話是否建立。讓cancel設(shè)置為0（缺省值）可建立該對話。將cancel設(shè)置為任何非零值則拒絕對話Load (裝載)窗體裝入時發(fā)生此事件，事件處理過程原形 Private Sub Form_Load()End Sub 此事件常用于窗體裝入后對窗體進(jìn)行初始化，但有局限性，有些程序須在Activate事件中才能完成LostFocus (丟失焦點)當(dāng)丟失焦點時發(fā)生此事件，事件處理過程原形 Private Sub F

13、orm_LostFocus()End SubMouseDown(按下鼠標(biāo))當(dāng)鼠標(biāo)在窗體上，用戶按下鼠標(biāo)鍵時發(fā)生此事件，事件處理過程原形 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)End Sub 形參的意義： Button 標(biāo)識按下哪個鼠標(biāo)鍵：1、 按下鼠標(biāo)左鍵2、 按下鼠標(biāo)右鍵3、 按下鼠標(biāo)左右兩鍵Shift鍵的意義請參閱KeyDown事件X、Y 按下鼠標(biāo)鍵時的坐標(biāo)MouseMove(鼠標(biāo)移動)當(dāng)鼠標(biāo)在窗體上移動時發(fā)生此事件，事件處理過程原形 Private

14、Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)End Sub 形參的意義： X、Y 鼠標(biāo)移動過程中的瞬時坐標(biāo)其它各參數(shù)的意義請參閱MouseDown事件MouseUp (釋放鼠標(biāo))當(dāng)鼠標(biāo)在窗體上，用戶釋放鼠標(biāo)鍵時發(fā)生此事件，事件處理過程原形 Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)End Sub 形參的意義： X、Y 鼠標(biāo)移動釋放時的瞬時坐標(biāo)其它各

15、參數(shù)的意義請參閱MouseDown事件OLECompleteDrag當(dāng)源部件被放到目標(biāo)部件時發(fā)生此事件，并通知源部件拖放操作被執(zhí)行或取消。事件處理過程原形Private Sub Form_OLECompleteDrag(Effect As Long)End Sub 形參的意義： Effect 源對象設(shè)置的長整型數(shù)，用來識別執(zhí)行的動作，這樣當(dāng)部件被移動后允許源采取適當(dāng)?shù)膭幼?。可能的取值列于下表?常數(shù)值描述vbDropEffectNone0放目標(biāo)不接受數(shù)據(jù)，或者放操作被取消vbDropEffectCopy1放結(jié)果保存于從源到目標(biāo)的數(shù)據(jù)拷貝中。初始數(shù)據(jù)沒有被拖放操作改變vbDropEffectMo

16、ve2放結(jié)果保存于初始數(shù)據(jù)的連接中，該數(shù)據(jù)是在拖放源和放目標(biāo)之間產(chǎn)生的OLEDragDrop在OLEDropMode被設(shè)置為1(Manual)時，當(dāng)源部件被放到目標(biāo)部件時，發(fā)生此事件。事件處理過程原形Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)End Sub 形參的意義： Data DataObject對象，包含源提供的格式，另外也可能包含這些格式的數(shù)據(jù)。若DataObject不包含數(shù)據(jù)

17、，則當(dāng)控件調(diào)用GetData方法時提供數(shù)據(jù)。SetData和Clear方法不能用在這里Effect 源對象設(shè)置的長整型數(shù)，用來識別執(zhí)行的動作，這樣當(dāng)部件被移動后允許源采取適當(dāng)?shù)膭幼鳌？赡艿娜≈盗杏谙卤碇?常數(shù)值描述vbDropEffectNone0放目標(biāo)不接受數(shù)據(jù)，或者放操作被取消vbDropEffectCopy1放結(jié)果保存于從源到目標(biāo)的數(shù)據(jù)拷貝中。初始數(shù)據(jù)沒有被拖放操作改變vbDropEffectMove2放結(jié)果保存于初始數(shù)據(jù)的連接中，該數(shù)據(jù)是在拖放源和放目標(biāo)之間產(chǎn)生的vbDropEffectScroll-2147483648(&H80000000)在目標(biāo)部件中，滾動正在或?qū)⒁l(fā)生。

18、此值與其它值共同使用。注意僅當(dāng)在部件中執(zhí)行自己的滾動時才能應(yīng)用Button 整數(shù)，當(dāng)按下鼠標(biāo)鍵時，與鼠標(biāo)狀態(tài)相對應(yīng)。左鍵為位0，右鍵為位1，中鍵為位2。這些位相應(yīng)的值分別為1，2和4，它代表了鼠標(biāo)鍵的狀態(tài)?？稍O(shè)置三個位中的部分、全部或根本不設(shè)置，相應(yīng)地表明部分、全部按鍵被按下或沒有按鍵按下 Shift 整數(shù)，當(dāng)按下SHIFT、CTRL和ALT鍵時，與這些鍵狀態(tài)相對應(yīng)。SHIFT鍵為位0，CTRL鍵為位1，ALT鍵為位2。這些位相應(yīng)的值分別為1，2和4，shift參數(shù)代表了這些鍵的狀態(tài)?？稍O(shè)置三個位中的部分、全部或根本不設(shè)置，相應(yīng)地表明部分、全部按鍵被按下或沒有按鍵按下。例如，同時按下CTRL和

19、ALT鍵，shift值為6 X、Y 確定鼠標(biāo)指針當(dāng)前位置的數(shù)值。OLEDragOver當(dāng)一個部件在另一個部件上拖動時發(fā)生此事件。事件處理過程原形Private Sub Form_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)End Sub 形參的意義： State 整數(shù)，相應(yīng)于控件的轉(zhuǎn)換狀態(tài)，此控件將被拖放到與其相關(guān)的目標(biāo)窗體或控件中?？赡艿娜≈盗杏谙卤碇?常數(shù)值描述vbEnter0在目

20、標(biāo)范圍內(nèi)源部件正被拖動vbLeave1在目標(biāo)范圍之外源部件正被拖動vbOver2在目標(biāo)內(nèi)源部件已經(jīng)從一個位置移到另一個位置其它形參的意義同OLEDragDropOLEGiveFeedback在每個OLEDragOver事件后發(fā)生此事件。事件處理過程原形Private Sub Form_OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean)End Sub形參的意義：DefaultCursors 布爾值，決定VisualBasic使用部件缺省鼠標(biāo)光標(biāo)，還是自定義鼠標(biāo)光標(biāo)True（缺省）=使用缺省鼠標(biāo)光標(biāo)False=不用缺省光標(biāo)。必須用S

21、creen對象的MousePointer屬性設(shè)置鼠標(biāo)光標(biāo) Effect的意義同OLEDragDropOLESetData當(dāng)目標(biāo)部件在源的DataObject對象上執(zhí)行GetData方法，但是還沒有加載規(guī)定格式的數(shù)據(jù)時，在源部件上發(fā)生此事件。事件處理過程原形Private Sub Form_OLESetData(Data As DataObject, DataFormat As Integer)End Sub形參的意義：Data 放置所需數(shù)據(jù)的DataObject對象。部件調(diào)用SetData方法加載所需的格式DataFormat 整數(shù)，確定目標(biāo)部件所需要的數(shù)據(jù)格式。源部件用此值來確定向DataO

22、bject對象加載的內(nèi)容OLEStartDrag當(dāng)部件的OLEDrag方法被執(zhí)行時，或者在OLEDragMode屬性被設(shè)為Automatic，部件初始化OLE拖放操作時發(fā)生此事件。事件處理過程原形Private Sub Form_OLEStartDrag(Data As DataObject, AllowedEffects As Long)End Sub形參的意義：Data DataObject對象，含源所提供的格式以及（可選）適合那些格式的數(shù)據(jù)。若DataObject不包含數(shù)據(jù)，則當(dāng)控件調(diào)用GetData方法時會提供。程序員應(yīng)提供此事件中該參數(shù)的值。SetData和Clear方法不能用于此處

23、AllowedEffects 長整型數(shù)，包含源部件支持的效果。其可能的取值列于下表中。程序員應(yīng)提供此事件中該參數(shù)的值 常數(shù)值描述vbDropEffectNone0放目標(biāo)不接受數(shù)據(jù)vbDropEffectCopy1放結(jié)果保存于從源到目標(biāo)的數(shù)據(jù)拷貝中。初始數(shù)據(jù)沒有被拖放操作改變vbDropEffectMove2放結(jié)果保存于要從拖源移到放源的數(shù)據(jù)中。移動后，拖源要刪除數(shù)據(jù)Paint在一個窗體被移動或放大之后，或在一個覆蓋該窗體的窗體被移開之后，該窗體部分或全部暴露時，發(fā)生此事件。事件處理過程原形Private Sub Form_Paint()End SubQueryUnload在一個窗體或應(yīng)用程序關(guān)

24、閉之前發(fā)生此事件。如果一個MDIForm對象關(guān)閉時，QueryUnload事件先在MDI窗體發(fā)生，然后在所有MDI子窗體中發(fā)生。當(dāng)一個子窗體或一個Form對象關(guān)閉時，在那個窗體中的QueryUnload事件先于該窗體的Unload事件發(fā)生。事件處理過程原形Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)End Sub形參的意義：Cancel 一個整數(shù)。將此參數(shù)設(shè)定為除0以外的任何值，可在所有已裝載的窗體中停止QueryUnload事件，并阻止該窗體和應(yīng)用程序的關(guān)閉UnloadMode 一個值或一個常數(shù)，

25、如返回值中所描述的，它指示引起QueryUnload事件的原因 常數(shù)值描述vbFormControlMenu0用戶從窗體上的“控件”菜單中選擇“關(guān)閉”指令vbFormCode1Unload語句被代碼調(diào)用vbAppWindows2當(dāng)前MicrosoftWindows操作環(huán)境會話結(jié)束vbAppTaskManager3MicrosoftWindows任務(wù)管理器正在關(guān)閉應(yīng)用程序正在關(guān)閉vbFormMDIForm4MDI子窗體，因為MDI窗體正在關(guān)閉vbFormOwner5因為窗體的所有者正在關(guān)閉，所以窗體也在關(guān)閉Resize (尺寸改變)當(dāng)窗體尺寸改變時發(fā)生此事件，事件處理過程原形Private Su

26、b Form_Resize()End SubTerminate通過設(shè)置所涉及對象的所有變量為Nothing，F(xiàn)orm、MDIForm、User控件、PropertyPageWebclass、DHTMLPageDesigner或類的實例的所有引用都被從內(nèi)存刪除，或當(dāng)對象的最后一個引用失去范圍時發(fā)生此事件。事件處理過程原形Private Sub Form_Terminate()End SubUnload (卸載窗體)當(dāng)關(guān)閉窗體時發(fā)生此事件，事件處理過程原形Private Sub Form_Unload(Cancel As Integer)End Sub1.02、文本框控件(Text)的事件事件名稱

27、事件處理過程原形及說明Change(文本改變)當(dāng)在文本框輸入新信息，編輯文本或者在程序中將Text屬性設(shè)置為新值時觸發(fā)此事件，對于該事件，用戶每輸入一個字符就引發(fā)一次，通常用于文本內(nèi)容改變后提示用戶存盤。應(yīng)該注意Change事件并不對鍵盤的非字符件(如光標(biāo)健)產(chǎn)生響應(yīng)，若要捕捉非字符鍵，應(yīng)使用KeyDown事件或KeyUp事件。事件處理過程原形Private Sub Text_Change()End SubClick(單擊)當(dāng)用戶單擊文本框控件時發(fā)生此事件，事件處理過程原形 Private Sub Text_Click()End SubDblClick (雙擊)當(dāng)用戶雙擊文本框控件時發(fā)生此事件

28、，事件處理過程原形 Private Sub Text_DblClick()End SubDragDrop當(dāng)完成一個完整的拖放動作或使用Drag方法時，發(fā)生此事件，事件處理過程原形 Private Sub Text_DragDrop(Source As Control, X As Single, Y As Single)End Sub 形參的意義： Source 正在被拖動的控件。 X、Y 是一個指定當(dāng)前鼠標(biāo)指針在目標(biāo)窗體或控件中水平(X)和垂直(Y)位置的數(shù)字。DragOver當(dāng)用戶進(jìn)行拖放操作時發(fā)生此事件，事件處理過程原形 Private Sub Text_DragOver(Source A

29、s Control, X As Single, Y As Single, State As Integer)End Sub 形參的意義： Source 正在被拖動的控件。 X、Y 是一個指定當(dāng)前鼠標(biāo)指針在目標(biāo)窗體或控件中水平(X)和垂直(Y)位置的數(shù)字。GotFocus (獲得焦點)當(dāng)獲得焦點時發(fā)生此事件，事件處理過程原形 Private Sub Text_GotFocus()End SubKeyDown (按下鍵)當(dāng)焦點在本控件上，用戶按下鍵盤上某個鍵時發(fā)生此事件，此事件不僅響應(yīng)字符鍵，而且也響應(yīng)非字符件。通過形參KeyCode和形參Shift能夠判斷用戶按下的是哪個鍵。事件處理過程原形 P

30、rivate Sub Text_KeyDown(KeyCode As Integer, Shift As Integer)End Sub 形參的意義： KeyCode 按鍵的編碼Shift 轉(zhuǎn)換鍵，意義如下：0 沒有轉(zhuǎn)換鍵按下1 Shift鍵按下2 Ctrl鍵按下3 Alt鍵按下 當(dāng)多個轉(zhuǎn)換鍵同時按下時，應(yīng)把幾個鍵對應(yīng)的數(shù)值相加KeyPress (敲擊鍵)當(dāng)焦點在本控件上，用戶敲擊鍵盤上某個鍵時發(fā)生此事件，通過形參KeyCode和形參Shift KeyAscii能夠判斷用戶按下的是哪個鍵。KeyPress事件并不對鍵盤的非字符件(如光標(biāo)健)產(chǎn)生響應(yīng)，若要捕捉非字符鍵，應(yīng)使用KeyDown事件或

31、KeyUp事件。事件處理過程原形Private Sub Text_KeyPress(KeyAscii As Integer)End Sub 形參的意義： KeyAscii 按鍵Ascii碼若改變KeyAscii參數(shù)，相當(dāng)于按下了不同的鍵，若置此參數(shù)為0，則取消按鍵。KeyUp (釋放鍵)當(dāng)焦點在本控件上，用戶按下鍵盤上某個鍵后釋放時發(fā)生此事件，KeyUp事件的其他特性與KeyDown事件相同。事件處理過程原形Private Sub Text_KeyUp(KeyCode As Integer, Shift As Integer)End Sub 形參的意義請參閱KeyDown事件LinkClose

32、此事件在一個DDE對話結(jié)束時發(fā)生此事件，事件處理過程原形 Private Sub Text_LinkClose()End SubLinkError當(dāng)一個DDE對話過程中出現(xiàn)錯誤時，發(fā)生此事件。事件處理過程原形 Private Sub Text_LinkError(LinkErr As Integer)End Sub 形參的意義： LinkErr 是一個與DDE有關(guān)錯誤的錯誤號，返回值如下所述 返回值描述1另一個應(yīng)用程序按錯誤的格式已經(jīng)請求過數(shù)據(jù)。在VisualBasic試圖找出另一種應(yīng)用程序識別的格式時，這種錯誤可能連續(xù)出現(xiàn)幾次6當(dāng)發(fā)送端窗體上的LinkMode屬性設(shè)置為0（無）之后，接收端應(yīng)

33、用程序試圖繼續(xù)DDE對話7所有源鏈接都在使用中（每個源最多有128個鏈接）8對目標(biāo)控件來說：一個自動鏈接或LinkRequest方法更新控件中的數(shù)據(jù)失敗對源窗體來說：目標(biāo)試圖將數(shù)據(jù)放置到一個控件中去，并且失敗11無足夠的內(nèi)存給DDE使用LinkNotify如果接收端控件的LinkMode屬性被設(shè)置為3（通知），當(dāng)發(fā)送端已經(jīng)改變了由DDE鏈接定義的數(shù)據(jù)時，發(fā)生此事件。事件處理過程原形Private Sub Text_LinkNotify()End SubLinkOpen當(dāng)一個DDE對話正在啟動時發(fā)生此事件。事件處理過程原形 Private Sub Text_LinkOpen(Cancel As

34、Integer)End Sub 形參的意義： Cancel 是一個整數(shù)，它用來確定該DDE對話是否建立。讓cancel設(shè)置為0（缺省值）可建立該對話。將cancel設(shè)置為任何非零值則拒絕對話LostFocus (丟失焦點)當(dāng)丟失焦點(當(dāng)用“Tab” 鍵或用快捷鍵或用鼠標(biāo)選取窗體上其他對象而離開該文本框)時發(fā)生此事件，通常可用這個事件檢查文本框的內(nèi)容。事件處理過程原形Private Sub Text_LostFocus()End SubMouseDown(按下鼠標(biāo))當(dāng)鼠標(biāo)在本控件上，用戶按下鼠標(biāo)鍵時發(fā)生此事件，事件處理過程原形Private Sub Text_MouseDown(Button A

35、s Integer, Shift As Integer, X As Single, Y As Single)End Sub 形參的意義： Button 標(biāo)識按下哪個鼠標(biāo)鍵：1、 按下鼠標(biāo)左鍵2、 按下鼠標(biāo)右鍵3、 按下鼠標(biāo)左右兩鍵Shift鍵的意義請參閱KeyDown事件X、Y 按下鼠標(biāo)鍵時的坐標(biāo)MouseMove(鼠標(biāo)移動)當(dāng)鼠標(biāo)在本控件上移動時發(fā)生此事件，事件處理過程原形 Private Sub Text_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)End Sub 形參的意義： X、Y 鼠標(biāo)

36、移動過程中的瞬時坐標(biāo)其它各參數(shù)的意義請參閱MouseDown事件MouseUp (釋放鼠標(biāo))當(dāng)鼠標(biāo)在本控件上，用戶釋放鼠標(biāo)鍵時發(fā)生此事件，事件處理過程原形 Private Sub Text_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)End Sub 形參的意義： X、Y 鼠標(biāo)移動釋放時的瞬時坐標(biāo)其它各參數(shù)的意義請參閱MouseDown事件OLECompleteDrag當(dāng)源部件被放到目標(biāo)部件時發(fā)生此事件，并通知源部件拖放操作被執(zhí)行或取消。事件處理過程原形Private Sub Text_OLEComp

37、leteDrag(Effect As Long)End Sub 形參的意義： Effect 源對象設(shè)置的長整型數(shù)，用來識別執(zhí)行的動作，這樣當(dāng)部件被移動后允許源采取適當(dāng)?shù)膭幼鳌？赡艿娜≈盗杏谙卤碇?常數(shù)值描述vbDropEffectNone0放目標(biāo)不接受數(shù)據(jù)，或者放操作被取消vbDropEffectCopy1放結(jié)果保存于從源到目標(biāo)的數(shù)據(jù)拷貝中。初始數(shù)據(jù)沒有被拖放操作改變vbDropEffectMove2放結(jié)果保存于初始數(shù)據(jù)的連接中，該數(shù)據(jù)是在拖放源和放目標(biāo)之間產(chǎn)生的OLEDragDrop在OLEDropMode被設(shè)置為1(Manual)時，當(dāng)源部件被放到目標(biāo)部件時，發(fā)生此事件。事件處理過程原形P

38、rivate Sub Text_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)End Sub 形參的意義： Data DataObject對象，包含源提供的格式，另外也可能包含這些格式的數(shù)據(jù)。若DataObject不包含數(shù)據(jù)，則當(dāng)控件調(diào)用GetData方法時提供數(shù)據(jù)。SetData和Clear方法不能用在這里Effect 源對象設(shè)置的長整型數(shù)，用來識別執(zhí)行的動作，這樣當(dāng)部件被移動后允許源采取適當(dāng)?shù)膭幼??？赡艿娜≈盗杏谙卤碇?/p>

39、 常數(shù)值描述vbDropEffectNone0放目標(biāo)不接受數(shù)據(jù)，或者放操作被取消vbDropEffectCopy1放結(jié)果保存于從源到目標(biāo)的數(shù)據(jù)拷貝中。初始數(shù)據(jù)沒有被拖放操作改變vbDropEffectMove2放結(jié)果保存于初始數(shù)據(jù)的連接中，該數(shù)據(jù)是在拖放源和放目標(biāo)之間產(chǎn)生的vbDropEffectScroll-2147483648(&H80000000)在目標(biāo)部件中，滾動正在或?qū)⒁l(fā)生。此值與其它值共同使用。注意僅當(dāng)在部件中執(zhí)行自己的滾動時才能應(yīng)用Button 整數(shù)，當(dāng)按下鼠標(biāo)鍵時，與鼠標(biāo)狀態(tài)相對應(yīng)。左鍵為位0，右鍵為位1，中鍵為位2。這些位相應(yīng)的值分別為1，2和4，它代表了鼠標(biāo)鍵的狀

40、態(tài)?？稍O(shè)置三個位中的部分、全部或根本不設(shè)置，相應(yīng)地表明部分、全部按鍵被按下或沒有按鍵按下 Shift 整數(shù)，當(dāng)按下SHIFT、CTRL和ALT鍵時，與這些鍵狀態(tài)相對應(yīng)。SHIFT鍵為位0，CTRL鍵為位1，ALT鍵為位2。這些位相應(yīng)的值分別為1，2和4，shift參數(shù)代表了這些鍵的狀態(tài)?？稍O(shè)置三個位中的部分、全部或根本不設(shè)置，相應(yīng)地表明部分、全部按鍵被按下或沒有按鍵按下。例如，同時按下CTRL和ALT鍵，shift值為6 X、Y 確定鼠標(biāo)指針當(dāng)前位置的數(shù)值。OLEDragOver當(dāng)一個部件在另一個部件上拖動時發(fā)生此事件。事件處理過程原形Private Sub Text_OLEDragOver(

41、Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)End Sub 形參的意義： State 整數(shù)，相應(yīng)于控件的轉(zhuǎn)換狀態(tài)，此控件將被拖放到與其相關(guān)的目標(biāo)窗體或控件中?？赡艿娜≈盗杏谙卤碇?常數(shù)值描述vbEnter0在目標(biāo)范圍內(nèi)源部件正被拖動vbLeave1在目標(biāo)范圍之外源部件正被拖動vbOver2在目標(biāo)內(nèi)源部件已經(jīng)從一個位置移到另一個位置其它形參的意義同OLEDragDropOLEGiveFeedback在每個OLE

42、DragOver事件后發(fā)生此事件。事件處理過程原形Private Sub Text_OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean)End Sub形參的意義：DefaultCursors 布爾值，決定VisualBasic使用部件缺省鼠標(biāo)光標(biāo)，還是自定義鼠標(biāo)光標(biāo)True（缺?。?使用缺省鼠標(biāo)光標(biāo)False=不用缺省光標(biāo)。必須用Screen對象的MousePointer屬性設(shè)置鼠標(biāo)光標(biāo) Effect的意義同OLEDragDropOLESetData當(dāng)目標(biāo)部件在源的DataObject對象上執(zhí)行GetData方法，但是還沒有加載規(guī)

43、定格式的數(shù)據(jù)時，在源部件上發(fā)生此事件。事件處理過程原形Private Sub Text_OLESetData(Data As DataObject, DataFormat As Integer)End Sub形參的意義：Data 放置所需數(shù)據(jù)的DataObject對象。部件調(diào)用SetData方法加載所需的格式DataFormat 整數(shù)，確定目標(biāo)部件所需要的數(shù)據(jù)格式。源部件用此值來確定向DataObject對象加載的內(nèi)容OLEStartDrag當(dāng)部件的OLEDrag方法被執(zhí)行時，或者在OLEDragMode屬性被設(shè)為Automatic，部件初始化OLE拖放操作時發(fā)生此事件。事件處理過程原形Pri

44、vate Sub Text_OLEStartDrag(Data As DataObject, AllowedEffects As Long)End Sub形參的意義：Data DataObject對象，含源所提供的格式以及（可選）適合那些格式的數(shù)據(jù)。若DataObject不包含數(shù)據(jù)，則當(dāng)控件調(diào)用GetData方法時會提供。程序員應(yīng)提供此事件中該參數(shù)的值。SetData和Clear方法不能用于此處AllowedEffects 長整型數(shù)，包含源部件支持的效果。其可能的取值列于下表中。程序員應(yīng)提供此事件中該參數(shù)的值 常數(shù)值描述vbDropEffectNone0放目標(biāo)不接受數(shù)據(jù)vbDropEffect

45、Copy1放結(jié)果保存于從源到目標(biāo)的數(shù)據(jù)拷貝中。初始數(shù)據(jù)沒有被拖放操作改變vbDropEffectMove2放結(jié)果保存于要從拖源移到放源的數(shù)據(jù)中。移動后，拖源要刪除數(shù)據(jù)Validate當(dāng)焦點轉(zhuǎn)換倒下一個控件之前發(fā)生，只有在即將獲得焦點的控件的Causes Validation屬性值設(shè)置為True時，Validate事件才能發(fā)生。事件處理過程原形Private Sub Text_Validate(Cancel As Boolean)End Sub形參的意義：Cancel 當(dāng)Cancel設(shè)置為True時，控件保持焦點通?？捎眠@個事件檢查文本框的內(nèi)容。LostFocus事件也能檢查文本框的正確性，但V

46、alidate事件比LostFocus事件更早發(fā)生，而且能與Causes Validation屬性配合使用1.03、標(biāo)簽控件(Label)的事件事件名稱事件處理過程原形及說明Change(文本改變)改變Label的內(nèi)容。既當(dāng)通過代碼等改變Caption屬性時發(fā)生此事件。事件處理過程原形Private Sub Label_Change()End SubClick(單擊)當(dāng)用戶單擊標(biāo)簽控件時發(fā)生此事件，事件處理過程原形 Private Sub Label_Click()End SubDblClick (雙擊)當(dāng)用戶雙擊標(biāo)簽控件時發(fā)生此事件，事件處理過程原形 Private Sub Label_Db

47、lClick()End SubDragDrop當(dāng)完成一個完整的拖放動作或使用Drag方法時，發(fā)生此事件，事件處理過程原形 Private Sub Label_DragDrop(Source As Control, X As Single, Y As Single)End Sub 形參的意義： Source 正在被拖動的控件。 X、Y 是一個指定當(dāng)前鼠標(biāo)指針在目標(biāo)窗體或控件中水平(X)和垂直(Y)位置的數(shù)字。DragOver當(dāng)用戶進(jìn)行拖放操作時發(fā)生此事件，事件處理過程原形 Private Sub Label_DragOver(Source As Control, X As Single, Y A

48、s Single, State As Integer)End Sub 形參的意義： Source 正在被拖動的控件。 X、Y 是一個指定當(dāng)前鼠標(biāo)指針在目標(biāo)窗體或控件中水平(X)和垂直(Y)位置的數(shù)字。GotFocus (獲得焦點)當(dāng)獲得焦點時發(fā)生此事件，事件處理過程原形 Private Sub Label_LinkClose()End SubLinkError當(dāng)一個DDE對話過程中出現(xiàn)錯誤時，發(fā)生此事件。事件處理過程原形 Private Sub Label_LinkError(LinkErr As Integer)End Sub 形參的意義： LinkErr 是一個與DDE有關(guān)錯誤的錯誤號，返

49、回值如下所述 返回值描述1另一個應(yīng)用程序按錯誤的格式已經(jīng)請求過數(shù)據(jù)。在VisualBasic試圖找出另一種應(yīng)用程序識別的格式時，這種錯誤可能連續(xù)出現(xiàn)幾次6當(dāng)發(fā)送端窗體上的LinkMode屬性設(shè)置為0（無）之后，接收端應(yīng)用程序試圖繼續(xù)DDE對話7所有源鏈接都在使用中（每個源最多有128個鏈接）8對目標(biāo)控件來說：一個自動鏈接或LinkRequest方法更新控件中的數(shù)據(jù)失敗對源窗體來說：目標(biāo)試圖將數(shù)據(jù)放置到一個控件中去，并且失敗11無足夠的內(nèi)存給DDE使用LinkNotify如果接收端控件的LinkMode屬性被設(shè)置為3（通知），當(dāng)發(fā)送端已經(jīng)改變了由DDE鏈接定義的數(shù)據(jù)時，發(fā)生此事件。事件處理過程原

50、形Private Sub Label_LinkNotify()End SubLinkOpen當(dāng)一個DDE對話正在啟動時發(fā)生此事件。事件處理過程原形 Private Sub Label_LinkOpen(Cancel As Integer)End Sub 形參的意義： Cancel 是一個整數(shù)，它用來確定該DDE對話是否建立。讓cancel設(shè)置為0（缺省值）可建立該對話。將cancel設(shè)置為任何非零值則拒絕對話MouseDown(按下鼠標(biāo))當(dāng)鼠標(biāo)在本控件上，用戶按下鼠標(biāo)鍵時發(fā)生此事件，事件處理過程原形Private Sub Label_MouseDown(Button As Integer, S

51、hift As Integer, X As Single, Y As Single)End Sub 形參的意義： Button 標(biāo)識按下哪個鼠標(biāo)鍵：1、 按下鼠標(biāo)左鍵2、 按下鼠標(biāo)右鍵3、 按下鼠標(biāo)左右兩鍵Shift鍵的意義請參閱KeyDown事件X、Y 按下鼠標(biāo)鍵時的坐標(biāo)MouseMove(鼠標(biāo)移動)當(dāng)鼠標(biāo)在本控件上移動時發(fā)生此事件，事件處理過程原形 Private Sub Label_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)End Sub 形參的意義： X、Y 鼠標(biāo)移動過程中的瞬時坐標(biāo)其

52、它各參數(shù)的意義請參閱MouseDown事件MouseUp (釋放鼠標(biāo))當(dāng)鼠標(biāo)在本控件上，用戶釋放鼠標(biāo)鍵時發(fā)生此事件，事件處理過程原形 Private Sub Label_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)End Sub 形參的意義： X、Y 鼠標(biāo)移動釋放時的瞬時坐標(biāo)其它各參數(shù)的意義請參閱MouseDown事件OLECompleteDrag當(dāng)源部件被放到目標(biāo)部件時發(fā)生此事件，并通知源部件拖放操作被執(zhí)行或取消。事件處理過程原形Private Sub Label_OLECompleteDrag(

53、Effect As Long)End Sub 形參的意義： Effect 源對象設(shè)置的長整型數(shù)，用來識別執(zhí)行的動作，這樣當(dāng)部件被移動后允許源采取適當(dāng)?shù)膭幼鳌？赡艿娜≈盗杏谙卤碇?常數(shù)值描述vbDropEffectNone0放目標(biāo)不接受數(shù)據(jù)，或者放操作被取消vbDropEffectCopy1放結(jié)果保存于從源到目標(biāo)的數(shù)據(jù)拷貝中。初始數(shù)據(jù)沒有被拖放操作改變vbDropEffectMove2放結(jié)果保存于初始數(shù)據(jù)的連接中，該數(shù)據(jù)是在拖放源和放目標(biāo)之間產(chǎn)生的OLEDragDrop在OLEDropMode被設(shè)置為1(Manual)時，當(dāng)源部件被放到目標(biāo)部件時，發(fā)生此事件。事件處理過程原形Private Su

54、b Label_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)End Sub 形參的意義： Data DataObject對象，包含源提供的格式，另外也可能包含這些格式的數(shù)據(jù)。若DataObject不包含數(shù)據(jù)，則當(dāng)控件調(diào)用GetData方法時提供數(shù)據(jù)。SetData和Clear方法不能用在這里Effect 源對象設(shè)置的長整型數(shù)，用來識別執(zhí)行的動作，這樣當(dāng)部件被移動后允許源采取適當(dāng)?shù)膭幼??？赡艿娜≈盗杏谙卤碇?常數(shù)值描述vbDropEffectNone0放目標(biāo)不接受數(shù)據(jù)，或者放操作被取消vbDropEffectCopy1放結(jié)果保存于從源到目標(biāo)的數(shù)據(jù)拷貝中。初始數(shù)據(jù)沒有被拖放操作改變vbDropEffectMove2放結(jié)果保存于初始數(shù)據(jù)的連接中，該數(shù)據(jù)是在拖