7,763
社区成员
发帖
与我相关
我的任务
分享窗体的初始化
双击用户控件（.ctl）上的某一控件（如Image）之后
通过函数将用户控件中的一些参数传递给窗体Form1
并由这些参数来初始化窗体Form1上CheckBOx和OptionBox等控件的显示
问题：
在双击了之后
这些参数已经传过窗体Form1那边，并开始初始化窗体（在Form_Load中）
在窗体Form1还没出现之前（Form1.show）
用户要等一段时间，甚至时间还比较长（好几秒！！！）
我想知道怎样缩短和减少等待窗体弹出的时间
可不可以在窗体弹出之后才继续初始化窗体上的控件？？
通过函数将用户控件中的一些参数传递给窗体Form1
并由这些参数来初始化窗体Form1上CheckBOx和OptionBox等控件的显示
问题：
在双击了之后
这些参数已经传过窗体Form1那边，并开始初始化窗体（在Form_Load中）
在窗体Form1还没出现之前（Form1.show）
用户要等一段时间，甚至时间还比较长（好几秒！！！）
我想知道怎样缩短和减少等待窗体弹出的时间
可不可以在窗体弹出之后才继续初始化窗体上的控件？？
...全文
请发表友善的回复…
发表回复
San0011 2004-11-25
- 打赏
- 举报
结帖了
感谢大家的参与
感谢大家的参与
San0011 2004-11-12
- 打赏
- 举报
期待ing……
行云边 2004-11-12
- 打赏
- 举报
我觉得 你的用户控件里 是直接引用窗体的名字了 譬如
Form1.Check1.Value = 1 '改变Form1里的Check1值
这里直接引用了窗口的名字Form1 ,窗体也是类 不建议使用名字引用窗体里的属性 方法，因为这样有可能不知不觉启动了另一个Form1 实例，比较合理的使用方法：
先在模块里定义一个全局变量Form1的指针（也就是没有New关键字）
Global g_frmMain as Form1 'Form1的指针
然后在Sub main 里 或 Form_load 里 使g_frmMain 指向一个实例
譬如 如果你程序是用Sub Main启动的话：
sub Main()
set g_frmMain= new form1
g_frmMain.show '不要使用Form1.show
end sub
如果你没有sub main 的话 在 启动窗口的Load事件里写上：
sub form_load()
set g_frmMain=me '使g_frmMain指向自己
end sub
这样在你的用户控件里 替换 所有“Form1.”为 “g_frmMain.”
这样的话 Form1.Check1.Value = 1 应该改成 g_frmMain.Check1.Value = 1
Form1.Check1.Value = 1 '改变Form1里的Check1值
这里直接引用了窗口的名字Form1 ,窗体也是类 不建议使用名字引用窗体里的属性 方法，因为这样有可能不知不觉启动了另一个Form1 实例，比较合理的使用方法：
先在模块里定义一个全局变量Form1的指针（也就是没有New关键字）
Global g_frmMain as Form1 'Form1的指针
然后在Sub main 里 或 Form_load 里 使g_frmMain 指向一个实例
譬如 如果你程序是用Sub Main启动的话：
sub Main()
set g_frmMain= new form1
g_frmMain.show '不要使用Form1.show
end sub
如果你没有sub main 的话 在 启动窗口的Load事件里写上：
sub form_load()
set g_frmMain=me '使g_frmMain指向自己
end sub
这样在你的用户控件里 替换 所有“Form1.”为 “g_frmMain.”
这样的话 Form1.Check1.Value = 1 应该改成 g_frmMain.Check1.Value = 1
San0011 2004-11-12
- 打赏
- 举报
还是会出现……
gg137zeus 2004-11-11
- 打赏
- 举报
Form1.Refresh
doevents
zgvslch 2004-11-11
- 打赏
- 举报
刷新一下试试
Form1.Refresh
Form1.Refresh
San0011 2004-11-11
- 打赏
- 举报
期待回复！！！！！！！！！！！！！！！！
San0011 2004-11-11
- 打赏
- 举报
前面的问题以解决
加分再问 窗体初始化问题：
我用传过去的参数来初始化窗体中的控件时
我希望窗体显示出来的时候
用户看到的窗体中的那些控件都是已经初始化好了的
如OptionBox该勾上的就勾上，CheckBOx该选中的就显示选中
现在的问题是
第一次双击弹出窗体时
窗体上的控件一般都没有初始化成功
那些控件都是未选中状态!!!!!!!!!!!!
真是见鬼！
再打开的话才能看到已经初始化了
该如何才能第一次弹出窗体时就让他初始化成功????????!!!!!!!!
请各位赐教
加分再问 窗体初始化问题：
我用传过去的参数来初始化窗体中的控件时
我希望窗体显示出来的时候
用户看到的窗体中的那些控件都是已经初始化好了的
如OptionBox该勾上的就勾上，CheckBOx该选中的就显示选中
现在的问题是
第一次双击弹出窗体时
窗体上的控件一般都没有初始化成功
那些控件都是未选中状态!!!!!!!!!!!!
真是见鬼！
再打开的话才能看到已经初始化了
该如何才能第一次弹出窗体时就让他初始化成功????????!!!!!!!!
请各位赐教
qiangsheng 2004-11-05
- 打赏
- 举报
是在窗体退出前触发的，但是可以通过Cancel的值来控制真正退出与否，也就是说可以在这里编写代码使窗体不退出。
San0011 2004-11-05
- 打赏
- 举报
Form_QueryUnload 是怎么触发的？？
行云边 2004-11-04
- 打赏
- 举报
private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
me.hide
End Sub
me.hide
End Sub
San0011 2004-11-04
- 打赏
- 举报
解决了载入时间过长的问题
又有新的问题：
单击“关闭”按钮Unload 窗体时
又要等好几秒！！！！！！！！！！！！！
又有新的问题：
单击“关闭”按钮Unload 窗体时
又要等好几秒！！！！！！！！！！！！！
orsharp 2004-11-03
- 打赏
- 举报
加个启动画面！
San0011 2004-11-03
- 打赏
- 举报
是连续弹出来……
quakecf 2004-11-03
- 打赏
- 举报
form_load()
form1.show
doevents
....
end sub
form1.show
doevents
....
end sub
San0011 2004-11-03
- 打赏
- 举报
把 form1.show 放在form_load()中之后
form1窗体隔一会就自行弹出来了 ：（
form1窗体隔一会就自行弹出来了 ：（
zdcwin 2004-11-03
- 打赏
- 举报
在关闭窗体时将checkbox和optionbox的状态存入一组全局变量中，再次打开窗体时再根据这些值来设定checkbox和optionbox的状态。
此外，窗体弹出后仍然可以初始化窗体上的控件，只要在form_load()中的form1.show之后添加代码就行了。
此外，窗体弹出后仍然可以初始化窗体上的控件，只要在form_load()中的form1.show之后添加代码就行了。
行云边 2004-11-03
- 打赏
- 举报
//可不可以在窗体弹出之后才继续初始化窗体上的控件？？
可以
可以
San0011 2004-11-03
- 打赏
- 举报
另外
我在对窗体Form1上的CheckBOx和OptionBox等控件设置完之后关闭窗体
在下次重新打开该窗体时
如何保留前此的操作状态
如前一次的OptionBox1为选中状态
再下次打开该窗体时OptionBox的状态为选中
我在对窗体Form1上的CheckBOx和OptionBox等控件设置完之后关闭窗体
在下次重新打开该窗体时
如何保留前此的操作状态
如前一次的OptionBox1为选中状态
再下次打开该窗体时OptionBox的状态为选中
victorycyz 2004-11-03
- 打赏
- 举报
form_load()事件过程中，在第一行插入这句：form1.show
