第二章 创建用户界面-课件.ppt

Private Sub Timer1_Timer() If Label1.Left + Label1.Width Form1.Width Then Label1.Move 0 Else Label1.Move Label1.Left + 50 End If End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Command1_Click() Timer1.Enabled = True End Sub * 2.3 制作菜单 2.3.1 菜单概述 2.3.2 使用菜单编辑器 2.3.2 界面设计程序示例 2.3.4 使用帮助 * 菜单概述 菜单条/菜单栏：位于窗体的标题栏下，包括菜单的标题； 菜单/下拉式菜单：单击菜单标题，出现的命令列表； 菜单项：菜单命令； 子菜单：从一个菜单项分支出来的菜单； 弹出式菜单：右键快捷菜单。 * 打开菜单编辑器对话框：“工具” “菜单编辑器” 标题： 菜单标题，直接显示在菜单中；若为菜单分隔 线，则标题为“-”，如要设置菜单访问键