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，比如Sub UpdateControls（）。然后，您可以在两个位置调用该Sub：Form_Current和应该更改状态的任何控件的_AfterUpdate事件。删除Me.Form.Refresh行。 Form_current在显示第一条记录时触发，并在用户导航时再次触发。当记录中的复选框发生变化时，AfterUpdate将触发。

复选框控件用法

1 个答案: