Chinaunix首页 | 论坛 | 博客
  • 博客访问: 26968
  • 博文数量: 52
  • 博客积分: 10
  • 博客等级: 民兵
  • 技术积分: 470
  • 用 户 组: 普通用户
  • 注册时间: 2011-01-23 14:08
文章分类

全部博文(52)

文章存档

2024年(8)

2023年(22)

2022年(22)

我的朋友

分类: Windows平台

2024-04-08 12:41:19

事实上 KeyPress、KeyDown、KeyUp、Change这四种事件过程都可以判断是否按了回车键:


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then MsgBox "你按了回车键!"
End Sub


Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then MsgBox "你按了回车键!"
End Sub


Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then MsgBox "你按了回车键!"
End Sub


Private Sub Text1_Change()
If Mid(Text1.Text, Text1.SelStart, 1) = vbLf Then MsgBox "你按了回车键!"
End Sub
相比较而言,用Change事件来实现是{BANNED}最佳笨、{BANNED}最佳不适合的方式,只能在多行文本框(MulitLine属性为True)使用,
而且会出现误判的情况(自己试试就知道)。{BANNED}最佳佳方式是KeyPress,没有为什么,它就是{BANNED}最佳佳。

阅读(59) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~