我正在尝试通过使用此方法通过使用wingdings来增加复选框的大小。
Private Sub Form_Current()
If Me.chkVerify = True Then
lblLargeCheck.Caption = Chr(252)
Else
lblLargeCheck.Caption = " " ' a space
End If
End Sub
Private Sub lblLargeCheck_Click()
[chkVerify] = Not ([chkVerify])
If [chkVerify] = True Then
lblLargeCheck.Caption = Chr(252)
Else
lblLargeCheck.Caption = " " ' a space
End If
End Sub
请注意第一个复选框已标记,并且标签复选框已全部选中。是否有解决此问题的方法?我只希望仅在选中复选框的情况下为特定行显示大复选框。我将在最后隐藏该复选框。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句