如何让Textbox_Change()事件仅响应键盘输入触发？

我之前也碰到过一模一样的情况！这种因为代码修改文本框内容导致Change事件反复触发的循环问题，其实用一个开关变量就能轻松搞定。核心思路就是：告诉程序什么时候是“我在改内容，别触发事件逻辑”，什么时候是“用户在输入，正常执行转换”。

具体实现步骤： #

1. 声明模块级开关变量
   在你的窗体代码模块的最顶部（通用声明区域，所有事件之外），添加一个私有布尔变量：

Private IsProgramUpdating As Boolean

这个变量只在当前窗体里生效，用来标记是不是程序在修改文本框内容。

2. 修改你的转换逻辑
   在每次用代码修改另一个文本框之前，先把开关打开，修改完成后再关掉。比如你的Temp_F_Change事件：

Private Sub Temp_F_Change()
    ' 如果是程序在更新内容，直接退出事件
    If IsProgramUpdating Then Exit Sub
    
    Dim fahrenheit As Double, celsius As Double
    
    ' 先判断输入是否有效，避免报错
    If IsNumeric(Temp_F.Text) Then
        fahrenheit = CDbl(Temp_F.Text)
        celsius = (fahrenheit - 32) * 5 / 9
        
        ' 打开开关，阻止后续的Change事件触发
        IsProgramUpdating = True
        Temp_C.Text = Round(celsius, 1) ' 保留一位小数，匹配示例里的25.6格式
        IsProgramUpdating = False ' 一定要记得关闭开关！
    End If
End Sub

同样地，给Temp_C_Change事件做同样的处理：

Private Sub Temp_C_Change()
    If IsProgramUpdating Then Exit Sub
    
    Dim celsius As Double, fahrenheit As Double
    
    If IsNumeric(Temp_C.Text) Then
        celsius = CDbl(Temp_C.Text)
        fahrenheit = celsius * 9 / 5 + 32
        
        IsProgramUpdating = True
        Temp_F.Text = Round(fahrenheit, 1)
        IsProgramUpdating = False
    End If
End Sub

原理说明： #

• 当用户用键盘输入时，IsProgramUpdating是默认的False，所以事件会正常执行转换逻辑。
• 当程序修改另一个文本框内容时，我们先把IsProgramUpdating设为True，此时被修改的文本框的Change事件触发后，会直接跳过后续的转换代码，也就不会触发循环了。
• 一定要记得在修改完成后把开关改回False，不然下次用户输入时事件也会被屏蔽！

这样就能完美实现你想要的：只有用户键盘输入时才触发转换，程序自动修改内容时不会触发循环。

内容的提问来源于stack exchange，提问作者Michael Brogan