变量变化触发事件

Question

是否可能通过变量触发事件？例如。

这将触发事件

Dim t As Integer 
Dim Fire As Boolean 

Private Sub Test 
t = 0 
Fire = True 
IIf Fire, t=1, t=2 
End sub 

在事件处理程序

Select Case t 
    Case 0 
     'Do something 
    Case 1 
     'Do something    
    Case 2 
     'Do something 
    Case 3 
     'Do something 
    ... 

谷歌带来了事件处理程序，并使用类模块，但我不能环绕它我的头。

Answer 1

是的，这是可能的。但是，您需要一种面向对象的方法。 你首先需要定义一个引发你想要钩入的事件的类。其次，您需要一个实际处理事件的类，因为您不能在常规模块中使用事件处理程序。 第三，在你的常规模块中，你可以使用这些类。

下面是一个简单的例子： 创建一个名为“ClassWithEvent”的类模块。放置以下代码：

Public Event VariableChange(value As Integer) 
Private p_int As Integer 
Public Property Get value() As Integer 
    value = p_int 
End Property 
Public Property Let value(value As Integer) 
    If p_int <> value Then RaiseEvent VariableChange(value) 'Only raise on actual change. 
    p_int = value 
End Property 

接下来，创建一个可处理此类所引发事件的类。 将此类模块命名为“ClassHandlesEvent”。下面的代码放置在它：

Private WithEvents SomeVar As ClassWithEvent 
Private Sub SomeVar_VariableChange(value As Integer) 'This is the event handler. 
    Select Case value 
     Case 1: 
      MsgBox "here, 1!" 
     Case 2: 
      MsgBox "here, 2!" 
     Case Default: 
      'Do Nothing 
    End Select 
End Sub 
Public Property Get EventVariable() As ClassWithEvent 
    Set EventVariable = SomeVar 
End Property 
Public Property Let EventVariable(value As ClassWithEvent) 
    Set SomeVar = value 
End Property 

接下来，在常规模块，实例化ClassWithEvent并通过这一个作为一个属性到处理它们的类。

Sub test() 
    Dim var As ClassHandlesEvent 
    Dim tst As ClassWithEvent 

    Set var = New ClassHandlesEvent 
    Set tst = New ClassWithEvent 
    var.EventVariable = tst 

    tst.value = 2 'A messagebox saying "Here, 2!" will pop-up 
End Sub