Locked = True für CheckBox

02/11/2010 - 10:46 von Wilfried Dietrich | Report spam
Wie könnte ich, mit einfachen VB-Mitteln, ein Locked = True
für eine CheckBox nachbilden?
Die Checkbox soll den Focus noch erhalten können, aber
Value darf sich nur noch programmgesteuert veràndern
lassen.


MfG.
Wilfried
 

Lesen sie die antworten

#1 Ingo Moch
02/11/2010 - 21:03 | Warnen spam
Wilfried Dietrich wrote:


Wie könnte ich, mit einfachen VB-Mitteln, ein Locked > True für eine CheckBox nachbilden?
Die Checkbox soll den Focus noch erhalten können, aber
Value darf sich nur noch programmgesteuert veràndern
lassen.



Wenn dich das "flackern" beim klicken nicht stoert und
Du "chkTest.Value = 2" ausschliessen kannst, geht
folgendes:

<CODE>
Private Sub chkTest_Click()
Static bInProc As Boolean

If Not bInProc Then
bInProc = True

chkTest.Value = CInt(-(Not CBool(chkTest.Value)))

bInProc = False
End If
End Sub
</CODE>

Wenn es alles abdecken soll:

<CODE>
Private mbchkTestLocked As Boolean

Private Sub Form_Load()
mbchkTestLocked = False
chkTest_Click ' Intialisieren
End Sub

Private Sub chkTest_Click()
Static bInProc As Boolean
Static nValue As Integer

If mbchkTestLocked Then
If Not bInProc Then
bInProc = True

chkTest.Value = nValue

bInProc = False
End If
Else
nValue = chkTest.Value
End If
End Sub

' --
' Nur zum Testen
' --
Private Sub Form_DblClick()
mbchkTestLocked = (Not mbchkTestLocked)

MsgBox "chkTest.Locked = " & Format$(mbchkTestLocked, "On/Off")
End Sub
</CODE>

HTH
Ingo

Ähnliche fragen