Event 陳述式

  • 發行項

宣告使用者定義的事件。

語法

[ Public ] 事件過程名稱 [ (arglist) ]

Event 語句包含下列部分：

部分 描述
Public 選用。 指定事件在整個項目中可見。 根據 預設，事件類型為 Public 。 請注意，事件只能在宣告事件的 模組 中引發。
procedurename 此為必要動作。 事件的名稱;遵循標準變數命名慣例。

arglist 引數具有下列語法和部分︰

[ ByVal | ByRef ] varname [ ( ) ] [ Astype ]

部分 描述
ByVal 選用。 表示自 變數 是 以傳值方式傳遞。
ByRef 選用。 表示引數以傳參考方式傳遞。 ByRef 是 VBA 中的預設值，與 Visual Basic .NET 不同。
varname 此為必要動作。 代表要傳遞至 程式之自變數的變數名稱;遵循標準變數命名慣例。
type 選用。 傳遞至程式之自變數的數據類型;可能是 Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal (目前不支援) 、Date、String (變數長度僅) 、Object、Variant、使用者定義型別或對象類型。

註解

宣告事件之後，請使用 RaiseEvent 語句來引發事件。 如果 事件 宣告出現在 標準模組中，就會發生語法錯誤。 無法宣告事件以傳回值。 一般事件可能會宣告和引發，如下列片段所示。

' Declare an event at module level of a class module 
 
Event LogonCompleted (UserName as String) 
 
Sub 
 RaiseEvent LogonCompleted("AntoineJan") 
End Sub

注意事項

您可以宣告事件自變數，就像您執行程式自變數一樣，但下列例外狀況：事件不能有命名自變數、 選擇性 自變數或 ParamArray 自變數。 事件沒有傳回值。

範例

下列範例會在最快速的 100 公尺競賽示範期間，使用事件來計算秒數。 此程式代碼說明所有與事件相關的方法、屬性和語句，包括 Event 語句。

引發事件的類別是事件來源，而實作事件的類別則是接收。 事件來源可以有多個接收所產生的事件。 當類別引發 事件時，該事件會在已選擇為該物件實例接收事件的每個類別上引發。

此範例也會使用表單 (Form1) 搭配按鈕 () Command1 、捲標 () Label1 ，以及兩個文本框 (Text1 和 Text2) 。 當您按鍵時，第一個文字框會顯示 「從現在開始」，而第二個文本框會開始計算秒數。 當完整時間 (9.84 秒) 經過時，第一個文本框會顯示 “Until Now”，而第二個文本框會顯示 “9.84”。

程式代碼會指定表單的初始和終端狀態。 它也包含引發事件時所執行的程序代碼。

Option Explicit 
 
Private WithEvents mText As TimerState 
 
Private Sub Command1_Click() 
 Text1.Text = "From Now" 
 Text1.Refresh 
 Text2.Text = "0" 
 Text2.Refresh 
Call mText.TimerTask(9.84) 
End Sub 
 
Private Sub Form_Load() 
 Command1.Caption = "Click to Start Timer" 
 Text1.Text = "" 
 Text2.Text = "" 
 Label1.Caption = "The fastest 100 meter run took this long:" 
 Set mText = New TimerState 
 End Sub 
 
Private Sub mText_ChangeText() 
 Text1.Text = "Until Now" 
 Text2.Text = "9.84" 
End Sub 
 
Private Sub mText_UpdateTime(ByVal dblJump As Double) 
 Text2.Text = Str(Format(dblJump, "0")) 
 DoEvents 
End Sub

其餘程式代碼位於名為 TimerState 的類模組中。 Event 語句會宣告引發事件時所起始的程式。

Option Explicit 
Public Event UpdateTime(ByVal dblJump As Double)
Public Event ChangeText() 
 
Public Sub TimerTask(ByVal Duration As Double) 
 Dim dblStart As Double 
 Dim dblSecond As Double 
 Dim dblSoFar As Double 
 dblStart = Timer 
 dblSoFar = dblStart 
 
 Do While Timer < dblStart + Duration 
 If Timer - dblSoFar >= 1 Then 
 dblSoFar = dblSoFar + 1 
 RaiseEvent UpdateTime(Timer - dblStart) 
 End If 
 Loop 
 
 RaiseEvent ChangeText 
 
End Sub

另請參閱

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。