Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
SendKeys "{TAB}"
End If
If KeyAscii = 32 Then
KeyAscii = 0
End If
End Sub在界面上有一个text控件,当我按回车时转换成TAB键,焦点往下移,但不知道为什么,焦点却一点都不动,我跟了一遍程序,发现程序运行到了SendKeys "{TAB}",但Text1控件却没有失去焦点的事件发生,后来我直接按tab键也没有效果,焦点就是不移动,请问有没有哪位大侠遇到过这样的问题,就是tab键好象失效了似的,但我只单单写一个程序专门试验这个TAB健是否有效的时候又总是没有问题,真是苦恼,不知道什么情况会有这样的问题出现?
还有在我的程序中有一时间控件,当加载窗口先把焦点设在时间控件上时,tab键就好使,能够移到焦点,而加载到别的控件上先,就不行。
请各位高手指点!!
If KeyAscii = 13 Then
KeyAscii = 0
SendKeys "{TAB}"
End If
If KeyAscii = 32 Then
KeyAscii = 0
End If
End Sub在界面上有一个text控件,当我按回车时转换成TAB键,焦点往下移,但不知道为什么,焦点却一点都不动,我跟了一遍程序,发现程序运行到了SendKeys "{TAB}",但Text1控件却没有失去焦点的事件发生,后来我直接按tab键也没有效果,焦点就是不移动,请问有没有哪位大侠遇到过这样的问题,就是tab键好象失效了似的,但我只单单写一个程序专门试验这个TAB健是否有效的时候又总是没有问题,真是苦恼,不知道什么情况会有这样的问题出现?
还有在我的程序中有一时间控件,当加载窗口先把焦点设在时间控件上时,tab键就好使,能够移到焦点,而加载到别的控件上先,就不行。
请各位高手指点!!
我又发现了一个情况,就是当那个窗口是show出来的时候,我敲回车时,主窗口就跳去来,这个窗口就隐到后面,而当我是show 1来显示这个窗口的时候,就出现了上面所说的那种情况。
请各位老大再给点指示,感激不尽
出现你那种情况的原因可能1、操作系统问题。2、vb本身的问题,包括是否打了sp6补丁
-------------------------------------------
菜鸟也搜索 http://www.abcooo.com
比如在form1中:
form2.show 1如果你的form1按tab没有响应,这是应该的,如果你的form2中按tab没有响应,这是反常的
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
Text2.SelStart = 0
Text2.SelLength = Len(Text1)
Text2.SetFocus
End If
If KeyAscii = 32 Then
KeyAscii = 0
End If
End Sub