新Visual Basic.NET程序设计 普通高等教育“十一五”国家级规划教材 教学课件 柳青 严健武 第五章.pptVIP

图5-15 单击ToolBarMenu1时弹出的对话框 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 设置菜单项 退出 Text mExit Name [退出] - Text 分隔线 停止 Text Name [停止] True ShowShortCutKeys Ctrl+A ShortCutKeys 开始(A) Text MStart Name [开始] 属性值 属性名 菜单项 “操作”菜单MenuStrip1 表5-1 菜单控件MenuStrip1的属性值 ⑵工具栏控件：ToolStrip1 按表5-2设置工具栏控件ToolStrip1的属性值。设置的工具栏如图5-20所示。 ImageAndText DisplayStyle 停止 Text tBtStop Name [停止] ImageAndText DisplayStyle 任意ICO Image 开始 Text tBtStop Name [开始] 属性值 属性名 控件名 工具栏ToolStrip1 表5-2 工具栏控件的属性值 图5-20 设置的工具栏 ⑶状态栏控件：StatusStrip1 按表5-3设置状态栏控件StatusStrip1的属性值。设置的状态栏如图5-21所示。 进度条变化的当前 0 Value 进度条变化的最大值 100 Maximum 进度条变化的最小值 0 Minimum sbar1 Name 控件2： 当前进度 Text sLabel1 Name 控件1： 说明 属性值 属性名 图5-21 设置的状态栏 表5-3 状态栏控件的属性值 ⑷定时器控件 定时器控件只需要认识两个属性： ①Interval：定时器时间间隔，单位为毫秒,1秒=1000毫秒。 ②Enabled:取值为True表示定时器开始根据Interval属性中设置的时间定时的触发Tick事件；False表示停止触发Tick事件 主要事件：Tick。Enabled=True时，每隔Interval毫秒触发该事件，在该事件过程中编写代码即可。 [程序代码] Timer1.Enabled = False初始化定时器状态 Sbar1.Value = 0初始化进度条的值 Sbar1.Maximum = 100 Sbar1.Minimum = 0 设置进度条变化范围 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Timer1.Enabled = False Private Sub tBtStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tBtStop.Click, mStop.Click 以上代码单击[开始]按钮或菜单时启动定时器，同时使[停止]按钮和菜单项状态变为可用，起到逻辑控制作用. End Sub tBtStart.Enabled = False tBtStop.Enabled = True Timer1.Enabled = True Private Sub tBtStart_Click(ByVal sender As System.Object, ByVal e As System.E