vb3第三章 窗体、命令按钮、基本输入输出控件.pptVIP

第三章 窗体、命令按钮、基本输入输出控件 本章要点:窗体（Form） 命令按钮 (CommandButton) 标签（Label） 文本框（TextBox） 3.1 窗体(Form) 窗体：窗口（一般，设计期称窗体、运行期称窗口） 窗体模块：每个窗体对应于一个窗体模块 一、窗体的结构： 二、添加窗体、移除窗体 工程→添加窗体；工具栏 工程→移除… ；快捷菜单 三、设置启动对象 工程→工程1属性→设置启动对象 四、窗体的属性 P16 例…… 五、窗体事件 Load、 Activate 、 Click、 DblClick、 Unload KeyDown、KeyUp、MouseDown、MouseUp… 例：单击窗体时产生Click事件，将窗体背景设置成黄色 Private Sub Form_Click() Form1.BackColor = vbYellow End Sub 例：在用控制菜单、关闭按钮或Unload方法关闭窗体时产生Unload事件，显示“再见”。 Private Sub Form_Unload(Cancel As Integer) MsgBox 再见 End Sub 六、方法：Show Cls …… 3.2 命令按钮（CommandButton) 一、属性：P33表3-1 二、事件： Click、KeyDown、KeyUp、MouseDown、MouseUp… 例1: Private Sub Command1_MouseDown(……) Form1.BackColor = vbRed End Sub 例2: Private Sub Command1_MouseUp(……) Form1.BackColor = vbGreen End Sub 例3: Private Sub Command1_KeyDown(……) Form1.Caption = 你好 End Sub 例4: Private Sub Command1_KeyUp(……) Form1.Caption = 再见 End Sub 例5：Private Sub Command1_Click() Shell c:\windows\calc.exe, vbNormalFocus End Sub 三、如何用代码选中命令按钮 例: Private Sub Command1_Click() Shell c:\windows\write.exe, vbNormalFocus End Sub Private Sub Command2_Click() Command1_Click End Sub Private Sub Command3_Click() Command1.Value = True End Sub 3.3 标签（Label） 用于显示文本 一、属性：P36表3-2 二、事件: Click、DblClick… 例：Private Sub Label2_DblClick() Label2.FontSize = Label2.FontSize + 10 End Sub 三、方法： Move left, top, width, height 例：Private Sub Label1_Click() Label1.Move Label1.Left + 50 End Sub 四、标签举例 Chr(13)：回车 ：字符串连接符 Date：返回系统当前日期 Year(Date)、Month(Date)、Day(Date) Unload Me:关闭当前窗体（与END不同） 例5-1：设计以下界面： Private Sub Command1_Click() Label1.Caption = 欢迎使用