請問如何不關閉程序而只是隱藏，而當用戶再次打開時則最大化顯示

Question

如題，謝謝

Answer 1

Private Sub cmdHide_Click()
       FORM.VISIBLE = FALSE  '隐藏窗体或者其他       
End SubPrivate Sub cSysTray1_MouseDblClick
       form.VISIBLE = ture   '取消隐藏
       form.WindowState = vbMaximized      '最大化窗体
End Sub

Answer 2

你的意思是,当点击窗体的关闭按钮时,窗体隐藏,再次运行程序就显示窗体是吧?如果是这样,可以在窗体的QueryUnload事件里加入隐藏窗体的代码,并中止程序的结束:Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)Me.Visible = FalseCancel = TrueEnd Sub至于如何在再次运行时将已经运行的程序激活,这个我也不知道

Answer 3

你可以把它加到系统栏里，激活的话只需点那里就好了，
Me.visible=false激活：
Me.visible=true
偶有代码
需要的话偶给你一份

Answer 4

在标准模块中：用以判断程序是不是已经运行了，如果是就激活以前运行的程序的窗口
sub main 
    Dim h       As Long
    If App.PrevInstance = True Then
        h = FindWindow(vbNullString, "我的第一个程序")
        If h Then
            ShowWindow h, SW_SHOWNORMAL
        End If   
        exit sub
    end if
end sub防止关闭的代码：
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    
    If UnloadMode = vbFormControlMenu Then
        '//just hide me
        Me.WindowState = vbMinimized
        Me.Hide
        Cancel = True
    end if
end sub

Answer 5

请问： VirtualAlloc(咩咩（YangVB）) 
SW_SHOWNORMAL参数的值是多少 
TO  VirtualAlloc(我是一只小小小菜鸟～～)  我还没试，有用肯定会有分

Answer 6

原来是同一个啊，楼上的
改汉名了
SW_SHOWNORMAL参数的值是多少

Answer 7

在form_load()中加入判断App.PrevInstance = True则运行过本程序了，用API中的SendMessage发送消息到已运行的程序可以做任何事，然后退出如果App.PrevInstance = False则运行程序，并可以通过系统消息接收任何参数