Hallo Dominik,
Wie kann ich überprüfen, ob in eine MaskedTextBox etwas eingetragen
wurde?
Mit .Text = Nothing oder .Text = "" geht es nicht.
Gibt es da irgendeine Möglichkeit?
Wenn ich Deine übrigen Fragen zu diesem Thema richtig verstanden habe,
möchtest du in eine erste TextBox (MaskedTextbox) ein Datum und in eine
zweite TextBox (MaskedTextbox) eine Uhrzeit eintragen und immer dann,
wenn sowohl ein gültiges Datum als auch eine gültige Uhrzeit eingetragen
worden sind, soll etwas geschehen.
So weit richtig?
Im folgenden Beispiel gibt es zwei MaskedTextBoxen (mtbDate für das
Datum und mtbTime für die Zeit).
Kopiere das nachfolgende Beispiel einfach in ein leeres Formmodul (Form1.vb)-
' / Beginn Code Form1.vb
Public Class Form1
Private WithEvents mtbDate As MaskedTextBox
Private WithEvents mtbTime As MaskedTextBox
Private lblDate As Label
Private lblTime As Label
Private mDateOK As Boolean
Private mTimeOK As Boolean
Private mD As Date
Private mT As Date
Private Sub Form1_Load _
(ByVal sender As System.Object, _
ByVal e As System.EventArgs _
) Handles MyBase.Load
CreateControls()
End Sub
Private Sub Form1_Shown _
(ByVal sender As Object, _
ByVal e As System.EventArgs _
) Handles Me.Shown
mtbDate.Focus()
End Sub
Private Sub CreateControls()
Dim Fnt As Font = New Font("Arial", 28)
mtbDate = New MaskedTextBox
With mtbDate
.Name = "mtbDate"
.Font = Fnt
.Mask = "00/00/0000"
.TextAlign = HorizontalAlignment.Center
.SetBounds(10, 30, 240, .Height)
End With
Me.Controls.Add(MTBdate)
mtbTime = New MaskedTextBox
With mtbTime
.Name = "mtbTime"
.Font = Fnt
.Mask = "90:00:00"
.TextAlign = HorizontalAlignment.Center
.SetBounds _
(mtbDate.Right + 10, _
30, 180, .Height)
End With
Me.Controls.Add(mtbTime)
lblDate = New Label
With lblDate
.Name = "lblDate"
.Font = New Font("Arial", 12)
.AutoSize = True
.Location = _
New Point _
(mtbDate.Left, _
mtbDate.Top - .Height)
.Text = "Datum (dd.MM.yyyy)"
End With
Me.Controls.Add(lblDate)
lblTime = New Label
With lblTime
.Name = "lblTime"
.Font = lblDate.Font
.AutoSize = True
.Location = _
New Point _
(mtbTime.Left, _
mtbTime.Top - .Height)
.Text = "Zeit (HH:mm:ss)"
End With
Me.Controls.Add(lblTime)
Me.ClientSize = _
New Size _
(mtbTime.Right + 10, _
mtbTime.Bottom + 20)
End Sub
Private Sub mtbDate_TextChanged _
(ByVal sender As Object, _
ByVal e As System.EventArgs _
) Handles mtbDate.TextChanged
If mtbTime IsNot Nothing Then
mtbTime.Text = ""
End If
If Date.TryParseExact _
(mtbDate.Text, "dd.mm.yyyy", _
Globalization.CultureInfo.CurrentCulture, _
Globalization.DateTimeStyles.None, _
mD) Then
mDateOK = True
mtbTime.Focus()
Else
mDateOK = False
End If
' Console.WriteLine("mDateOK: " & mDateOK.ToString)
End Sub
Private Sub mtbTime_TextChanged _
(ByVal sender As Object, _
ByVal e As System.EventArgs _
) Handles mtbTime.TextChanged
If Date.TryParseExact _
(mtbTime.Text, "HH:mm:ss", _
Globalization.CultureInfo.CurrentCulture, _
Globalization.DateTimeStyles.NoCurrentDateDefault, _
mT) Then
mTimeOK = True
If mDateOK Then
MsgBox _
(mD.ToString("dd.MM.yyyy" _
& " " & _
mT.ToString("HH:mm:ss")))
mtbDate.Focus()
mtbDate.SelectAll()
End If
Else
mTimeOK = True
End If
' Console.WriteLine("mTimeOK: " & mTimeOK.ToString)
End Sub
End Class
' \\\ E N T E
Nach dem Programmstart siehst Du die Form mit den beiden
MaskedTextboxen für Datum u. Zeit.
Die Textbox für das Datum hat den Focus.
Nur wenn in die linke Textbox ein gültiges Datum eingetragen worden
ist, wechselt der Focus auf die rechte Textbox zur Eingabe einer Uhrzeit.
Nur wenn in der linken Textbox eine gültiges Datum UND in der rechten
eine gültige Uhrzeit eingetragen worden ist, erhältst Du eine MsgBox
welche die in den Textboxen eingetragenen Werte für Datum u. Zeit
anzeigt.
Nach dem Schliessen der MsgBox wechselt der Focus wieder auf die
linke Textbox und das Spiel (Eingabe von Datum u. Zeit) kann erneut
beginnen.
Die Prüfung des eingegebenen Datums sowie der Uhrzeit erfolgt im
Beispiel durch Date.TrypParseExact(). Damit muss das Datum exakt
im Format "dd.MM.yyyy" und die Zeit exakt im Format "HH:mm:ss"
eingegeben werden. Andere, weniger restriktive Eingabeformatvorgaben
kannst Du mit Hilfe von Date.TrypParse() realisieren.
Gruß aus St.Georgen
Peter Götz
www.gssg.de (mit VB-Tipps u. Beispielprogrammen)
