为共享的LostFocus事件处理程序启用发送方

Question

我有一个包含七个文本框的表单，所有文本框都描述了二手车的不同属性。在我的文本框的共享LostFocus事件中，我需要一个case语句来确定失去焦点的特定TextBox。然后我需要执行不同的各种任务，但我不认为它们对我的问题很重要。

如何判断哪个文本框在我的共享LostFocus事件处理程序中失去了焦点？

Select Case ________???

Answer 1

那将是Select Case DirectCast(sender, TextBox)。

Answer 2

你可以做两件事之一。

首先是选择名称

Dim tb as TextBox = CType(sender,TextBox)

Select Case tb.Name
    Case "TextBox1"

第二个是我喜欢做的，它是使用TextBox的Tag属性并在其中放入一个唯一的数字。因此，在这种情况下，您的Select语句将如下所示。

Dim tb as TextBox = CType(sender,Textbox)

Select Case CInt(tb.tag)
    Case 1

    Case 2
    .... 

您提到的另一件事是如何确保哪个TextBox失去了焦点。除了您正在处理的离开事件之外，您还可以处理LostFocus事件。