以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何打开一个窗口让其最小化。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=25643)
--  作者：unverse
--  发布时间：2012/11/13 18:00:00
--  如何打开一个窗口让其最小化。

如题，我想让锁定窗口弹出后，就是最小化。应该怎么实现 ？请指导 。。

 

 

If Forms("登陆密码").Opened Or Forms("锁定界面").opened
          Return
    Else
        Dim t As New TimeSpan(0,0,0,10,0) \'间隔时间为10秒
        Dim Seconds As Double =t.TotalMilliseconds
        Dim d As Double = Tick()
        If d>= Seconds Then
            \' MyTimers("自动锁定").Enabled = False \'暂停计划1
            Forms("主窗口").baseform.hide()
            Forms("主窗口").close
            Forms("锁定界面").open
            Forms("锁定界面").这里应该怎么写？
        End If
    End If

 

上述代码红色区域应该怎么写啊。将锁定界面弹出后，自动最小化。。。。
--  作者：lin_hailun
--  发布时间：2012/11/13 18:03:00
--  
 e.Form.BaseForm.WindowState = System.Windows.Forms.FormWindowState.Maximized   \'最大化

 Minimized  \'最小化

 Normal   \'正常
--  作者：lin_hailun
--  发布时间：2012/11/13 18:07:00
--  
 再任务栏显示

 e.Form.BaseForm.ShowInTaskbar = True