Visual BasicNET 程序设计第五章.pptVIP

2. 工具栏2组合框选择变化的事件过程代码： ⑴ToolStripComboBox1.Items.Add（）：窗体(Form1)启动前，向工具栏2中的ToolStripComboBox1控件加入初始值。 ⑵ToolStripComboBox1.SelectedIndex = 0：设置ToolStripComboBox1初始选择的项目是第一项。 ⑶ToolStripComboBox1_SelectedIndexChanged：选择改变事件。 ⑷ToolStripComboBox1.SelectedItem：检测当前选择的内容。 图5-16所示为工具栏2组合框内容变化时弹出的对话框 图5-16 工具栏2弹出的对话框 5.3 菜单栏、工具栏与状态栏协作 状态栏的使用与工具栏非常相似，本节通过一个案例介绍三者的协同工作。 案例5-3 用菜单栏、工具栏和状态栏演示程序处理事务的进度，如图5-17所示。 图5-17 案例5-3程序运行结果 1. 在窗体Form1中添加菜单控件、工具栏控件、状态栏控件和定时器控件，如图5-18所示。 图5-18 2. 设置控件的属性 ⑴菜单控件：MenuStrip1 按表5-1设置菜单控件MenuStrip1的属性值。设置的菜单项如图5-19所示。 图5-19 设置菜单项 “操作”菜单MenuStrip1 菜单项 属性名 属性值 [开始] Name MStart Text 开始(A) ShortCutKeys Ctrl+A ShowShortCutKeys True [停止] Name Text 停止 分隔线 Text - [退出] Name mExit Text 退出 表5-1 菜单控件MenuStrip1的属性值 ⑵工具栏控件：ToolStrip1 按表5-2设置工具栏控件ToolStrip1的属性值。设置的工具栏如图5-20所示。 工具栏ToolStrip1 控件名 属性名 属性值 [开始] Name tBtStop Text 开始 Image 任意ICO DisplayStyle ImageAndText [停止] Name tBtStop Text 停止 DisplayStyle ImageAndText 表5-2 工具栏控件的属性值 图5-20 设置的工具栏 ⑶状态栏控件：StatusStrip1 按表5-3设置状态栏控件StatusStrip1的属性值。设置的状态栏如图5-21所示。 属性名 属性值 说明 控件1： Name sLabel1 Text 当前进度 控件2： Name sbar1 Minimum 0 进度条变化的最小值 Maximum 100 进度条变化的最大值 Value 0 进度条变化的当前 图5-21 设置的状态栏 表5-3 状态栏控件的属性值 ⑷定时器控件 定时器控件只需要认识两个属性： ①Interval：定时器时间间隔，单位为毫秒,1秒=1000毫秒。 ②Enabled:取值为True表示定时器开始根据Interval属性中设置的时间定时的触发Tick事件；False表示停止触发Tick事件 主要事件：Tick。Enabled=True时，每隔Interval毫秒触发该事件，在该事件过程中编写代码即可。 [程序代码] Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Sbar1.Minimum = 0 设置进度条变化范围 Sbar1.Maximum = 100 Sbar1.Value = 0初始化进度条的值 Timer1.Enabled = False初始化定时器状态 Timer1.Interval = 100设置定时器时间间隔 tBtStop.Enabled = False初始化[停止]按钮状态 mStop.Enabled = False初始化[停止]菜单状态 End Sub 以上代码初始化控件状态 Private Sub tBtStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tBtStart.Click, mStart.Click Timer1.Enabled = True tBtStop.Enabled = True tBtStart.Enabled = False End Sub 以上代码单击[开始]按钮或菜单时启动定时器，同时使[停止]按钮和菜单项状态变为可用，起到逻辑控制作用. Pri