7,763
社区成员
发帖
与我相关
我的任务
分享
option base 1
dim a(3,3) as integer
private sub command1_click()
dim s as integer
s=0
for i = 1 to 3
s= s + a ( i , i )
next
picture1.print "对角线之和是:";s
end sub
private sub form_load()
show
randomize
for i = 1 to 3
for j = 1 to 3
a (i,j)= int (Rnd*99+1)
picture1.print a(i,j) ;chr(9);
next i
picture 1.print
next i
end sub
' Form1中的两个命令按钮,分别写如下事件代码:
Private Sub Command1_Click()
Load Form2
End Sub
Private Sub Command2_Click()
Form2.Show
End Sub
' - - - - - - - - - - - - - - - - - - - -
' Form2中只有如下事件代码:
Private Sub Form_Load()
MsgBox "加载Form2", 64&
End Sub
运行程序,然后进行下列操作:
1. 点Command1,出现消息框。
点确定关闭消息框,再继续点Command1,却不会“有反应”:
因为Form2刚才已经加载了,后面再点时,已经不会再触发Form2的Load事件了。
但Form2仅仅是“加载”,并不会显示出来!
2. 这时点Command2,Form2窗口立即显示出来了。但此时在显示窗体之前也不会出现消息框。
3. 点Form2窗口右上角的“×”关闭窗口; 再点Command2,可以看到:
先出现消息框:因为刚才关闭Form2时,Form2会被UnLoad,现在要执行Show,所以必须重新Load它。
点消息框中的“确定”后,Form2就可立即显示出来。
4. 把活动窗体切到Form1,此时再去点Form1中的Commnad1,不会有反应,因为Form2是已经加载了的;
此时点Command2,“活动窗体”会变成Form2,因为Show之后会激活对应窗体。