Запретить ввод даты в MaskedTextBox1 больше текущей даты - Visual Basic .NET
Формулировка задачи:
На форме MaskedTextBox1 с маской под короткую дату, то есть __.__.____
Как запретить ввод в это поле даты, больше текущей даты?
заранее спасибо за помощь!
Решение задачи: «Запретить ввод даты в MaskedTextBox1 больше текущей даты»
textual
Листинг программы
- Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
- '…
- MsgBox(MaskedTextBox1.Text)
- '…
- End Sub
- Private Sub MaskedTextBox1_TypeValidationCompleted(sender As System.Object, e As System.Windows.Forms.TypeValidationEventArgs) Handles MaskedTextBox1.TypeValidationCompleted
- If (Not e.IsValidInput) Then
- MsgBox("Данные не соответствуют формату!")
- Else
- Dim UserDate As DateTime = CDate(e.ReturnValue)
- If (UserDate > DateTime.Now) Then
- MsgBox("Введенная дата не м.б. больше текущей даты!")
- e.Cancel = True
- End If
- End If
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д