VB界面设计
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
位置
0：X 位置确定弹出菜单的左边界 4：弹出菜单以X为中心 8： X 位置确定弹出菜单的右边界 位置与性能是加的关系。
性能 0只能用鼠标左键触发弹出菜单； 2：能用鼠标左、右键键触发弹出菜单；
弹出菜单示例
Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
例8.1 简单的文本编辑程序,当按“打开”按钮，在“打开”对话框按“取消”按 钮，显示有关信息。
Open CommonDialog1.filename For Input As #1 Do While Not EOF(1) Line Input #1, inputdata txtNoteEdit.Text = txtNoteEdit.Text + inputdata + _ Chr(13) + Chr(10) Loop Close #1
2. 保存窗体 一个工程中有多个窗体，应分别取不同的文件名保存在磁盘上，VBP工程文
打开通用对话框：
通用对话框的类型
打开(Open)
另存为(Save As)
颜色(Color)
字体(Font)
打印机(Printer)
属性
和帮助(Help)
Action 1 2 3 4 5 6
方法 ShowOpen ShowSave ShowColor ShowFont ShowPrinter ShowHelp
8.2 菜单的设计
菜单形式：
主菜单条 菜 单 项
子菜单名
分隔线
主菜单名
快捷键 热键
子菜单标记
一、菜单编辑器的使用
工具／菜单编辑器(CTRL+E) 窗体上快显菜单／菜单编辑器
菜单项属性
操作按钮 菜单列 表框
常用属性： 1. 标题(Caption) 热键：前面加& 2. 名称(Name)文本框 分隔符也应有名称。 3. 快捷键(Shortcut) 菜单名没有快捷键 4. 复选(Checked)检查框 TRUE 有✓ 5. 有效(Enabled)检查框 6. 可见(Visible)检查框
第八章 界面设计（3学时）
8.1 通用对话框 8.2 菜单设计 8.3 多重窗体和多文档界面 8.4 工具栏和状态栏 8.5 RichTextBox控件 8.6 应用程序向导
8.1 通用对话框(CommonDialog)
通用对话框添加到工具箱
工程/部件
选定 部件 标签
选定Microsoft CommDialog Control 6.0
If Button = 2 Then PopupMenu EditMenu, vbPopupMenuCenterAlign End Sub
8.3 多重窗体和多文档窗体
一、多重窗体
1.添加窗体 “工程|添加窗体”
新建 现存
添加“现存”窗体时要注意： 防止多个窗体的name相同而不能添加； 添加的窗体实际是将其它工程中已有的窗体加入，多个工程共享窗体； 通过“另存为”命令以不同的窗体文件名保存，断开共享。
DefaultExt FilterIndex
属性 FileName：包含路径 FileTitle：不包含路径 Filter：例如，
Documents(*.DOC)|*.DOC|Text Files(*.TXT)|*.txt|All Files|*.* FilterIndex：决定在文件类型列表框中显示第几组类型的文件。 Ini源自文库Dir：初始化路径
示例 8.6 建立一个有菜单功能的文本编辑器。
二、 菜单项增减
在程序运行时，菜单随时增减，如“文件”菜单能保留最近打开的文件数。 这同控件数组一样，使用菜单数组。
步骤： 1.在菜单设计时，加入一个菜单项，其Index为0（菜单数组）, Visual为False。 2.在程序运行时，通过Load方法向菜单数组增加新的菜单项。
例8.7在8.6中的文件菜单中保留最近打开的文件清单。
同样，要删除所建立的菜单项，使用UnLoad方法向菜单数组减少菜单项。
三、 弹出菜单(快捷菜单)
显示在窗体的浮动菜单，操作时使用右键，菜单与鼠标位置有关。设计与普通菜单，仅 该菜单名不可显示；要显示时使用PopupMenu方法弹出菜单。
形式： [对象.]PopupMenu 菜单名, 标志, x, y 标志，表示弹出的位置和触发的键
Min、Max
FontStrikethru FontUnderline
Color
Flags属性：指示所显示的字体类型，必须设置。
cdlCFScreenFonts &H1
屏幕字体
cdlCFPrinterFonts &H2
打印机字体
cdlCFBoth
&H3
打印机字体和屏幕字体。
cdlCFEffects
&H100 显示删除线和下划线检查框以及颜色组合框
Action：打开通用对话框。
DialogTiltle：对通用话框标题。
CancelError
True：选择“取消”按钮，出现错误警告；
Err.Number置为32755(cdCancel)。
False(缺省)：选择“取消”按钮，没有错误警告。
确定
1. “打开”文件对话框
DialogTiltle FileName InitDir Filter
例8.1中“字体...”按钮的事件过程
5. “打印”对话框 属性 FromPage：起始页号 ToPage：终止页号 Copies：打印份数 如果打印驱动程序不支持多份打印，该属性有可能始终返回 1。 例8.1中“打印...”按钮的事件过程
6. “帮助”对话框 帮助文件需要用其它的工具制作，如Microsoft Windows Help Compiler。 例8.5 属性 HelpCommand：在线Help帮助类型 HelpFile：Help文件的路径及其名称 HelpKey：在帮助窗口显示由该帮助关键字指定的帮助信息。
2. “另存为”对话框 没有提供真正的存储文件操作，仍需要编程完成储存操作。
属性 DefaultExt：缺省扩展名
例8.1中“另存为...”按钮的事件过程
3. “颜色”对话框 属性
Color：返回或设置选定的颜色。 例8.1中“颜色...”按钮的事件过程
4. “字体”对话框
FontName FontBold、FontItalic FontSize
0：X 位置确定弹出菜单的左边界 4：弹出菜单以X为中心 8： X 位置确定弹出菜单的右边界 位置与性能是加的关系。
性能 0只能用鼠标左键触发弹出菜单； 2：能用鼠标左、右键键触发弹出菜单；
弹出菜单示例
Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
例8.1 简单的文本编辑程序,当按“打开”按钮，在“打开”对话框按“取消”按 钮，显示有关信息。
Open CommonDialog1.filename For Input As #1 Do While Not EOF(1) Line Input #1, inputdata txtNoteEdit.Text = txtNoteEdit.Text + inputdata + _ Chr(13) + Chr(10) Loop Close #1
2. 保存窗体 一个工程中有多个窗体，应分别取不同的文件名保存在磁盘上，VBP工程文
打开通用对话框：
通用对话框的类型
打开(Open)
另存为(Save As)
颜色(Color)
字体(Font)
打印机(Printer)
属性
和帮助(Help)
Action 1 2 3 4 5 6
方法 ShowOpen ShowSave ShowColor ShowFont ShowPrinter ShowHelp
8.2 菜单的设计
菜单形式：
主菜单条 菜 单 项
子菜单名
分隔线
主菜单名
快捷键 热键
子菜单标记
一、菜单编辑器的使用
工具／菜单编辑器(CTRL+E) 窗体上快显菜单／菜单编辑器
菜单项属性
操作按钮 菜单列 表框
常用属性： 1. 标题(Caption) 热键：前面加& 2. 名称(Name)文本框 分隔符也应有名称。 3. 快捷键(Shortcut) 菜单名没有快捷键 4. 复选(Checked)检查框 TRUE 有✓ 5. 有效(Enabled)检查框 6. 可见(Visible)检查框
第八章 界面设计（3学时）
8.1 通用对话框 8.2 菜单设计 8.3 多重窗体和多文档界面 8.4 工具栏和状态栏 8.5 RichTextBox控件 8.6 应用程序向导
8.1 通用对话框(CommonDialog)
通用对话框添加到工具箱
工程/部件
选定 部件 标签
选定Microsoft CommDialog Control 6.0
If Button = 2 Then PopupMenu EditMenu, vbPopupMenuCenterAlign End Sub
8.3 多重窗体和多文档窗体
一、多重窗体
1.添加窗体 “工程|添加窗体”
新建 现存
添加“现存”窗体时要注意： 防止多个窗体的name相同而不能添加； 添加的窗体实际是将其它工程中已有的窗体加入，多个工程共享窗体； 通过“另存为”命令以不同的窗体文件名保存，断开共享。
DefaultExt FilterIndex
属性 FileName：包含路径 FileTitle：不包含路径 Filter：例如，
Documents(*.DOC)|*.DOC|Text Files(*.TXT)|*.txt|All Files|*.* FilterIndex：决定在文件类型列表框中显示第几组类型的文件。 Ini源自文库Dir：初始化路径
示例 8.6 建立一个有菜单功能的文本编辑器。
二、 菜单项增减
在程序运行时，菜单随时增减，如“文件”菜单能保留最近打开的文件数。 这同控件数组一样，使用菜单数组。
步骤： 1.在菜单设计时，加入一个菜单项，其Index为0（菜单数组）, Visual为False。 2.在程序运行时，通过Load方法向菜单数组增加新的菜单项。
例8.7在8.6中的文件菜单中保留最近打开的文件清单。
同样，要删除所建立的菜单项，使用UnLoad方法向菜单数组减少菜单项。
三、 弹出菜单(快捷菜单)
显示在窗体的浮动菜单，操作时使用右键，菜单与鼠标位置有关。设计与普通菜单，仅 该菜单名不可显示；要显示时使用PopupMenu方法弹出菜单。
形式： [对象.]PopupMenu 菜单名, 标志, x, y 标志，表示弹出的位置和触发的键
Min、Max
FontStrikethru FontUnderline
Color
Flags属性：指示所显示的字体类型，必须设置。
cdlCFScreenFonts &H1
屏幕字体
cdlCFPrinterFonts &H2
打印机字体
cdlCFBoth
&H3
打印机字体和屏幕字体。
cdlCFEffects
&H100 显示删除线和下划线检查框以及颜色组合框
Action：打开通用对话框。
DialogTiltle：对通用话框标题。
CancelError
True：选择“取消”按钮，出现错误警告；
Err.Number置为32755(cdCancel)。
False(缺省)：选择“取消”按钮，没有错误警告。
确定
1. “打开”文件对话框
DialogTiltle FileName InitDir Filter
例8.1中“字体...”按钮的事件过程
5. “打印”对话框 属性 FromPage：起始页号 ToPage：终止页号 Copies：打印份数 如果打印驱动程序不支持多份打印，该属性有可能始终返回 1。 例8.1中“打印...”按钮的事件过程
6. “帮助”对话框 帮助文件需要用其它的工具制作，如Microsoft Windows Help Compiler。 例8.5 属性 HelpCommand：在线Help帮助类型 HelpFile：Help文件的路径及其名称 HelpKey：在帮助窗口显示由该帮助关键字指定的帮助信息。
2. “另存为”对话框 没有提供真正的存储文件操作，仍需要编程完成储存操作。
属性 DefaultExt：缺省扩展名
例8.1中“另存为...”按钮的事件过程
3. “颜色”对话框 属性
Color：返回或设置选定的颜色。 例8.1中“颜色...”按钮的事件过程
4. “字体”对话框
FontName FontBold、FontItalic FontSize