VB怎么在后台运行

2024-11-28 18:12:52
推荐回答(1个)
回答1:

1、在窗体上添加时钟控件。
2、在Form_Load事件中,添加Timer1.Interval = 250
3、在代码窗口中,添加如下代码:

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

Public Sub shift() '你自己的事件
ShowWindow Me.hWnd, SW_RESTORE
End Sub

Private Sub Timer1_Timer() '是否按下shift
If GetAsyncKeyState(vbKeyShift) Then shift
End Sub

当程序后台运行时,直接按一下Shift键,即可调出程序界面。