Visual Basic程序设计第10章.ppt

图10-9 通用对话框应用示例 控件属性设置如表10-4所示。 对 象 属 性 设 置 Label1 Caption 文本编辑区 Text1 Multiline True Commondialog1 Initdir Filter c:\my documents 文本文件（*.txt）|*.txt Command1 Name Caption Open 打开 表10-4 控件属性设置 续表 Command2 Name Caption Save 保存 Command3 Name Caption Backcolor 背景颜色 Command4 Name Caption Font 字体设置 Command5 Name Caption Print 打印 Command6 Name Caption Quit 退出 “打开”按钮的事件过程如下： Private Sub Open_Click() Commondialog1.Action = 1 Text1.Text = Open Commondialog1.FileName For Input As #1 Do While Not EOF(1) Line Input #1, inputdata Text1.Text=Text1.Text+inputdata+ vbNewLine Loop Close #1 End Sub 10.2.3 “另存为”对话框 “另存为”对话框是当Action为2时的通用对话框。它为用户在存储文件时提供了一个标准用户界面，供用户选择或输入所要存入文件的驱动器、路径和文件名。同样，它并不能提供真正的存储文件操作，储存文件的操作需要编程来完成。 “另存为”对话框所涉及的属性基本上和“打开”对话框一样，只是还有一个DefaulText属性，它表示所存文件的缺省扩展名。 【例10.5】为例10.4中的“保存”按钮编写事件过程，将文本框中的内容存盘。 程序代码如下： Private Sub Save_Click() Commondialog1.InitDir = c:\my documents Commondialog1.Filter=文本文件（*.txt）|*.txt Commondialog1.FilterIndex = 2 Commondialog1.DefaulText = txt Commondialog1.Action = 2 Open Commondialog1.FileName For Output As #1 Print #1, Text1.Text End Sub 10.2.4 “颜色”对话框 “颜色”对话框是当Action为3时的通用对话框，供用户选择颜色。 对于“颜色”对话框，除了基本属性之外，还有个重要属性Color。它返回或设置选定的颜色。 在调色板中提供了基本颜色（Basic Colors），还提供了用户的自定义颜色（Custom Colors），用户可自己调色，当用户在调色板中选中某颜色时，该颜色值赋给Color属性。 “颜色”对话框的Flags属性有4种可能值，如表10-5所示。 Flags属性值 描 述 1 使Color属性定义的颜色在首次显示对话框时显示出来 2 打开的对话框包括“自定义颜色”窗口 4 不能使用“规定自定义颜色”按钮 8 显示一个Help按钮 表10-5 Flags属性值描述 【例10.6】为例10.4中的“背景颜色”按钮编写事件过程。 程序代码如下： Private Sub Backcolor_Click() Commondialog1.Action = 3 Text1.backcolor = Commondialog1.Color End Sub 10.2.5 “字体”对话框 “字体”对话框是当Action为4时的通用对话框，供用户选择字体。 对于“字体”对话框有下列重要属性。 （1）Color属性 Color属性值表示字体的颜色，当用户在“颜色”下拉列表框中选定某颜色时，Color属性值即为所选颜色值。 （2）FontName属性 FontName属性用来设置用户所选定的字体名称。 （3）FontSize属性 FontSize属性用来设置用户所选定的字体大小。 （4）FontBold，FontItalic，FontStrikethru和FontUnderline属性 这些属