VB編程如何實現按下鍵盤F1即復制，按下F2即粘貼

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form_Load()

Timer1.Interval = 300

End Sub

Private Sub Timer1_Timer()

If GetAsyncKeyState(vbKeyF1) Then SendKeys "^C"

If GetAsyncKeyState(vbKeyF2) Then SendKeys "^V"

End Sub

上一篇:如何在Delphi中動態創建按鈕組件

下一篇:會CAD，PROE，solidworks，想找個繪圖員工作，能拿多少工資啊？