除非注明，文章均為 戰(zhàn)戰(zhàn)如瘋 原創(chuàng)，轉(zhuǎn)載請(qǐng)保留鏈接: http://www./cat1/265.html，VBA交流群273624828。

今天來(lái)介紹幾個(gè)窗體常用的事件，包括窗體的初始化、單擊、關(guān)閉前、關(guān)閉后、鼠標(biāo)點(diǎn)擊等。

先來(lái)看窗體的初始化，初始化就是窗體剛打開(kāi)時(shí)自動(dòng)執(zhí)行的程序，用的是Initialize，看例子：

Private Sub UserForm_Initialize()
MsgBox "執(zhí)行初始化程序"
End Sub

這樣的話每當(dāng)你加載窗體就會(huì)先執(zhí)行MsgBox語(yǔ)句，需要時(shí)換成你自己的語(yǔ)句就可以了。

再來(lái)看窗體的單擊事件，Click，看代碼：

Private Sub UserForm_Click()
MsgBox "你單擊了窗體"
End Sub

當(dāng)你在窗體上單擊時(shí)會(huì)執(zhí)行MsgBox語(yǔ)句，也是按需要換成你自己的。

再來(lái)看窗體的鼠標(biāo)事件，即當(dāng)你點(diǎn)擊鼠標(biāo)左右鍵或中間鍵時(shí)引發(fā)的動(dòng)作，看代碼：

Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 1 Then
MsgBox "你點(diǎn)擊了鼠標(biāo)左鍵"
ElseIf Button = 2 Then
MsgBox "你點(diǎn)擊了鼠標(biāo)右鍵"
Else
MsgBox "你點(diǎn)擊了中間鍵"
End If
End Sub

參數(shù)Button代表的是鼠標(biāo)鍵，1代表左鍵，2代表右鍵，4代表中間鍵，Shift代表ctrl/shift/alt鍵，Shift返回1,ctrl返回2,shift+ctrl返回3,Atl按回4，這樣就可以根據(jù)返回值判斷你點(diǎn)了鼠標(biāo)的哪些鍵或哪些組合鍵，從而運(yùn)行不同的語(yǔ)句。

再來(lái)看關(guān)閉事件，即關(guān)閉之前運(yùn)行的語(yǔ)句，看下面的代碼

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
Cancel = 1
MsgBox "請(qǐng)用Close按鈕關(guān)閉"
End If
End Sub

QueryClose事件有兩個(gè)參數(shù)，當(dāng)參數(shù)Cancel>0時(shí)不允許用右上角的叉號(hào)關(guān)閉窗體，CloseMode是判斷你關(guān)閉窗體的方式，0代碼你是用右上角叉號(hào)關(guān)閉的。上面的代碼判斷你用叉號(hào)關(guān)閉時(shí)就將Cancel=1，這樣就禁止了窗體關(guān)閉。

還可以設(shè)置窗體關(guān)閉之后發(fā)生的動(dòng)作，

Private Sub UserForm_Terminate()
MsgBox "你已經(jīng)關(guān)閉了窗體"
End Sub

上面的代碼在窗體關(guān)閉之后提示你已經(jīng)關(guān)閉了窗體。

示例文件下載地址：http://pan.baidu.com/s/1bnjHN7x。