MS Access：可以将复选框值绑定到对象实例的属性吗？

debugcn 发表于 Dev

kn000x

也许有人可以给我一个建议，说明我如何解决以下问题。

是否有简单的解决方案将对象的实例属性“绑定”到表单的元素。当然也可以通过触发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？

感谢您的任何建议！

mwolfe02

我建议使用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

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。