在窗体中添加一个 Timer 控件,其 Enabled 属性设置为 False ,并复制以下代码:
'========================================================
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 36 'Home 键
Timer1。
Enabled = True
Case 35 'End 键
Timer1。Enabled = False
End Select
End Sub
Private Sub Form_Load()
Timer1。Enabled = False '以防万一
Timer1。
Interval = 100 '100 毫秒即为 0。
1 秒
End Sub
Private Sub Timer1_Timer()
SendKeys ("^") '向活动的窗口发送 Ctrl 键按键消息并立即返回到过程
End Sub
'========================================================
如果不明白,请找我联系。
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case 36 Timer1.Enabled = True Case 35 End End Select End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print KeyAscii End Sub ' Private Sub Timer1_Timer() Form_KeyPress (17) End sub 希望指教
个人用timer控件写一个嘛!
答：详情>>
答：DVBH标准对时间分片、蜂窝标识和DVBH信令技术作为强制性要求必须使用，其它各技术组合是可选的详情>>
答：你好，你直接按键盘 vb12 就好了。详情>>
