首先启动一个新的项目，向空白的窗体上添加一个Shape控件，添加控件后的窗体如图3-6所示。
图3-6 添加控件后的窗体
其中Shape控件的属性设置如表3-5所示。
表3-5 Shape控件的属性设置
|
属 性 |
设 置 |
|
(Name) |
Shape1 |
|
BackStyle |
0 - Transparent |
|
BorderStyle |
1 - Solid |
|
FillColor |
&H00000000& |
|
FillStyle |
0 - Solid |
|
Height |
2055 |
|
Left |
600 |
|
Shape |
0 - Rectangle |
|
Top |
720 |
|
Width |
3375 |
这样设置的控件有以下的特性：
n 以实心的方式填充控件；
n 以黑色(&H00000000&)填充控件；
n 控件显示的是矩形。
2．添加代码
在窗体的设计阶段，双击窗体，在窗体的Form_Load()事件中添加下列代码：
Private Sub Form_Load()
Dim str As Integer
'定义一个整型变量
str = MsgBox("MsgBox函数的用法：", 67, "MsgBox函数")
'输出一个对话框
If str < 7 Then
Shape1.Shape = str - 1
End If '改变控件的形状
End Sub
提示：
@ 运行程序，就会激活一个Form_Load()事件，程序首先定义一个整型变量用来存储用户对输出对话框的响应，然后通过语句Shape1.Shape = str - 1把用户的响应转化到控件形状的改变上。
3．运行程序
存储文件，运行程序，就会弹出一个如图3-7所示的对话框。
图3-7 输出对话框
单击“确定”按钮，返回到运行的窗体，结果如图3-8所示，控件Shape的形状已经变成了圆角矩形。
图3-8 程序的运行结果
3.3 公共对话框控件
在Visual Basic 6.0中的公共对话框为用户提供了一组标准的操作对话框Common Dialog，进行诸如打开和保存文件、设置打印选项以及选择颜色和字体等操作。
技巧：
@ 如果想在程序中显示一个公共对话框，首先要将CommonDialog控件添加到缺省的工具箱中，然后才能够把它放置到窗体上设置其属性。
首先，我们需要设置对话框控件的属性。CommonDialog控件所显示的对话框由控件的相应方法或者有Action属性的设置值来确定，如表3-6所示所示：
表3-6 方法及其说明
|
方 法 |
说 明 |
|
ShowOpen |
方法用来显示“打开”对话框 |
|
ShowSave |
方法用来显示“另存为”对话框 |
|
ShowColor |
方法用来显示“颜色”对话框 |
|
ShowFont |
方法用来显示“字体”对话框 |
|
ShowPrinter |
方法用来显示“打印”对话框 |
|
ShowHelp方法用来调用Windows |
帮助 |
或者设置控件的Action属性值如表3-7所示：
表3-7 属性说明
|
数 值 |
说 明 |
|
0 |
没有操作 |
|
1 |
显示“打开”对话框 |
|
2 |
显示“另存为”对话框 |
|
3 |
显示“颜色”对话框 |
|
4 |
显示“字体”对话框 |
|
5 |
显示“打印”对话框 |
|
6 |
运行WINHLP32.EXE |
CommonDialog控件常用的属性和方法如表3-8所示。
表3-8 控件常用的属性和方法
|
AboutBox 方法 |
ShowOpen 方法 |
ShowColor 方法 |
|
ShowPrinter 方法 |
ShowFont 方法 |
ShowSave 方法 |
|
ShowHelp 方法 |
|
|
|
Action 属性 |
DialogTitle 属性 |
HelpFile 属性 |
|
FileName 属性 |
HelpKey 属性 |
FileTitle 属性 |
|
Filter 属性 |
InitDir 属性 |
Flags 属性 |
|
Max属性 |
Min 属性 |
PrinterDefault 属性 |
选择菜单“工程”/“部件”，就会弹出一个如图3-9所示的添加控件的对话框，在其中选择Microsoft Common Dialog Control 6.0，单击“确定”按钮，就向缺省的工具箱中添加了CommonDialog控件。
图3-9 添加控件对话框
添加到窗体上的CommonDiaolog控件如图3-10所示。
图3-10 CommonDiaolog控件
提示：
@ 标准对话框控件放置在工具箱上后，用户就可以象使用一般的控件那样使用它了，并且不用编写任何代码，请读者自己实践。