以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  执行时间  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86749)
--  作者：yifan3429
--  发布时间：2016/6/24 19:15:00
--  执行时间
Dim sp As WinForm.SplitContainer = e.Form.Controls("SplitContainer10")
If sp.Panel1.Collapsed = False Then
    sp.Panel1.Collapsed = True
Else
    sp.Panel1.Collapsed = False
End If


上述代码  如何加入执行时间   默认是打开的  6秒后执行   sp.Panel1.Collapsed = False

或是窗口打开5秒后就自动关闭 
--  作者：Hyphen
--  发布时间：2016/6/25 8:44:00
--  
启用窗口计时器，间隔设置为5秒，TimerTick事件
e.Form.TimerEnabled = False
Dim sp As WinForm.SplitContainer = e.Form.Controls("SplitContainer10")
sp.Panel1.Collapsed = False