新Visual Basic 2005程序设计 教学课件 丁爱萍 第8章 菜单、工具栏和状态栏.pptVIP

第8章 菜单、工具栏和状态栏 8.1 菜单设计 8.1.1 下拉菜单 1. 下拉菜单的元素 （1）菜单标题。 （2）菜单命令。 （3）分隔条。 （4）符号：有的菜单命令右端有符号。 （5）符号：有的菜单命令的左边有符号。 2. 创建下拉菜单 在VB 2005中下拉菜单是控件MainStrip。创建步骤为： （1）从工具箱中选取MenuStrip控件，将其添加到窗体上。此时，窗体下方的面板中出现名为MenuStrip1的对象。 （2）单击“在此处键入”文本，然后输入一个有意义的菜单名称（如“文件”），输入的名称显示在菜单项的Text属性栏中。在默认状态下，最上面一层菜单是菜单标题。 （3）继续单击其他的“在此处键入”区域输入菜单项。如果单击当前菜单项的右侧，即可为该菜单项添加子菜单，但不能向菜单标题项添加子菜单；如果单击当前菜单项的下侧，即可在当前菜单项中添加另一菜单项。 （4）创建完菜单结构后，即可为各菜单项添加功能。双击需要添加功能的菜单项，进入其Click事件代码编辑窗口，编写程序代码即可。 3. 菜单项分组 （1）在设计窗口时，右击要添加分隔条的子菜单项。 （2）在快捷菜单中，选择“插入”→“Separator”，此时，在该菜单项下自动插入一个分隔条。 4. 菜单项的常用属性 5. 指定访问键 在某个字母前输入一个“”，即可将该字母作为该菜单项的访问键。在运行该菜单时，可以使用Alt+“字母”快捷访问。 6. 设置快捷键 选中某菜单项的ShortcutKeys属性，单击下拉选择钮，选中修饰符和字母。 7. 快速生成系统标准菜单 如果需要设计一个系统菜单，可以用鼠标右键单击菜单对象，弹出的快捷菜单中，选择“插入标准项”，即可快速生成一个系统标准菜单。如果生成的系统菜单中某些项目不合适，选中后直接修改即可。 8.1.2 计时器 1. 计时器组件的常用属性 2. 计时器组件的常用方法： Start：打开计时器 Stop：关闭计时器 3. 计时器组件的事件----Tick事件。 如果启用了Timer组件，则每个时间间隔都将引发一个Tick事件。如果为Tick事件编写了处理代码，则这段代码会每隔一定的时间自动执行一次。 【例8-1】如图所示，使用下拉菜单来操纵窗体上标签的移动。窗体上包含“操作”、“控制”两个菜单。“操作”菜单中包括“向左”和“向右”子菜单项，“控制”菜单中包括“停止”、“继续”子菜单选项。 编写Sub过程实现“向左”移动的功能： Sub Left_Play() If Label1.Left 0 Then 判断标签的左边界是否移出窗体 Label1.Left = Label1.Left - 1 标签的左边界减1 Else LeftTimer.Enabled = False 向左移动计时器不能使用 End If End Sub 编写Sub过程实现“向右”移动的功能： Sub Right_Play() If Label1.Left Width - Label1.Width Then Label1.Left = Label1.Left + 1 标签的左边界加1 Else RightTimer.Enabled = False 向右移动计时器不能使用 End If End Sub 编写Sub过程实现“停止”移动的功能： Sub Stop_Play() LeftTimer.Enabled = False RightTimer.Enabled = False If StopToolStripMenuItem.Enabled = True Then StopToolStripMenuItem.Enabled = False ContinueToolStripMenuItem.Enabled = True End If End Sub 编写Sub过程实现“继续”移动的功能： Sub Continue_Play() LeftTimer.Enabled = True RightTimer.Enabled = False If ContinueToolStripMenuItem.Enabled = True Then StopToolStripMenuItem.Enabled = True ContinueToolStri