2011年度计算机等级考试二级VB复习指导(55)

会计考友

自定义对话框
　　除了预定义对话框和通用对话框外，用户还可以根据实际需要自行定义对话框。自定义对话框实际上就是在一个窗体上放置一些控件，以构成一个用来接受用户输入的界面。这里给出一个设计自定义对话框的实例。
/ A+ P0 {0 z  ]( F' L1 b4 n7 o" J　　实例6.7自定义对话框。
　　在该实例中，用户可以通过对话框输入个人资料，并且输入的资料将显示在主窗体中。该程序用到两个窗体，其中一个窗体用作主窗体，另一个窗体用作对话框。设置主窗体为启动窗体，并且通过主窗体来调用对话框。
　　单击工具条中的【添加窗体】按钮，则出现如图6.20所示的【添加窗体】对话框，在该对话框中选择窗体类型为“对话框”，单击【打开】按钮即可为当前过程添加一个用于设计对话框的窗体。在该窗体上放置了对话框中常用的【确定】和【取消】按钮。下面就以这个窗体为基础设计自定义对话框。
　　在新建的对话框窗体中放置4个标签控件、1个文本框控件、2个单选项控样、1个组合框控件和1个框架控件，并且在框架控件中再放置4个复选框控件，如图6.21所示。其中各控件的属性设置如表6.16所示。

会计考友

自定义对话框
6 ]- S9 @  K1 h- ]2 n) I　　除了预定义对话框和通用对话框外，用户还可以根据实际需要自行定义对话框。自定义对话框实际上就是在一个窗体上放置一些控件，以构成一个用来接受用户输入的界面。这里给出一个设计自定义对话框的实例。
　　实例6.7自定义对话框。
　　在该实例中，用户可以通过对话框输入个人资料，并且输入的资料将显示在主窗体中。该程序用到两个窗体，其中一个窗体用作主窗体，另一个窗体用作对话框。设置主窗体为启动窗体，并且通过主窗体来调用对话框。
　　单击工具条中的【添加窗体】按钮，则出现如图6.20所示的【添加窗体】对话框，在该对话框中选择窗体类型为“对话框”，单击【打开】按钮即可为当前过程添加一个用于设计对话框的窗体。在该窗体上放置了对话框中常用的【确定】和【取消】按钮。下面就以这个窗体为基础设计自定义对话框。
　　在新建的对话框窗体中放置4个标签控件、1个文本框控件、2个单选项控样、1个组合框控件和1个框架控件，并且在框架控件中再放置4个复选框控件，如图6.21所示。其中各控件的属性设置如表6.16所示。

会计考友

　双击对话框窗体中的【确定】按钮，打开【代码】窗口，将下列代码添加到OKButton_Click事件过程中：　　Private Sub OKButton_Click()
　　显示姓名
: c% h1 I" I0 n　　If TextName.Text=“”Then
　　如果姓名为空，则弹出消息框提示用户
　　Msg=MsgBox(“请您输入姓名”，48，“填写”)
　　Exit Sub “退出事件过程
$ u3 D8 q0 ]2 [　　Else
　　MainForm.LabName.Caption TextName.Text
$ x! i  h  a+ F6 o: ~　　End If
' D  ^- X! L3 m6 i8 _, _) W7 w　　判断性别
) L3 k) S+ b6 ]4 R0 C. ^% V　　If OpMan = True Then
2 u3 T) }; Q. T　　MainForm.LabSex.Caption=“男”
/ b6 ~9 H' h7 n+ M+ {4 f: {: c1 U　　Else
　　MainForm.LabSex.Caption=“女”
/ m1 A# i# Y9 |0 M9 S　　End If
* W0 {$ ?$ R7 h. C6 K( d　　显示年龄
　　MainForm.LabAge.Caption=CombAge.Text
　　判断语句的爱好
# i& Q) k2 L( C" M( ]; \( [( `$ v+ R　　It h1.Value=1 Then
0 l& q3 V" Z  }9 O, \. `　　MainForm.L1.Caption=“书法”
　　Else
　　MainForm.L1.Caption=“//”
5 B9 K1 r6 c3 M( C& z& t% }3 M　　End If
7 M/ w. P. z& s; K7 c" R　　If h2.Value=1 Then
; x; U' k! W, T/ y  `' F, k0 Y　　MainForm.L2.Caption=“摄影”
# @% q5 }# X- S8 [. T% L　　Else
! p# |$ l* g, z　　MainForm.L2.Caption=“//”
: Z( y  ]  e$ a6 z　　End If
　　If h3.Value=1 Then
5 B0 F: Y; _7 j  W3 B6 X& _　　MainForm.L3.Caption=“钓鱼”
　　Else
* _6 J0 l+ ?/ a( U. I6 [; L( p　　MainForm.L3.Caption=“//”
　　End If
1 k% y. ?( ]. s9 I3 k( s& q　　If h4.Value=1 Then
　　MainForm.L4.Caption=“旅游”
9 L: l/ }0 ?! [# _4 k　　Else
. k- }4 W& @% q1 B) H" A# {　　MainForm.L4.Caption=“//”
0 B# J5 k0 t/ q8 E1 l# g　　End If
" i  |/ D4 m; a8 G6 q　　Unload Dialog “卸载对话框
6 ?  B8 r' p1 A　　End Sub

会计考友

　双击对话框窗体中的【确定】按钮，打开【代码】窗口，将下列代码添加到OKButton_Click事件过程中：　　Private Sub OKButton_Click()
% u$ M( d( S: z0 r4 b　　显示姓名
　　If TextName.Text=“”Then
2 w% N. i# Y5 q1 T4 t$ F/ _/ @  o　　如果姓名为空，则弹出消息框提示用户
　　Msg=MsgBox(“请您输入姓名”，48，“填写”)
　　Exit Sub “退出事件过程
$ g" Z6 L, |8 k& n- ~　　Else
- M' w$ K  s, B! ?' X0 w% y　　MainForm.LabName.Caption TextName.Text
+ r! P: F' L' C- v; b6 k+ t; O- v% e! u　　End If
6 P* ^1 d% S8 k7 E　　判断性别
　　If OpMan = True Then
1 z3 @7 i' @$ g( e; W8 n' q　　MainForm.LabSex.Caption=“男”
8 @" p% l+ U" _  ~% }( K7 N$ w　　Else
/ T8 t( F; c. I# N8 \1 n. R) x　　MainForm.LabSex.Caption=“女”
　　End If
1 l, c& {+ p/ b　　显示年龄
　　MainForm.LabAge.Caption=CombAge.Text
  Z8 d8 M8 ]: @6 f5 q" G! n; e　　判断语句的爱好
　　It h1.Value=1 Then
　　MainForm.L1.Caption=“书法”
　　Else
　　MainForm.L1.Caption=“//”
　　End If
　　If h2.Value=1 Then
1 x5 V( F' i4 l5 c- C' v　　MainForm.L2.Caption=“摄影”
( h3 C9 y+ o+ ?* N5 x/ a" V　　Else
　　MainForm.L2.Caption=“//”
' o- s3 Y( Q' S  ~, o# U$ |　　End If
　　If h3.Value=1 Then
* \! h! h1 b6 K5 M' j　　MainForm.L3.Caption=“钓鱼”
　　Else
　　MainForm.L3.Caption=“//”
　　End If
7 g! X  M& R1 [% n, b8 S　　If h4.Value=1 Then
, O: g3 R  A3 e5 M0 A/ ]2 q& |　　MainForm.L4.Caption=“旅游”
　　Else
　　MainForm.L4.Caption=“//”
6 ^3 W3 w; Q6 f9 F6 i. h2 M' o　　End If
7 @: G: U4 r8 B3 Q- `　　Unload Dialog “卸载对话框
6 e2 q% B% N& Y; d% i8 j　　End Sub