能否简化这段VB.NET文本框获焦事件代码？如何实现？

当然能简化啦！你现在写的这些重复代码完全可以通过共享事件处理程序来合并，不用再维护一堆几乎一模一样的方法。核心思路要么利用你已经遵循的控件命名规律，要么通过控件的Tag属性关联对应Label，下面给你两种常用的实现方式：

方法一：利用控件命名规则共享事件 #

看你的命名就知道是刻意统一过的——txtXXX对应lblXXX，刚好可以利用这个规律来写通用处理逻辑：

Private Sub TextBox_GotFocus(sender As Object, e As EventArgs) _
    Handles txtFirstName.GotFocus, txtLastName.GotFocus, txtMiddleName.GotFocus, txtAddress.GotFocus, txtContact.GotFocus
    
    ' 获取当前获焦的TextBox，替换名称前缀找到对应Label
    Dim currentTextBox As TextBox = DirectCast(sender, TextBox)
    Dim targetLabelName As String = currentTextBox.Name.Replace("txt", "lbl")
    
    ' 递归查找控件（支持Label在容器控件里的情况）
    Dim targetLabel As Label = DirectCast(Me.Controls.Find(targetLabelName, True).FirstOrDefault(), Label)
    
    ' 避免空引用，找到后再设置可见性
    If targetLabel IsNot Nothing Then
        targetLabel.Visible = True
    End If
End Sub

关键点说明： #

• 把所有需要处理的TextBox的GotFocus事件都加到同一个方法的Handles列表里，一次性绑定
• 通过sender参数拿到当前触发事件的TextBox，不用硬编码每个控件名称
• Me.Controls.Find的第二个参数设为True，就算Label放在Panel、GroupBox这类容器里也能找到
• 加个空判断，防止万一命名不匹配导致的空引用错误

方法二：通过Tag属性关联Label（不依赖命名） #

如果后续控件命名可能打破现有规律，或者你不想靠命名来关联，可以用Tag属性绑定对应Label：

第一步：设计时配置Tag #

选中每个TextBox（比如txtFirstName），在属性窗口找到Tag属性，直接选择对应的Label（lblFirstName），给所有需要处理的TextBox都做这个设置。

第二步：编写通用事件处理程序 #

Private Sub TextBox_GotFocus(sender As Object, e As EventArgs) _
    Handles txtFirstName.GotFocus, txtLastName.GotFocus, txtMiddleName.GotFocus, txtAddress.GotFocus, txtContact.GotFocus
    
    Dim currentTextBox As TextBox = DirectCast(sender, TextBox)
    Dim targetLabel As Label = DirectCast(currentTextBox.Tag, Label)
    
    If targetLabel IsNot Nothing Then
        targetLabel.Visible = True
    End If
End Sub

关键点说明： #

• 这种方式完全不依赖命名规则，灵活性更高
• 唯一的小缺点是需要手动给每个TextBox配置Tag，但操作一次就搞定，后续维护也清晰

如果后续还要加更多类似的TextBox和Label，方法一的扩展性会更好——只要保持txt/lbl的前缀规则，直接把新TextBox加到Handles列表里就行，不用额外配置。

内容的提问来源于stack exchange，提问作者Jhon Th