在事件处理程序中传递文本框值

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 

谢谢！

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