一个捆饶我很久的VB问题!有经典的解决方案吗?(5分)

  • 主题发起人 主题发起人 mazunini
  • 开始时间 开始时间
M

mazunini

Unregistered / Unconfirmed
GUEST, unregistred user!
在VB中有什么办法使在Text1控件中输入字符后按回车键,光标就到Text2中,而
不是按Tab键!!有没有既简单又行之有效的方法!!请指教!
 
keyDown事件里去检测KEY, 如果是回车键,则TEXT2得到焦点
 
设定好tab键顺序。然后在keydown事件中检测key,如果是回车键,则转换为tab键。
 
在VB中我到是不知道,不过在DELPHI中的KEYPRESS事件或者KEYDOWN中这样写就可以了
if key=#13 then
edit1.setfocus;
 
在keyDown事件里添加是吧??这个我也知道,但具体如何写这两句语句??能在vb中调试
一下,再告诉我好吗??
 
这也用调试吗,是你太懒了吧
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 then
Text2.SetFocus
End Sub
 
这就是我原来实现的方法呀!但是你试试,每次按回车时
耳机都会发出“叮”的声音,这难道不是警铃的声音吗?
所以我以为这个方法并不好,才问大家有什么别的实现方
法的呀!!
 
microyzy怎么哑了火了??对有响铃警告你也不知道是怎么回事吗??
 
to mazunini:
“叮”的一声并不是警铃,要去掉只需在KeyPress事件中加入
if KeyAscii=13 then
KeyAscii=0
end if
即可,其实在vb中是这样做的,将form的KeyPreview设置为true,再在form的KeyPress事件
中写:
if KeyAscii=13 then
sendkeys "{TAB}"
end if
即可!
 
to mazunini:
我刚才又试了一下,其实在VB里,只要在Text控件上敲回车就会有“叮”的一声,
刚才的代码少了一句,应该是:
将form的KeyPreview设置为true,再在form的KeyPress事件中写:
if KeyAscii=13 then
sendkeys "{TAB}"
KeyAscii=0
end if
即可!
 
to mazunini:
我刚才又试了一下,其实在Delphi里,只要在Text控件上敲回车也会有“叮”的一声,
且只要在KeyPress事件中加上Key:=#0一句就没了,是一样的!
按回车键就切换控件的实现在Delphi上也是一样的!
 
听君一席话,胜读十年书!
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部