OnKey 開啟/關閉

mdra0465

各位師兄你好

我有一個檔案設定左按"F1" 會彈出預覽設定框架, 但如果我想關閉就只能按"X" 請問怎樣可以做到同樣按"F1"鍵都可以做到開啟和關閉呢?

謝謝

淡__

再套一个壳子
全局变量 打印状态
onkey "f1" "预处理“

预处理（）
如果 打印状态=1 ”打印开“
如果 打印状态=2 ”打印关“

mdra0465

淡__ 发表于 2024-1-3 17:45
再套一个壳子
全局变量 打印状态
onkey "f1" "预处理“

淡,師兄,

能不能給VBA 的我代碼呢? ,謝謝

淡__

1. Public xx As Boolean
   
2. Sub sss()
   
3.     Application.OnKey "x", "thisworkbook.test_P"
   
4.    
   
5. End Sub
   
6. Sub test_P()
   
7. '    If Not xx Then
   
8.         test.Show 0
   
9. '        xx = True
   
10. '    Else
    
11. '        Unload test
    
12. '        xx = False
    
13. '    End If
    
14. End Sub

复制代码

片段1如上
片段2如下

1. Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
2. Debug.Print KeyCode
   
3. If KeyCode = 88 Then 'x键值
   
4. Unload Me
   
5. End If
   
6. End Sub

复制代码