VB showwindow隐藏窗口

Posted 2023-03-14

Private Sub Check2_Click()
If Check2.Value = 1 Then
ShowWindow hwd, SW_SIDE
Else
ShowWindow hwd, SW_SHOW
End If

End Sub
这个代码只会隐藏不会显示

'以COMMAND按钮为例

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_SHOW = 5
Private Const SW_HIDE = 0

Private Sub Check1_Click()
If Check1.Value = 0 Then
ShowWindow Command1.hwnd, 5
Else
ShowWindow Command1.hwnd, 0
End If
End Sub 参考技术A 窗体都隐藏了，还会有check2_click这个过程么？
你可以弄个托盘. 参考技术B ShowWindow hwd, SW_SIDE
执行以后窗体被隐藏了

无法执行 取消 Check2 选中状态的 Click操作
自然 窗体不会显示