创建用户界面.ppt

第二章 创建用户界面 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