三个窗体,Form1,Form2,Form3,由Form1启动,然后显示Form2,Form3,但到最好只能留下Form3,为了节省内存,其他两个窗体都要Unload 掉
有一点要求,在程序启动后你不能对程序进行任何手动操作,随便你写什么代码
以下是我的代码:(有错误的)

Form1的Form_Load内写入
static i as integer   '测试数据
debug.print i
i=i+1
form2.show '显示Form2

Fomr2的Form_load写入

Form3.show '显示Form3

Form3的Form_Load内写入:
 unload form1 '卸载Form1
 unload form2 '卸载Form2

利用 sub main 启动

向楼主老师学习。
坐下喝咖啡，等答案。

在Form1在写以下段码：
Private Sub Form_Activate()
    Form2.Show
End Sub

在Form2在写以下段码：
Private Sub Form_Activate()
    Form3.Show
End Sub

在Form3在写以下段码：
Private Sub Form_Activate()
    Unload Form1
    Unload Form2
End Sub

不知道是不是你的起码要求。

[[italic] 本帖最后由 wyfandy 于 2008-1-26 11:12 编辑 [/italic]]

2楼版主的方法当然没错   
我的那段代码是段错误代码  只是提醒大家不要去写我那种  实现不了的  
还有没有其他方法呢?

汗，楼主的方法当然不行，因为Form1和Form2还没有加载完，你就在Form3的加载事件中去Unload它们这样当然不允许啦。

把代码放在Form_Activate事件里，那还差不多

[[it] 本帖最后由 wyfandy 于 2008-1-28 09:35 编辑 [/it]]

呵呵，出来透透气提高一下知名度

用timer控件试试

这个我写的可以用，是Form1，form2，form3依次显示，拿去试试。

form1的代码：

Private Sub Form_Load()
Timer1.Interval = "5000"
Label1.Caption = "嘿！我是form1,祝你天天快乐！"
Label1.F
End Sub
Private Sub Timer1_Timer()
Form2.Show
Unload Me
End Sub
---------------------------------------------------------------
form2的代码：
Private Sub Form_Load()
Timer1.Interval = "5000"
Label1.Caption = "嘿！我是form2,祝你学习进步！"
Label1.F
End Sub
Private Sub Timer1_Timer()
Form3.Show
Unload Me
End Sub
-----------------------------------------------------------------
form3的代码：
Private Sub Form_Load()
Label1.Caption = "嘿！我是form3,爱你一万年^-^！"
Label1.F
End Sub
--------------------------------------------------------------------
应该可以完成题目了。

[[it] 本帖最后由 lele2007 于 2008-1-31 14:46 编辑 [/it]]