50分赠送，帮忙讲一下类事件的创建，触发，最好举一个简单的例子

Question

帮忙讲一下类事件的创建，触发，最好举一个简单的例子

Answer 1

类模块Option Explicit
Event Test(message As String)   Public Sub MyMethod()
    RaiseEvent Test("Testing RaiseEvent")
End Sub
form中Option Explicit
Dim WithEvents MyObject As MyClass
Private Sub MyObject_Test(message As String)
    MsgBox message           
End Sub
Private Sub Form_Click()
    MyObject.MyMethod
End Sub
Private Sub Form_Load()
    Set MyObject = New MyClass
End Sub

Answer 2

1、声明事件
Event Test(message As String) 
2、在适当的地方触发事件
RaiseEvent Test("Testing RaiseEvent")

Answer 3

Form1代码：Private WithEvents pri雨田 As cls小青蛙Private Sub Command1_Click()
  pri雨田.打PP
End SubPrivate Sub Command2_Click()
  pri雨田.弹肚皮
End SubPrivate Sub Form_Initialize()
  Set pri雨田 = New cls小青蛙
End SubPrivate Sub pri雨田_evn哭()
  Text1.Text = pri雨田.哭声
End Sub模块"cls小青蛙"代码：Public Event evn哭()Public Property Get 名字() As String
  名字 = "雨田"
End PropertyPublic Property Get 学名() As String
  类别 = "绿纹蛙"
End PropertyPublic Property Get 俗称() As String
  俗称 = "蛤蟆"
End PropertyPublic Property Get 特点() As String
  特点 = "嘴大善嚎，一打就哭。"
End PropertyPublic Property Get 哭声() As String
  哭声 = String(Int(Rnd * 10)+1, "呱") & "！"
End PropertyPublic Sub 弹肚皮()
  RaiseEvent evn哭
End SubPublic Sub 打PP()
  RaiseEvent evn哭
End Sub

Answer 4

delphi自代的窗体类,就是最好的例子.

Answer 5

online(龙卷风V2.0--再战江湖) 的代码简明爽快!

Answer 6

online(龙卷风V2.0--再战江湖) 的代码的确简明爽快，小仙妹很幽默