- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]一个特殊的要求，关于窗口打开后隐藏！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=18254)
-- 发布时间：2012/4/7 14:01:00
-- [求助]一个特殊的要求，关于窗口打开后隐藏！
forms("A").open
forms("A").visible = false
发现这样 窗口还是会一闪打开 然后一闪消失！
能否去掉视觉上这种闪烁的情况~ 直接打开并隐藏
-- 发布时间：2012/4/7 14:31:00
--
forms("A").visible = false
forms("A").open
这样可以吗？
-- 发布时间：2012/4/7 14:57:00
--
把forms("A").visible = false写在窗口的第一个事件中（打开前执行那个事件））
-- 发布时间：2012/4/7 14:59:00
--
额 窗口还没打开呢！ 怎么 visible 肯定不行啊~
-- 发布时间：2012/4/7 15:23:00
--
貌似不行~
我是用的这段代码 点击click按钮
转移整个面板控件
Dim tr As WinForm.TabControl
tr = e.Form.Controls("TabControl1")
Tr.TabPages.Add(e.Sender.Text,e.Sender.Text)
Dim n As Integer
If tr.SelectedIndex =tr.TabPages.Count-1
n = 0
Else
n = tr.SelectedIndex+1
End If
tr.SelectedIndex = n
forms(e.Sender.Text).open
forms(e.Sender.Text).Visible = False
Dim ymy As WinForm.Panel = Forms(e.Sender.Text).Controls("Panel1")
ymy.Dock = Windows.Forms.DockStyle.Top
tr.TabPages(e.Sender.Text).AddControl(ymy)
最后出现了这个闪烁问题~
我把 forms(e.Sender.Text).Visible = False
弄到相应的窗口 afterload 事件里第一行 还是闪烁
-- 发布时间：2012/4/7 16:02:00
--
blackzhu教俺的~
此主题相关图片如下：未命名.jpg
出错~
-- 发布时间：2012/4/7 19:12:00
--
e.Form.baseform.hide()
我放在afterload里 没用 窗口还是打开 隐藏不了哎！
不能在窗口打开前隐藏掉！
-- 发布时间：2012/4/7 20:26:00
--
闪烁减少到最小吧:::::::::
1、AfterLoad中用代码去掉窗口的蓝色标题栏
2、
forms(e.Sender.Text).open()
forms(e.Sender.Text).SetBounds(0, 0, 0, 0)
3、窗口的背景颜色设置和你按钮所在的窗口的背景底色一样。
-- 发布时间：2012/4/7 21:17:00
--
闪烁减少到最小吧:::::::::
1、AfterLoad中用代码去掉窗口的蓝色标题栏
2、
forms(e.Sender.Text).open()
forms(e.Sender.Text).SetBounds(0, 0, 0, 0)
3、窗口的背景颜色设置和你按钮所在的窗口的背景底色一样。
您这方法不错！ 但是还有点小问题 我发图片啊
正中间还是有点闪烁的东西（抓拍闪烁的时候），不过已经好多了
此主题相关图片如下：1.jpg
这是我抓拍的 闪烁后的图此主题相关图片如下：2.jpg