试试API,SendKeys经常有问题,在98下还会将渐层显示的窗口颜色改为无渐层显示。(要执行下面的程序,请在窗体上加:两个TextBox控件,并将名称都命名成:Text1,也就是定义成数组)Option ExplicitPrivate Const VK_TAB = &H9 Private Declare Sub keybd_event Lib "user32" _ (ByVal bVk As Byte, ByVal bScan As Byte, _ ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = vbKeyReturn Then KeyAscii = 0 keybd_event VK_TAB, 0, 0, 0 End If End Sub
我索性就把这个键屏蔽掉了
WIN98下闪了
能有办法叫NumLock不闪吗?
Private Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
KeyAscii = 0
keybd_event VK_TAB, 0, 0, 0
End If
End Sub
对,在Delphi里我用过这个API,很好用,估计VB没问题