MS Access：可以將複選框值綁定到對象實例的屬性？

Question

也許有人可以給我一個建議，我可以如何解決以下問題。

是否有簡單的解決方案來將一個對象的實例屬性「綁定」到我的表單的一個元素上。當然，它也可以通過觸發checkbox_Click()回調來解決，但目前我對使用此解決方案並不滿意。

例如：

窗體加載 - 對象初始化：

Dim handlecontact As ClsHandleContact 

Private Sub Form_Load() 
    ''' init new model handler ''' 
    Set handlecontact = New ClsHandleContact 

    ''' bind attribute of instance to element of form ''' 
    Me!CheckBox.Bind(handlecontact.boolean_attribut) 
End Sub 

類ClsHandleContact：

Public boolean_attribut As Boolean 

Private Sub Class_Initialize() 
    ''' False by init ''' 
    boolean_attribut = False 
End Sub 

如果一個用戶的檢查，我希望我的潛在對象實例的更新。有沒有官方支持的方式來實現這種bind ing？

感謝您的任何建議！

Answer 1

我建議使用WithEvents來設置它。以下是一個快速入門教程：

使用名爲Check0的複選框創建表單。設置Check0的後更新財產[Event Procedure]。在窗體的代碼模塊：

Dim handlecontact As clsHandleContact 

Private Sub Form_Load() 
    Set handlecontact = New clsHandleContact 
    Set handlecontact.MyCheckBox = Me.Check0  
End Sub 

而且clsHandleContact類模塊中：

Public WithEvents MyCheckBox As CheckBox 

Private Sub MyCheckBox_AfterUpdate() 
    MsgBox "The value of the checkbox is now: " & MyCheckBox.Value 
End Sub