Visual Basic大学应用教程 匡松 VB课件第8章.pptVIP

VB程序设计与数据库应用 第8章 文件系统管理  8.1 通用对话框 8.2 文件处理 8.3 文件系统控件 8.4 File System Object模型简介 8.1 通用对话框 在本节中主要研究Windows标准对话框，它为用户提供了功能强大的、专业的交互式对话框。 微软创建的标准对话框为普通用户提供了与所有Windows程序相同的界面。 8.1.1 CommonDialog控件 1．CommonDialog 控件提供诸如打开和保存文件、设置打印选项、选择颜色和字体等操作的一组标准对话框。运行 Windows 帮助引擎时，控件还能够显示帮助。 2．CommonDialog 控件可以显示如下常用对话框：“打开”、“另存为”、“颜色”、“字体”、“打印”。 8.1.1 CommonDialog控件 8.1.2 使用通用对话框 1．添加通用对话框控件 通用对话框必须用CommonDialog控件来建立，若未添加 CommonDialog 控件，则应选定【工程】→【部件】命令，将控件添加到工具箱中 。 8.1.2 使用通用对话框 2．CommonDialog控件有如下的方法： ShowOpen方法 显示“打开”对话框。 ShowSave方法 显示“另存为”对话框。 ShowColor方法 显示“颜色”对话框。 ShowFont方法 显示“字体”对话框。 ShowPrinter方法 显示“打印”对话框。 ShowHelp方法 显示Windows帮助对话框。 8.1.2 使用通用对话框 3. 调用这些方法的一般格式： ? 控件名.方法 例如：CommonDialogl.ShowSave 显示“另存为”对话框 CommonDialog1.ShowOpen 显示“打开”对话框 8.1.3 通用对话框应用实例 8.1.3 通用对话框应用实例 8.1.3 通用对话框应用实例 8.1.3 通用对话框应用实例 3. 添加程序代码 显示“颜色”对话框的方法: 在mnuColor的Click事件处理中键入下列代码： Private Sub mnuColor_Click() On Error GoTo colorerr CommonDialog1.ShowColor Text1.BackColor = CommonDialog1.Color Exit Sub colorerr: MsgBox 您放弃了选择对话框! Exit Sub End Sub 8.1.3 通用对话框应用实例 显示“字体”对话框的方法: 在mnuFont的Click事件处理中键入下列代码： Private Sub mnuFont_Click() On Error GoTo fonterr CommonDialog1.Flags = cdlCFEffects Or cdlCFBoth CommonDialog1.ShowFont Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic Text1.FontUnderline = CommonDialog1.FontUnderline Text1.FontStrikethru = CommonDialog1.FontStrikethru Text1.ForeColor = CommonDialog1.Color Exit Sub 8.1.3 通用对话框应用实例 fonterr: MsgBox 您放弃了选择对话框! Exit Sub End Sub 8.1.3 通用对话框应用实例 显示“打开”对话框的方法: 在mnuOpen的“Click”事件处理中键入下列代码： Private Sub mnuOpen_Click() On Error GoTo openerr CommonDialog1.Filter