在窗体中添加一个 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控件写一个嘛!
答：你直接把杀毒软件下载到U盘想在DOS下杀毒那是不可能的。因为杀毒软件本身不会启动DOS，别的杀毒软件不知怎么样，就瑞星而已，先要在瑞星的程序界面的“工具列表”里...详情>>
