用代码阻止按ESC键清空文本框正在输入的内容

laterite

在窗体文本框中输入数据的时候，如果按下或者误触到ESC键，所输入的数据将会丢失，请问如何用VBA代码阻止按ESC键清空文本框正在输入的内容这一功能？

山菊花

试过，阻止不了，下面代码是一个补救措施，看是否合用：

1. Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
2.     If KeyCode = 27 Then
   
3.         TextBox1.Tag = TextBox1.Value
   
4.     End If
   
5. End Sub
   
6. 
   
7. Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
8.     If KeyCode = 27 Then
   
9.         TextBox1.Value = TextBox1.Tag
   
10.     End If
    
11. End Sub
    

复制代码

laterite

山菊花 发表于 2023-2-5 09:53
试过，阻止不了，下面代码是一个补救措施，看是否合用：

好的，多谢版主，祝元宵节快乐

laterite

山菊花 发表于 2023-2-5 09:53
试过，阻止不了，下面代码是一个补救措施，看是否合用：

完成满足预期目标，再次感谢

tmplinshi

1. Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
2.     Const ESC As Integer = 27
   
3.     If KeyCode = ESC Then KeyCode = 0
   
4. End Sub
   

复制代码

laterite

tmplinshi 发表于 2023-2-5 11:05

这个代码是完全禁用ESC键，感谢