什么让一个form加载完再加载下一个form

asylum

难道你们都不知道sub Main() 吗？

首先把启动方式改成Sub Main方式，建立几个form.
建立一个模块module1
在module中输入:

Option Explicit
Global frm1 as Form1
Global frm2 as Form2

Private Sub Main()
   if frm1 is nothing then set frm1=new Form1
   load frm1
   frm1.show vbModal

   if frm2 is nothing then set frm2=new Form2
   load frm2
   frm2.show vbModal
   
   ...
   ...
   ...

End Sub

注意用完窗体对象后要卸载
unload frm1
set frm1=nothing

程序是从模块的sub main中开始执行，form窗体作为对象被创立，显示，并卸载，这样就实现了窗体对象的循序装载。你可以在程序执行中随时加载任意一个窗体对象，并且可以加载多个相同的form,如打开5个frm1窗口。

这样应该就是楼主想要的结果了吧。

wzqqwz

对,就是这样,谢谢了

psic

游戏之家5世: Re: Re:什么让一个form加载完再加载下一个form



SUB NAME(X,Y,Z)
END SUB

和类的原理是一样的，只是变成了过程， 可以用变量指针控制子程序。

退化了？程序开发里的返祖现象？？

asylum

这是vb的基础的东西，我看你们在讨论这个讨论半天没个结果，我都晕死。
vb设计面板中可见的控件（包括Form）,都是基于对象的，既然是对象，就可以在程序中实时加载，卸载。注意， Form1.show , Form1.hide仅仅是显示，隐藏窗体而已。

asylum

五星勋章用了11个FORM，哈哈！见图：
启动FORM1里，开始把不需要启动的FORM关了。

尤其是游戏之家X世，你用11个窗体也就罢了，居然在load后又hide10个窗口，我汗。。。。你不是一直标榜代码最简洁的吗，这次可是露馅了。
而且，我发现你的编码命名规则极不规范， 大量使用form1,form2,command1,command2,dd,cc,aa.......不利于别人，也不利于自己读懂代码。

Miu.C

楼上的看法MSDN里都有，但是很多初学者都不注意，这是很重要的哦~~~

griffin2006

asylum: Re: 什么让一个form加载完再加载下一个form



尤其是游戏之家X世，你用11个窗体也就罢了，居然在load后又hide10个窗口，我汗。。。。你不是一直标榜代...

我现在故意这样写~

griffin2006

目的就是不让别人看懂.

Miu.C

griffin2006: Re:什么让一个form加载完再加载下一个form

目的就是不让别人看懂.

初学者：汗！

游戏之家5世

asylum: Re: 什么让一个form加载完再加载下一个form



尤其是游戏之家X世，你用11个窗体也就罢了，居然在load后又hide10个窗口，我汗。。。。你不是一直标榜代...

我不喜欢在窗口里调节FORM的属性, 我喜欢用命令直接修改控件属性,
这样无论我的窗口被改了什么, 游戏都是正常的, 这才是正规的编写程序方法, 虽然VB6提供了简单的修改控件属性功能,  这只是给初学者用的.