救命啊!VB如何检测到文本框里输入了回车键?

graceyvonne 2003-01-07 04:32:43
RT
...全文
151 点赞 收藏 16
写回复
16 条回复
切换为时间正序
请发表友善的回复…
发表回复
x_ish 2003-01-08
可以,用text的change事件也行啊!
回复
zhenxizhou 2003-01-07
If KeyAscii = 13 Then
...
End If
回复
since1990 2003-01-07
up
回复
ls9d999999 2003-01-07
Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
'在此输入您的代码
End Sub
回复
redwrite 2003-01-07
再也没有比jennyvenus(JennyVenus)说的详细透彻的了!
回复
xiaxu110 2003-01-07
在 Private Sub text_keypress (KeyAscii As Integer)
if keyascii=vbkeypress then .......
这样就可以了
回复
45867371 2003-01-07
UP
回复
heipifeng 2003-01-07
在窗体的keydown中删除回车事件,否则会发出“丁丁”响(因为单行文本框不允许会车)

学习!
回复
Sean918 2003-01-07
PeekMessage 函数

up to :jennyvenus
回复
zyf2001 2003-01-07
up up
回复
zhangbob 2003-01-07
up
回复
litsnake1 2003-01-07
同意楼上所说
回复
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim M As msg

If KeyCode = vbKeyEscape Then
Unload Me
ElseIf KeyCode = vbKeyReturn Then
PeekMessage M, Me.hWnd, 0, 0, PM_REMOVE
End If
End Sub
用于实现上面我说的第二步,能够处理回车和esc事件
回复
1)窗体的keypreview=true,以后会有用
2)在窗体的keydown中删除回车事件,否则会发出“丁丁”响(因为单行文本框不允许会车)
3)使用textbox.keydown比textbox.keypress好
回复
zjg791015 2003-01-07
呵呵……关注中!

楼上老兄的方法是正确的!
回复
jinesc 2003-01-07
Private Sub Txtdwbh_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
MsgBox
End If
End Sub
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告