989071-Visual Basic 程序设计第8章 界面设计
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
属性： StartPosition为“CenterScreen”；Text为“我 的记事本”。
6
• ⑷ 双击工具箱的MenuStrip项，给窗体添加一个 MenuStrip控件。此时，如图8-2所示，在系统为不可见 控件（如Timer等）预留的窗体下方区域，显示新添加的 MenuStrip控件，在窗体标题栏下方显示“请在此键入” 的提示框。
9
表8-1 顶级菜单属性设置
菜单名称（Name属性） mnuFile mnuEdit mnuFormat mnuView mnuHelp
文件(&F) 编辑(&E) 格式(&O) 查看(&V) 帮助(&H)
Text属性
10
• 提示： • Text属性设置为“文件(&F)”，但却显示为“文件（F）”。
29
• Private Sub mnuOpen_Click(ByVal sender As System.Object, _
• ByVal e As System.EventArgs) Handles mnuOpen.Click
• '调用“打开”对话框，并对其属性进行修改
•
With openMyFile
• 提示： • RichTextBox控件是一个功能强大的字处理程序的核心，
具有强大的文本格式化功能。Windows内置的“写字板” 就是基于RichTextBox控件。其主要的属性见表8-7：
26
表8-7 RichTextBox控件属性名称及功能说明
属性名称 SelectedTxt SelectionStart SelectionLength SelectionFont SelectionColor SelectionBackColor
这是因为“&”在菜单中具有特殊含义，如通过在字母“F” 前添加“&”设置“F”为访问键，用户可以通过“Alt+F” 组合键打开文件菜单。
11
• 设置好的主菜单如图8-4所示:
12
• 顶级菜单完后，记事本界面如图8-5所示
13
• ⑺ 在图8-4所示的“项集合编辑器”中，选择左侧的 mnuFile，选择DropDownItems属性，在弹出的对话框 “项集合编辑器（mnuFile.DropDownItems）”中为顶 级菜单“文件(&F)”添加子菜单，方法同添加顶级菜单。 子菜单各项属性设置见表8-2。
mnuStatusBar
状态栏(&S)
True
mnuToolBar
工具栏(&T)…
True
23
• 提示： • 菜单项的Checked属性用来标识该项处于选中、未选中
还是不确定状态。
24
表8-6 帮助菜单的子菜单属性设置
子菜单名称（Name属性）
Text属性
mnuAbout
关于我的记事本
25
• ⑼ 添加RichTextBox控件，它是记事本编辑核心控件。 修改其Name属性为rtboxMain，Text属性为空，Anchor 属性为“Top,Left” ，Dock属性为Fill。
19
• ⑻ 按照以上的方法，为其余的顶级菜单添加子菜单。各 菜单的子菜单属性设置见表8-3、8-4、8-5及8-6。（可参 考Windows系统自带的记事本）
20
表8-3 编辑菜单的子菜单属性设置
子菜单名称（Name属性）
Text属性
mnuUndo
撤销(&U)
mnuCut
剪切(&T)
mnuCopy
•
ByVal e As System.EventArgs) Handles mnuSaveAs.Click
•
'调用“另保存”对话框，并对其属性进行修改
•
With saveMyFile
•
'设置默认的文件后缀名
•
.DefaultExt = "*.rtf"
•
'.FileName = strfilename
•
'加载所要打开的文件内容至RichTextBox中
•
rtboxMain.LoadFile(openMyFile.FileName,
RichTextBoxStreamType.RichText)
•
strfilename = openMyFile.FileName
•
Me.stlPath.Text = strfilename
•
'Filter属性限制打开对话框中显示的文件类型
•
.Filter = "RTF格式(*.rtf)|*.rtf|普通文本(*.txt)|*.txt|所有文件(*.*)|*.*"
•
.Title() = "打开文件"
•
End With
•
If openMyFile.ShowDialog() = Windows.Forms.DialogResult.OK Then
• End If
• End Sub
30
• 提示： • RTF是Rich Text Format的简写，它一种保存文本及格式
的标准，类似于HTML（超文本标记语言），使用简单的 标记命令来描述文档格式，例如“\b”表示修饰的文本为 粗体，有兴趣的读者可以用记事本等文本编辑程序打开 RTF文档，查看其实际的RTF代码。 • 也可以简单理解为TXT格式只是保存了内容及简单的格式 信息（字体、字型及大小），RTF文件则保存了文本的内 容及及更多的格式信息（颜色、段落、项目符号等）。
•
.Filter = "RTF格式(*.rtf)|*.rtf|普通文本(*.txt)|*.txt|所有文件(*.*)|*.*"
•
.Title() = "另存为"
•
'如果用户指定的文件名已存在，设置“另存为”对话框是否显示警告。
•
.OverwritePrompt = True
•
End With
•
'保存文件
3
• Visual Basic 2005中引入了菜单（MenuStrip）、弹出 菜单（ContextMenuStrip）、工具栏（ToolStrip）和状 态栏（StatusStrip）等界面设计的组件，它们位于工具 箱的“菜单和工具栏”部分，如图8-1所示。
4
8.1 创建菜单项
• 用户在运行一个软件时，首先会查看菜单项，来了解软件 的功能，完善的菜单有助于程序的使用。Visual Basic 2005中，将菜单添加到窗体中，是通过MenuStrip控件来 实现的。创建菜单过程非常简单，下面通过创建记事本应 用程序的菜单来学习和掌握菜单的建立。
31
• 设计模式下，双击工具箱的SaveFileDialog项，给窗体添 加一个标准的保存文件对话框，修改其Name属性为 saveMyFile。在“文件(F)”菜单的子菜单“另存为...(A)” 上双击，输入如下代码：
32
• Private Sub mnuSaveAs_Click(ByVal sender As System.Object, _
•
If saveMyFile.ShowDialog() = Windows.Forms.DialogResult.OK _
• And saveMyFile.FileName.Length > 0 Then
•
rtboxMain.SaveFile(saveMyFile.FileName,
RichTextBoxStreamType.RichText)
5
• 例8.1创建记事本应用程序程序，创建记事本的菜单项。 • 具体操作过程： • ⑴ 新建项目，选择“Windows应用程序”，项目名为
“我的记事本”。 • ⑵ 在解决方案资源管理器中，把“Form1.vb”改为
“frmNotePad.vb”。 • ⑶ 打开窗体设计视图，选择窗体，在属性框中修改窗体
16
图8-6 ShortcutKeys（快捷键）的设置
17
• 在设计菜单时，一般把功能相近的菜单设置在一起，并用 Separator（分隔符）加以区分。在菜单“另存为… （&A）”和“打印…(&P)”后分别添加一个Separator。
18
• 设计好的记事本“文件”菜单如图8-7所示。
图8-7 设计好的子菜单
图8-2 添加MenuStrip控件
7
• ⑸ 选择窗体下方的MenuStrip1控件，在属性框中修改 MenuStrip控件属性：选择Items属性，在弹出的对话框 “项集合编辑器”中编辑顶级菜单，如图8-3所示。
图 8-3 通过项集合编辑器来设置菜单项
8
• ⑹ 在图8-3所示的窗口中，选自左侧的成员 “MenuStrip1”,修改其Name属性为mnuMain。在左侧 的下拉列表中选择MenuItem，点击“添加”按钮添加一 个“ToolStripMenuItem1”，修改其Name属性为 “mnuFile”，Text属性为“文件(&F)”。通过这样的方法 依次添加其余的顶级菜单，具体属性设置见表8-1所示。
21
表8-4 格式菜单的子菜单属性设置
子菜单名称（Name属性）
Text属性
mnuWordWrap
Βιβλιοθήκη Baidu
自动换行(&W)
mnuFont
字体(&F)…
Checked属性 True
mnuBackColor
背景色…
22
表8-5 查看菜单的子菜单属性设置
子菜单名称（Name属性）
Text属性
Checked属性
Ctrl+P
15
• 提示： • ShorCutKeys属性设置菜单的快捷键，快捷键类似于访
问键，但它不打开菜单，而直接执行某个菜单命令。 • 设置快捷键和访问键时，应参考广泛使用的Windows应
用程序标准，如用户习惯使用快捷键“Ctrl+N”执行新建 文档命令，快捷键“Ctrl+C”用来执行拷贝任务，访问键 “Alt+F”用来打开文件菜单。 • 为菜单命令设置快捷键是通过修改菜单的ShorCutKeys 属性来实现的，设置方式参照图8-6所示。
•
ByVal e As System.EventArgs) Handles
mnuNew.Click
•
’清空RichTextBox控件中的内容
• rtboxMain.Clear()
• End Sub
28
• 设计模式下，双击工具箱的OpenFileDialog项，给窗体 添加一个标准的文件打开对话框，修改其Name属性为 openMyFile。在“文件(F)”菜单的子菜单“打开...( O) Ctrl+O”上双击，输入如下代码：
第8章 界面设计
1
• 本章主要内容： – 添加菜单。 – 标准对话框介绍。 – 创建工具栏。 – 实现上下文菜单。 – 创建状态栏。 – 创建一个记事本综合实例。
2
• 用户界面的设计作为人机交互的窗口，在成功的程序设计 中起着重要的作用。本章将介绍用户界面设计中常用的控 件，读者将学习如何为应用程序创建菜单、工具栏、上下 文菜单、多种对话框及状态栏，并通过建立一个记事本应 用程序来掌握这些控件的使用。
14
子菜单名称（Name属性）
Text属性
mnuNew
新建(&N)
mnuOpen
打开...(&O)
mnuSave
保存(&S)
mnuSaveAs
另存为…（&A）
mnuPageSetup
页面设置…（&U）
mnuPrint mnuQuit
打印…(&P) 退出(&X)
ShorCutKeys属性 Ctrl+N Ctrl+O Ctrl+S
•
strfilename = saveMyFile.FileName
•
Me.stlPath.Text = strfilename
• End If
• End Sub
33
• 提示： • RichTextBox.SaveFile方法用于将 RichTextBox 的内容
保存到文件中，参数格式：SaveFile(Path as string ,FileType as RichTextBoxStreamType)，其中 Path为保存当前内容的文件路径，由“另存为“对话获 取，FileType指定以不同格式保存，其值为 RichTextBoxStreamType枚举类型之一，见表8-8：
说明 当前被选中的文字， 被选中的文字的第一个字符的位置 选中的文字的长度 被选中的文字的字体 被选中的文字的颜色 被选中的文本的背景颜色
27
8.2 对菜单项进行编程
• 设计模式下，在“文件(F)”菜单的子菜单“新建(N) Ctrl+N”上双击，输入如下代码：
• Private Sub mnuNew_Click(ByVal sender As System.Object, _
复制(&C)
mnuPaste
粘贴（&V）
mnuDelete
删除（&L）
mnuFind
查找 (&P)…
mnuReplace
替换（&R）…
mnuAll
全选（&A）
mnuData
时间/日历（&D）
ShorCutKeys属性 Ctrl+Z Ctrl+X Ctrl+C Ctrl+V Delete Ctrl+F Ctrl+H Ctrl+A F5
6
• ⑷ 双击工具箱的MenuStrip项，给窗体添加一个 MenuStrip控件。此时，如图8-2所示，在系统为不可见 控件（如Timer等）预留的窗体下方区域，显示新添加的 MenuStrip控件，在窗体标题栏下方显示“请在此键入” 的提示框。
9
表8-1 顶级菜单属性设置
菜单名称（Name属性） mnuFile mnuEdit mnuFormat mnuView mnuHelp
文件(&F) 编辑(&E) 格式(&O) 查看(&V) 帮助(&H)
Text属性
10
• 提示： • Text属性设置为“文件(&F)”，但却显示为“文件（F）”。
29
• Private Sub mnuOpen_Click(ByVal sender As System.Object, _
• ByVal e As System.EventArgs) Handles mnuOpen.Click
• '调用“打开”对话框，并对其属性进行修改
•
With openMyFile
• 提示： • RichTextBox控件是一个功能强大的字处理程序的核心，
具有强大的文本格式化功能。Windows内置的“写字板” 就是基于RichTextBox控件。其主要的属性见表8-7：
26
表8-7 RichTextBox控件属性名称及功能说明
属性名称 SelectedTxt SelectionStart SelectionLength SelectionFont SelectionColor SelectionBackColor
这是因为“&”在菜单中具有特殊含义，如通过在字母“F” 前添加“&”设置“F”为访问键，用户可以通过“Alt+F” 组合键打开文件菜单。
11
• 设置好的主菜单如图8-4所示:
12
• 顶级菜单完后，记事本界面如图8-5所示
13
• ⑺ 在图8-4所示的“项集合编辑器”中，选择左侧的 mnuFile，选择DropDownItems属性，在弹出的对话框 “项集合编辑器（mnuFile.DropDownItems）”中为顶 级菜单“文件(&F)”添加子菜单，方法同添加顶级菜单。 子菜单各项属性设置见表8-2。
mnuStatusBar
状态栏(&S)
True
mnuToolBar
工具栏(&T)…
True
23
• 提示： • 菜单项的Checked属性用来标识该项处于选中、未选中
还是不确定状态。
24
表8-6 帮助菜单的子菜单属性设置
子菜单名称（Name属性）
Text属性
mnuAbout
关于我的记事本
25
• ⑼ 添加RichTextBox控件，它是记事本编辑核心控件。 修改其Name属性为rtboxMain，Text属性为空，Anchor 属性为“Top,Left” ，Dock属性为Fill。
19
• ⑻ 按照以上的方法，为其余的顶级菜单添加子菜单。各 菜单的子菜单属性设置见表8-3、8-4、8-5及8-6。（可参 考Windows系统自带的记事本）
20
表8-3 编辑菜单的子菜单属性设置
子菜单名称（Name属性）
Text属性
mnuUndo
撤销(&U)
mnuCut
剪切(&T)
mnuCopy
•
ByVal e As System.EventArgs) Handles mnuSaveAs.Click
•
'调用“另保存”对话框，并对其属性进行修改
•
With saveMyFile
•
'设置默认的文件后缀名
•
.DefaultExt = "*.rtf"
•
'.FileName = strfilename
•
'加载所要打开的文件内容至RichTextBox中
•
rtboxMain.LoadFile(openMyFile.FileName,
RichTextBoxStreamType.RichText)
•
strfilename = openMyFile.FileName
•
Me.stlPath.Text = strfilename
•
'Filter属性限制打开对话框中显示的文件类型
•
.Filter = "RTF格式(*.rtf)|*.rtf|普通文本(*.txt)|*.txt|所有文件(*.*)|*.*"
•
.Title() = "打开文件"
•
End With
•
If openMyFile.ShowDialog() = Windows.Forms.DialogResult.OK Then
• End If
• End Sub
30
• 提示： • RTF是Rich Text Format的简写，它一种保存文本及格式
的标准，类似于HTML（超文本标记语言），使用简单的 标记命令来描述文档格式，例如“\b”表示修饰的文本为 粗体，有兴趣的读者可以用记事本等文本编辑程序打开 RTF文档，查看其实际的RTF代码。 • 也可以简单理解为TXT格式只是保存了内容及简单的格式 信息（字体、字型及大小），RTF文件则保存了文本的内 容及及更多的格式信息（颜色、段落、项目符号等）。
•
.Filter = "RTF格式(*.rtf)|*.rtf|普通文本(*.txt)|*.txt|所有文件(*.*)|*.*"
•
.Title() = "另存为"
•
'如果用户指定的文件名已存在，设置“另存为”对话框是否显示警告。
•
.OverwritePrompt = True
•
End With
•
'保存文件
3
• Visual Basic 2005中引入了菜单（MenuStrip）、弹出 菜单（ContextMenuStrip）、工具栏（ToolStrip）和状 态栏（StatusStrip）等界面设计的组件，它们位于工具 箱的“菜单和工具栏”部分，如图8-1所示。
4
8.1 创建菜单项
• 用户在运行一个软件时，首先会查看菜单项，来了解软件 的功能，完善的菜单有助于程序的使用。Visual Basic 2005中，将菜单添加到窗体中，是通过MenuStrip控件来 实现的。创建菜单过程非常简单，下面通过创建记事本应 用程序的菜单来学习和掌握菜单的建立。
31
• 设计模式下，双击工具箱的SaveFileDialog项，给窗体添 加一个标准的保存文件对话框，修改其Name属性为 saveMyFile。在“文件(F)”菜单的子菜单“另存为...(A)” 上双击，输入如下代码：
32
• Private Sub mnuSaveAs_Click(ByVal sender As System.Object, _
•
If saveMyFile.ShowDialog() = Windows.Forms.DialogResult.OK _
• And saveMyFile.FileName.Length > 0 Then
•
rtboxMain.SaveFile(saveMyFile.FileName,
RichTextBoxStreamType.RichText)
5
• 例8.1创建记事本应用程序程序，创建记事本的菜单项。 • 具体操作过程： • ⑴ 新建项目，选择“Windows应用程序”，项目名为
“我的记事本”。 • ⑵ 在解决方案资源管理器中，把“Form1.vb”改为
“frmNotePad.vb”。 • ⑶ 打开窗体设计视图，选择窗体，在属性框中修改窗体
16
图8-6 ShortcutKeys（快捷键）的设置
17
• 在设计菜单时，一般把功能相近的菜单设置在一起，并用 Separator（分隔符）加以区分。在菜单“另存为… （&A）”和“打印…(&P)”后分别添加一个Separator。
18
• 设计好的记事本“文件”菜单如图8-7所示。
图8-7 设计好的子菜单
图8-2 添加MenuStrip控件
7
• ⑸ 选择窗体下方的MenuStrip1控件，在属性框中修改 MenuStrip控件属性：选择Items属性，在弹出的对话框 “项集合编辑器”中编辑顶级菜单，如图8-3所示。
图 8-3 通过项集合编辑器来设置菜单项
8
• ⑹ 在图8-3所示的窗口中，选自左侧的成员 “MenuStrip1”,修改其Name属性为mnuMain。在左侧 的下拉列表中选择MenuItem，点击“添加”按钮添加一 个“ToolStripMenuItem1”，修改其Name属性为 “mnuFile”，Text属性为“文件(&F)”。通过这样的方法 依次添加其余的顶级菜单，具体属性设置见表8-1所示。
21
表8-4 格式菜单的子菜单属性设置
子菜单名称（Name属性）
Text属性
mnuWordWrap
Βιβλιοθήκη Baidu
自动换行(&W)
mnuFont
字体(&F)…
Checked属性 True
mnuBackColor
背景色…
22
表8-5 查看菜单的子菜单属性设置
子菜单名称（Name属性）
Text属性
Checked属性
Ctrl+P
15
• 提示： • ShorCutKeys属性设置菜单的快捷键，快捷键类似于访
问键，但它不打开菜单，而直接执行某个菜单命令。 • 设置快捷键和访问键时，应参考广泛使用的Windows应
用程序标准，如用户习惯使用快捷键“Ctrl+N”执行新建 文档命令，快捷键“Ctrl+C”用来执行拷贝任务，访问键 “Alt+F”用来打开文件菜单。 • 为菜单命令设置快捷键是通过修改菜单的ShorCutKeys 属性来实现的，设置方式参照图8-6所示。
•
ByVal e As System.EventArgs) Handles
mnuNew.Click
•
’清空RichTextBox控件中的内容
• rtboxMain.Clear()
• End Sub
28
• 设计模式下，双击工具箱的OpenFileDialog项，给窗体 添加一个标准的文件打开对话框，修改其Name属性为 openMyFile。在“文件(F)”菜单的子菜单“打开...( O) Ctrl+O”上双击，输入如下代码：
第8章 界面设计
1
• 本章主要内容： – 添加菜单。 – 标准对话框介绍。 – 创建工具栏。 – 实现上下文菜单。 – 创建状态栏。 – 创建一个记事本综合实例。
2
• 用户界面的设计作为人机交互的窗口，在成功的程序设计 中起着重要的作用。本章将介绍用户界面设计中常用的控 件，读者将学习如何为应用程序创建菜单、工具栏、上下 文菜单、多种对话框及状态栏，并通过建立一个记事本应 用程序来掌握这些控件的使用。
14
子菜单名称（Name属性）
Text属性
mnuNew
新建(&N)
mnuOpen
打开...(&O)
mnuSave
保存(&S)
mnuSaveAs
另存为…（&A）
mnuPageSetup
页面设置…（&U）
mnuPrint mnuQuit
打印…(&P) 退出(&X)
ShorCutKeys属性 Ctrl+N Ctrl+O Ctrl+S
•
strfilename = saveMyFile.FileName
•
Me.stlPath.Text = strfilename
• End If
• End Sub
33
• 提示： • RichTextBox.SaveFile方法用于将 RichTextBox 的内容
保存到文件中，参数格式：SaveFile(Path as string ,FileType as RichTextBoxStreamType)，其中 Path为保存当前内容的文件路径，由“另存为“对话获 取，FileType指定以不同格式保存，其值为 RichTextBoxStreamType枚举类型之一，见表8-8：
说明 当前被选中的文字， 被选中的文字的第一个字符的位置 选中的文字的长度 被选中的文字的字体 被选中的文字的颜色 被选中的文本的背景颜色
27
8.2 对菜单项进行编程
• 设计模式下，在“文件(F)”菜单的子菜单“新建(N) Ctrl+N”上双击，输入如下代码：
• Private Sub mnuNew_Click(ByVal sender As System.Object, _
复制(&C)
mnuPaste
粘贴（&V）
mnuDelete
删除（&L）
mnuFind
查找 (&P)…
mnuReplace
替换（&R）…
mnuAll
全选（&A）
mnuData
时间/日历（&D）
ShorCutKeys属性 Ctrl+Z Ctrl+X Ctrl+C Ctrl+V Delete Ctrl+F Ctrl+H Ctrl+A F5