Передача значений текстового поля в обработчик событий

Question

У меня есть следующий код для проверки двух записей в текстовом поле, чтобы убедиться, что они являются действительными датами. Моя проблема в том, что я не могу понять, как передать значение текстового поля в качестве аргумента, чтобы я мог использовать метод для обработки проверки текста двух разных текстовых полей. Вот что у меня есть:

Private Sub txtBirthdate_Validating(sender As System.Object, e As System.ComponentModel.CancelEventArgs) Handles txtBirthdate.Validating, txtSpouseBirthday.Validating

    Try
        If String.IsNullOrWhiteSpace(sender.ToString) Then
            'Do Nothing
        Else
            Dim ReturnDate As DateTime
            ReturnDate = validator.CheckIsValidDate(sender.ToString)
            txtBirthdate.Text = ReturnDate.ToShortDateString
        End If
    Catch ex As Exception
        Throw
    End Try

End Sub

Спасибо! * * 1004

Answer 1

Вам необходимо привести объект sender к TextBox, чтобы получить свойства:

Private Sub txtBirthdate_Validating(sender As Object, e As CancelEventArgs) _
  Handles txtBirthdate.Validating, txtSpouseBirthday.Validating

  Try
    With DirectCast(sender, TextBox)
      If String.IsNullOrWhiteSpace(.Text) Then
          'Do Nothing
      Else
          Dim ReturnDate As DateTime
          ReturnDate = validator.CheckIsValidDate(.Text)
          .Text = ReturnDate.ToShortDateString
      End If
    End With
  Catch ex As Exception
      Throw
  End Try
End Sub