实验5 单选按钮

实验6 菜单、工具栏和状态栏
实验类型设计型实验学时2学时
3．在设计窗口下，分别双击“鱼香茄条”、“麻辣豆腐”、“糖醋鲤鱼”和“退出”菜单项，在自动生成的Click事件处理过程里添加代码如下：
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
TextBox1.Text = TextBox1.Text + "客官，你点了鱼香茄条！非常好吃！" + vbCrLf End Sub
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
TextBox1.Text = TextBox1.Text + "客官，你点了麻辣豆腐！非常好吃！" + vbCrLf End Sub
Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
TextBox1.Text = TextBox1.Text + "客官，你点了糖醋鲤鱼！非常好吃！" + vbCrLf End Sub
Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
End
End Sub
4．选择主菜单上的“调试”下的“启动”菜单项（或按快捷键F5）运行程序。

运行结果如图E6.2所示。

图E7.2 运行结果
二、创建工具栏
1．我们在前面例子的基础上创建，从工具箱中选取ToolBar 控件并添加到窗体上即为该窗体创建了工具栏。

添加了ToolBar 控件后，该控件自动放置在窗体菜单栏的下面。

2．在窗体中添加一个ImageList 控件，选中其Image 属性，单击其后的省略号按钮，打开“Image 集合编辑器”对话框，单击“添加”按钮，会出现“打开”对话框，选择要作为工具栏按钮图标的图形文件或图标文件。

这里，我们从Visual 的安装目录下的\Common7\Graphic\Bitmaps\TIBr_W95目录中选择New.bmp 、Open.bmp 、Cut.bmp 、Copy.bmp 、Paste.bmp 和Delete.bmp 作为各个按钮的图标，如图E7.3所示，添加完毕，单击“确定”按钮。

3．将工具栏的ImageList 属性设置为ImageList1（所添加的ImageList 控件的名字）这样就可以为按钮指定图标了。

选中ToolBar 控件，在属性窗口里选中Buttons 属性，单击其后的省略号按钮，打开“ToolBarButton 集合编辑器”对话框，使用“添加”按钮为工具栏添加工具栏按钮，并为每个工具栏按钮设置ImageIndex 属性，也就是选择一个图标，如图
6.14所示。

选择完毕，单击“确定”按钮。

这样，为按钮指定图标就完成了，如图6.15所示。

4．工具栏上的所有按钮共享同一个ButtonClick 事件。

如果想要给工具栏添加功能，就需要编写代码来确定用户单击了哪个按钮。

可以通过为ToolBar 控件添加ButtonClick 事件处理程序，来确定用户单击了哪个按钮。

通常使用Select Case 语句和ToolBarButtonClickEventArgs
类来确定该按钮的索引。

要为每一个按钮都编写相应的响应代图E7.3 “Image 集合编辑器”对话框
图E7.4 “ToolBarButton 集合编辑器”
对图E7.5 工具栏按钮
码。

在设计窗口下，双击工具栏，在自动生成的事件处理过程中添加如下的代码： Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick Select Case ToolBar1.Buttons.IndexOf(e.Button)
Case 0
TextBox1.Text = TextBox1.Text + "客官，你点了新建按钮！" + vbCrLf Case 1
TextBox1.Text = TextBox1.Text + "客官，你点了打开按钮！" + vbCrLf Case 2
TextBox1.Text = TextBox1.Text + "客官，你点了保存按钮！" + vbCrLf Case 3
TextBox1.Text = TextBox1.Text + "客官，你点了剪切按钮！" + vbCrLf Case 4
TextBox1.Text = TextBox1.Text + "客官，你点了复制按钮！" + vbCrLf Case 5
TextBox1.Text = TextBox1.Text + "客官，你点了粘贴按钮！" + vbCrLf End Select
End Sub
5．选择主菜单上的“调试”下的“启动”菜单项（或按快捷键F5）运行程序。

运行结果如图E7.6所示。

三、创建状态栏
1．我们在前面例子的基础上创建，在窗体上添加一个StatusBar 控件，StatusBar 控件会自动添加到窗体的底部。

2．选中StatusBar 控件，通过单击属性窗口中Panels 属性右边的省略号按钮，打开“StatusBarPanel 集合编辑器”对话框，向StatusBar 控件中添加一个面板。

3．修改ToolBar1_ButtonClick 代码如下：
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick Select Case ToolBar1.Buttons.IndexOf(e.Button)
Case
图E7.6 运行结果
TextBox1.Text = TextBox1.Text + "客官，你点了新建按钮！" + vbCrLf
StatusBar1.Text = "客官，你点了新建按钮！"
Case 1
TextBox1.Text = TextBox1.Text + "客官，你点了打开按钮！" + vbCrLf
StatusBar1.Text = "客官，你点了打开按钮！"
Case 2
TextBox1.Text = TextBox1.Text + "客官，你点了保存按钮！" + vbCrLf
StatusBar1.Text = "客官，你点了保存按钮！"
Case 3
TextBox1.Text = TextBox1.Text + "客官，你点了剪切按钮！" + vbCrLf
StatusBar1.Text = "客官，你点了剪切按钮！"
Case 4
TextBox1.Text = TextBox1.Text + "客官，你点了复制按钮！" + vbCrLf
StatusBar1.Text = "客官，你点了复制按钮！"
Case 5
TextBox1.Text = TextBox1.Text + "客官，你点了粘贴按钮！" + vbCrLf
StatusBar1.Text = "客官，你点了粘贴按钮！"
End Select
End Sub
4．选择主菜单上的“调试”下的“启动”菜单项（或按快捷键F5）运行程序。

运行结果如图E7.7所示。

图E7.7 运行结果
练习：
●向工程添加一个窗体，在菜单里添加一个菜单项“显示窗体2”，运行时单击该菜
单项可以显示新加的窗体。

●设置ToolBar控件中各按钮的“”属性，为工具栏按钮设置提示文本信息。

●利用定时器控件，在状态栏中添加时间。