第二章 创建用户界面.pptVIP

第二章 创建用户界面 2.1 创建窗体 2.2 Visual Basic 的常用控件 2.3 制作菜单 2.2 Visual Basic的常用控件 2.2.1 概述 2.2.2 常用控件 2.3 制作菜单 2.3.1 菜单概述 2.3.2 使用菜单编辑器 2.3.2 界面设计程序示例 2.3.4 使用帮助 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) 方法 Refresh：刷新； Move：移动。 (3)事件 Click（单击）、DblClick（双击）（很少用及） 注意： 标签得不到焦点，所以无SetFocus方法 例 Label Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.Left = Command1.Left Label1.Top = Command1.Top + Command1.Height Label1.WordWrap = False Label1.AutoSize = True Label1.BackColor = vbYellow Label1.Visible = True Label1.Caption = 关闭窗体，结束应用程序 End Sub 设置颜色 使标签可见 文本不换行 例：窗体FORM1上有一个命令按纽“Close”，当鼠标光标移动动到该按钮上时，在按纽下方显示由LABEL1提供的提示行：背景色为“淡黄色”，文字为“关闭窗体，结束应用程序”。 Private Sub Command1_Click() Unload Me End Sub 除命令按钮外，鼠标在窗体其他位置移动时，并不出现标签提示 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.Visible = False End Sub 3、命令按钮（Command Button） [功能]： 用户用鼠标单击命令按钮，就表示要执行一条命令，命令的具体功能则是由触发的单击事件过程中的程序代码决定。 (1)属性 Caption：标题属性。就是显示在按钮上的提示文字； Default：确定属性。当该属性为“True”时，按“回车键”等同于单击此按钮。在一个窗体中，也只能有一个命令按钮的该属性值为“True”.缺省值为“False”。 Cancel：取消属性。当本属性值设为“True”（真）时，按“Esc”键即等同于单击本按钮；在一个窗体中，只能有一个命令按钮的该属性设置为“True”，缺省值为“False”； Enable:有效属性，当该属性为“False”时，命令按钮无效， 不能响应用户事件，缺省为“True”。 (2)方法 SetFocus：设置焦点。 设置为焦点的按钮，标题周围将有一个边框，用户直接按“回车键”时，将会触发执行该按钮的单击事件。 (3)事件 Click，即鼠标单击。这是命令按钮最基本、最重要的事件。 书P23 例 2-2 例2-2一个使用命令按钮的程序示例 Private Sub Command1_Click() Label1.Caption = 报效祖国 Command2.Enabled = True Command2.SetFocus Command1.Enabled = False End Sub 使按钮2变为活动状态 Private Sub Command2_Click() Label1.Caption = 努力学习 Command1.Enabled = True Comm