添加对话框界面
添加对话框界面
使用“工程”窗口浏览工程
创建的对话框包含两个选项按钮（如果选择其中一个，将清除另一个），用于选择瓷砖的形状：圆或多边形。对话框还包含三个文本框，用于输入以下数值：瓷砖的半径、瓷砖之间的间距和瓷砖的边数（只有选定“多边形”选项按钮才可用）。
从 VBA IDE 中创建对话框的步骤
- 在“插入”菜单中，单击“用户窗体”打开一个新窗体。将显示两个窗口、一个工具箱和一个空用户窗体。
- 从工具箱中依次选择并拖动下列控件，将它们放到用户窗体中。如下面的窗体所示放置两个选项按钮 ()、三个标签 ()、三个文本框 () 和两个命令按钮 ()：
- 关闭工具箱。
为单选按钮控件设置特性的步骤
- 在用户窗体中，选择“OptionButton1”控件。在“视图”菜单中，单击“特性窗口”，为 OptionButton1 更改下列特性：
(名称) = gp_poly
Caption = Polygon
ControlTipText = Polygon Tile Shape
Accelerator = P
- 在用户窗体中，选择“OptionButton2”控件。在“特性”窗口中，为 OptionButton2 更改下列特性：
(名称) = gp_circ
Caption = Circle
ControlTipText = Circle Tile Shape
Accelerator = I
为标签控件设置特性的步骤
- 在用户窗体中，选择“Label1”控件。在“特性”窗口中，为 Label1 更改下列特性：
(名称) = label_trad
Caption = Radius of tiles
TabStop = True
- 在用户窗体中，选择“Label2”控件。在“特性”窗口中，为 Label2 更改下列特性：
(名称) = label_tspac
Caption = Space between tiles
TabStop = True
- 在用户窗体中，选择“Label3”控件。在“特性”窗口中，为 Label3 更改下列特性：
(名称) = label_tsides
Caption = Number of sides
TabStop = True
为文本框控件设置特性的步骤
- 在用户窗体中，选择“TextBox1”控件。在“特性”窗口中，为 TextBox1 更改下列特性：
(名称) = gp_trad
- 在用户窗体中，选择“TextBox2”控件。在“特性”窗口中，为 TextBox2 更改下列特性：
(名称) = gp_tspac
- 在用户窗体中，选择“TextBox3”控件。在“特性”窗口中，为 TextBox3 更改下列特性：
(名称) = gp_tsides
为命令按钮控件和窗体窗口设置特性的步骤
- 在用户窗体中，选择“CommandButton1”控件。在“特性”窗口中，更改 CommandButton1 的下列特性：
(名称) = accept
Caption = OK
ControlTipText = Accept the options
Accelerator = O
Default = True
- 在用户窗体中，选择“CommandButton2”控件。在“特性”窗口中，更改 CommandButton2 的下列特性：
(名称) = cancel
Caption = Cancel
ControlTipText = Cancel the operation
Accelerator = C
- 在窗体背景中所有控件之外的位置单击以选择用户窗体。在“特性”窗口中，更改窗体的下列特性：
(名称) = gpDialog
Caption = Garden Path
现在窗体应如下所示：
- 保存所做的工作。
