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

会计考友

自定义对话框
+ P1 c) N; t2 H0 {3 y　　除了预定义对话框和通用对话框外，用户还可以根据实际需要自行定义对话框。自定义对话框实际上就是在一个窗体上放置一些控件，以构成一个用来接受用户输入的界面。这里给出一个设计自定义对话框的实例。
* _% V7 x, T* D: c( G; k) o　　实例6.7自定义对话框。
" J. X" S4 o) T) Q! i　　在该实例中，用户可以通过对话框输入个人资料，并且输入的资料将显示在主窗体中。该程序用到两个窗体，其中一个窗体用作主窗体，另一个窗体用作对话框。设置主窗体为启动窗体，并且通过主窗体来调用对话框。
. _3 R& a9 E+ L! ]( I# o0 v　　单击工具条中的【添加窗体】按钮，则出现如图6.20所示的【添加窗体】对话框，在该对话框中选择窗体类型为“对话框”，单击【打开】按钮即可为当前过程添加一个用于设计对话框的窗体。在该窗体上放置了对话框中常用的【确定】和【取消】按钮。下面就以这个窗体为基础设计自定义对话框。
　　在新建的对话框窗体中放置4个标签控件、1个文本框控件、2个单选项控样、1个组合框控件和1个框架控件，并且在框架控件中再放置4个复选框控件，如图6.21所示。其中各控件的属性设置如表6.16所示。

会计考友

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

会计考友

　双击对话框窗体中的【确定】按钮，打开【代码】窗口，将下列代码添加到OKButton_Click事件过程中：　　Private Sub OKButton_Click()
) b5 P3 i( T4 X* Z　　显示姓名
　　If TextName.Text=“”Then
3 Z! L  q5 D! B9 N) [- n　　如果姓名为空，则弹出消息框提示用户
　　Msg=MsgBox(“请您输入姓名”，48，“填写”)
　　Exit Sub “退出事件过程
　　Else
　　MainForm.LabName.Caption TextName.Text
& a1 k! _. Y. Q/ s4 P　　End If
, N+ ^) T; m; d. f: m# I- e9 K　　判断性别
8 `) P2 _/ |0 [3 D　　If OpMan = True Then
. s% v0 ^% C4 o2 Z3 g　　MainForm.LabSex.Caption=“男”
　　Else
　　MainForm.LabSex.Caption=“女”
9 v8 I0 N& o: ]( q1 A　　End If
; ]. O9 D' _" m( Y7 b: M　　显示年龄
4 q4 U9 Q- [* g& |1 i$ k) z　　MainForm.LabAge.Caption=CombAge.Text
　　判断语句的爱好
　　It h1.Value=1 Then
　　MainForm.L1.Caption=“书法”
　　Else
8 }& d: S# y3 ]* J! J　　MainForm.L1.Caption=“//”
　　End If
7 N  q" M/ ^. F! r5 h- V8 b　　If h2.Value=1 Then
　　MainForm.L2.Caption=“摄影”
- S1 M) N2 E% Y3 L5 O- Y　　Else
　　MainForm.L2.Caption=“//”
　　End If
4 e, ^" O. M% `6 g5 R( x  ~　　If h3.Value=1 Then
; H' }) @0 T# L, k; m  T; ^8 E　　MainForm.L3.Caption=“钓鱼”
　　Else
2 S- D1 R  y0 x# S# p　　MainForm.L3.Caption=“//”
+ O6 P$ i. k  ?! z2 i7 u　　End If
　　If h4.Value=1 Then
　　MainForm.L4.Caption=“旅游”
0 O9 W) |' G* d* w, o  s5 Y　　Else
+ n! B: E* M7 c$ L　　MainForm.L4.Caption=“//”
4 _0 R- u( d1 |4 B7 K+ r　　End If
6 u: y  e1 ~, O4 i2 D　　Unload Dialog “卸载对话框
, o( T1 _  K2 m+ l% b& s' L　　End Sub

会计考友

　双击对话框窗体中的【确定】按钮，打开【代码】窗口，将下列代码添加到OKButton_Click事件过程中：　　Private Sub OKButton_Click()
5 }" e$ L3 y8 A/ R! W$ H　　显示姓名
　　If TextName.Text=“”Then
; r$ o2 q7 f0 A( Z5 ?& F$ Y　　如果姓名为空，则弹出消息框提示用户
　　Msg=MsgBox(“请您输入姓名”，48，“填写”)
) j' g, X# ~$ q1 f8 `4 ~　　Exit Sub “退出事件过程
" j- u& b8 j4 d8 Q/ V5 I/ j1 Q8 D　　Else
+ F7 T' J! @/ Y5 Y- v# F; h9 z' s　　MainForm.LabName.Caption TextName.Text
　　End If
* W' G$ [9 x6 c: c　　判断性别
　　If OpMan = True Then
* H) ?0 U' A4 O# p　　MainForm.LabSex.Caption=“男”
0 I- B% q+ N- x2 y' e1 a　　Else
　　MainForm.LabSex.Caption=“女”
8 `; L" C( D1 v2 C; V3 u, N　　End If
　　显示年龄
% A* D6 J% u7 @4 i　　MainForm.LabAge.Caption=CombAge.Text
: P5 J0 a0 q# H' ?6 |9 t; V% w' ^　　判断语句的爱好
  f  U0 s% W% Q　　It h1.Value=1 Then
% e/ F  b' }* S8 T- z* {, r　　MainForm.L1.Caption=“书法”
' _8 @$ Y' A: q: k　　Else
' V9 R6 Z# L& M4 o8 N　　MainForm.L1.Caption=“//”
& |! r- W# }' T8 W+ s+ L! A　　End If
　　If h2.Value=1 Then
　　MainForm.L2.Caption=“摄影”
　　Else
! h9 a0 z& I7 m3 A. i" p5 m5 r' `　　MainForm.L2.Caption=“//”
6 j6 E( W# V% N8 t　　End If
7 Y- C8 k! e5 i' Y9 k/ i( \　　If h3.Value=1 Then
　　MainForm.L3.Caption=“钓鱼”
/ B5 p$ G3 j* B& M& W& f% U  |　　Else
/ Y& P3 O# }- U8 L8 e　　MainForm.L3.Caption=“//”
　　End If
& q4 Q0 f: a! R* A# W, N. ]　　If h4.Value=1 Then
　　MainForm.L4.Caption=“旅游”
- }2 \, y( O: [! {" r; v! Y　　Else
　　MainForm.L4.Caption=“//”
　　End If
4 p, b2 k( D: x! u( z　　Unload Dialog “卸载对话框
　　End Sub