vb@rchiv · Tipps & Tricks · DTPicker und das CheckBox-Problem

Rubrik: Controls · Sonstiges | VB-Versionen: VB5, VB6

06.02.03

DTPicker und das CheckBox-Problem Hier erfahren Sie, wie sich die CheckBox im DTPicker-Control per Code aktivieren/deaktivieren lässt.
Autor: Dieter Otter	Bewertung:	Views: 27.738
www.tools4vb.de	System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Wenn Sie das DateTimerPicker-Control (DTPicker) aus der Kollektion der Microsoft Windows Common Controls 2 verwenden, ist Ihnen sicherlich auch schon aufgefallen, dass sich über die Eigenschaft CheckBox links im Eingabefeld eine CheckBox anzeigen lässt.

Diese ist nur leider immer aktiviert. Es gibt scheinbar keine ersichtliche Eigenschaft, wie sich die CheckBox per VB-Code deaktivieren lässt.

Aber nur scheinbar, denn es geht dennoch. Hierzu muss man einfach nur der Value-Eigenschaft den Wert Empty zuweisen - und schon verschwindet das kleine Häkchen der CheckBox:

Private Sub Form_Load()
  ' CheckBox des DTPicker-Controls deaktivieren
  DTPicker1.Value = Empty
End Sub

Was aber, wenn nicht das aktuelle Datum, sondern irgendein Datum angezeigt werden soll?
Klar: Das erledigt man bekanntlich über die Value-Eigenschaft - also so:

' Datumvorgabe
DTPicker1.Value = CDate("1/1/2003")

Hmmm... jetzt wird zwar das neue Datum angezeigt - aber die CheckBox wird autom. wieder aktiviert

Lösung:
Nach dem Eintragen des Vorgabewertes einfach die Value-Eigenschaft wieder auf Empty setzen!

' Datumvorgabe
DTPicker1.Value = CDate("1/1/2003")
 
' CheckBox deaktivieren
DTPicker1.Value = Empty