复选框控件用法

Question

我以复选框的形式创建了一个控件，在激活它时，某些控件是可见的。.停用它后，控件将不可见。我的问题是在表单加载上。第一次选择复选框（在mousedown事件上）时，没有任何事情会强制用户取消选择它，然后重新选择它。.在重选上，它工作正常。.我想我需要在某个地方进行某种类型的刷新，但我无法弄清楚如何。.有人能帮我一把吗？下面是我的代码。.谢谢

Private Sub cmdAccounting_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.cmdAccounting = 0 Then
    cost.Visible = True
    Etichetta35.Visible = True
    Etichetta37.Visible = True
    Etichetta43.Visible = True
    qty.Visible = True
    tot.Visible = True
    lineaAccounting1.Visible = True
    lineaAccounting2.Visible = True
    Me.FileSaved.Visible = False
    Me.lblFileSaved.Visible = False
Else
    cost.Visible = False
    Etichetta35.Visible = False
    Etichetta37.Visible = False
    Etichetta43.Visible = False
    qty.Visible = False
    tot.Visible = False
    lineaAccounting1.Visible = False
    lineaAccounting2.Visible = False
    Me.FileSaved.Visible = True
    Me.lblFileSaved.Visible = True

End If
Me.Form.Refresh
End Sub

Answer 1

我建议你继续移动到代码到它自己的子，类似Sub UpdateControls()。然后，您可以在两个地方调用该子: Form_Current 而 _AfterUpdate 应改变状态的任何控件的事件。删除 Me.Form.Refresh 行。Form_current在显示第一条记录时触发，并在用户导航时再次触发。 AfterUpdate 在记录中更改复选框时将触发。