VB6 讓自己的程式 隱藏/彈出

首先呢,打開vb6程序吧! 請大家支持喔

之後加入 主要的 API

1. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
   
2. Dim MyForm As Boolean

複製代碼

再加上一些程式碼

1. 
   
2. 
   
3. If GetAsyncKeyState(vbKeyF1) Then ' GetAsyncKeyState 是按鍵的 vbKeyF1 是按下了F1
   
4. If MyForm = False Then '如果這個 MyForm 指令說明了 已經 False
   
5. Me.Hide  ' 下一步就是讓 程序 隱藏
   
6. MyForm = True ' 這個是說 MyForm的功能 已經啟動了
   
7. Else   ' 或者
   
8. Me.Show '程序彈出
   
9. MyForm = False ' MyForm的指令 變 False
   
10. End If
    
11. End If
    
12. 
    

複製代碼

我按了F1沒反應
請問有甚麼問題?

雙擊視窗進入Form_load 然後在輸入程式碼 IS OK