第九章 用户界面设计.ppt

* * * * * * * * * * * * * * * * * * * * * * * vb程序设计简明教程 本书目录 * 第九章 用户界面设计 9.1 通用对话框 9.2 菜单设计 9.3 鼠标和键盘事件 本章目录 * 鼠标和键盘事件 键盘：Keypress keyascii=0 例非法数据过滤 鼠标： MouseDown、MouseUp、MouseMove事件 参数 教学重点和方法 * 界面设计 菜单设计 菜单编辑器、快显菜单 通用对话框 打开、保存、颜色、字体 多重窗体 创建、显示、隐藏 文件 打开、读、写 将其融合在一个文本编辑器程序 应用程序向导 自动生成应用程序界面 不必用ToolBar、ImageList控件 * 9.1 通用对话框 通用对话框： VB提供了一组基于Windows的标准对话框 利用通用对话框控件可在窗体上创建打开文件、保存文件、颜色、字体、打印等对话框 例9.1 通过打开文件对话框，选择一个BMP位图文件，在图形框中显示该图片。 本章目录 * 9.1 通用对话框 本章目录 第一步：通用对话框添加到工具箱 工程 部件 选定Microsoft Common Dialog Control 6.0 确定 通用对话框仅用于应用程序与用户之间进行信息交互，是输入输出的界面 不能真正实现文件打开、文件存储、设置颜色、字体设置、打印等操作 如果想要实现这些功能则需要编程实现。 * 2.通用对话框的基本属性和方法 (1) Action属性和Show方法 打开对话框 ShowHelp 6 帮助对话框 ShowPrinter 5 打印机对话框 ShowFont 4 字体对话框 ShowColor 3 颜色对话框 ShowSave 2 另存为对话框 ShowOpen 1 打开文件对话框 Show方法 Action属性 通用对话框的类型 该属性只能在程序中赋值 本章目录 * 通用对话框的基本属性和方法 (2) DialogTiltle属性 设置通用对话框标题 (3) CancelError属性 True：选择取消按钮，出现错误提醒信息，Err.Number设置为32955(cdCancel)。 False：选择取消按钮，没有错误警告。 本章目录 * 9.1.1打开文件对话框 本章目录 “打开”对话框： 属性: Action=1 方法：showopen DialogTiltle FileName InitDir Filter FilterIndex DefaultExt * 9.1.1打开文件对话框 重要属性 : (1) FileName 文件名称，包含路径 (2) FileTitle 文件名，不包含路径 (3) Filter 确定所显示文件的类型 例如：Text Files|*.txt|所有文件|*.*显示文本文件和所有文件 (4) FilterIndex 文件列表中指定某类型文件 (5) InitDir 初始化路径 本章目录 * 例9.2 编写一个简单的文本文件编辑程序 本章目录 Filter FileName InitDir FilterIndex FileTitle * Dim datax As String * 30 Private Sub Command1_Click() CommonDialog1.Action = 1 Text1.Text = Open CommonDialog1.FileName For Input As #1 Do While Not EOF(1) Line Input #1, datax Text1.Text = Text1.Text + datax + vbCrLf Loop Close #1 End Sub 本章目录 * Sub Command2_Click () CommonDialog1.ShowSave Open CommonDialog1.filename For Output As #1 Print #1, Text1.Text 保存文件 Close #1 关闭文件 End Sub 9.1.2 保存文件对话框 本章目录 与打开文