实例4.8多窗体应用程序。 使用【工程】菜单中的【添加窗体】命令为当前工程添加两个新的窗体。它们的属性设置如表4.12所示。
1 V$ C5 V# s; a9 v% C. x/ z. d& n1 g$ _6 K% y
' e3 b% G- j5 o. i, j. a' ~
在主窗体上放置3个按钮,各按钮控件的属性设置如表4.13所示。 F$ P- s2 B6 F9 E! o7 ?; e
$ `" R f4 M b& u8 o
( P( i; Z" a0 F( z 双击【打开窗体】按钮,打开【代码】窗口,将下列代码添加到ComrOpen_Click事件过程中:
/ l. K5 W. t3 z Private Sub ComOpen_click()5 O- ~0 x. @6 d0 |# [$ u' {. i) `
ForSub1.show
, m, ^, R% P: r5 x: H6 l: u ForSub2.show
! l3 G+ x; I7 ^8 ]1 r# L6 N) U k End Sub
" [- s [& _2 Q# _+ b8 m 将下列代码添加到ComClosel_Click事件过程中: l$ W! N. z/ a
Private Sub ComClose_Click()% z: ^3 W/ h4 Z
Unload ForSubl- y/ K* W# M+ H4 ], X y
End Sub+ o" _5 W( e) v
将下列代码添加到ComClose2_Click事件过程中:+ ^ }6 O( N) F! H# U" ^
Private Sub ComClose2_Click()4 w* z" t: ?3 ~/ u2 x" A8 }' I7 O
Unload ForSub2
+ h- r* w+ x7 i8 }6 M! O End Sub: h5 h4 c, q5 y
在【工程属性】对话框的【通用】选项卡中设置启动窗体为ForMain.
1 m7 Y5 ?/ E. f: |; ] 单击工具栏中的【运行】按钮运行该程序,则屏幕上出现启动窗体,单击【打开窗体】按钮,则窗体1与窗体2出现在屏幕上。& k9 I# q2 \% d
单击【关闭窗体1】按钮与【关闭窗体2】按钮,则分别可关闭窗体1与窗体2. |