VB语言程序设计2012(第三章).ppt

第三章 创建用户界面 基本概念 创建窗体 基本控件 控件数组 菜单设计 工具栏 状态条 2.响应的事件 mouseup事件、mousemove事件、 keydown事件、 getfocus事件 keypress事件、keyup事件、mousedown事件、dblclick事件、 click事件、 lostfocus事件 3.方法： move、setfocus 4.单选按钮的使用 单选按钮主要用于需要在一组方案中选择其中的一个方案的 情况。一组单选按钮中有且只有一个单选按钮处 于选中状态。 例：中午的菜单中有一道水果，但是只能从菜单中选择一种水果。 步骤： 1.新建工程 2.在窗体中放置3个单选按钮、一个标签框、一个文本框、一个命令 按钮。 3.修改属性： 将3个单选按钮的caption属性分别改为：苹果、鸭梨、菠萝；标签框 的caption属性改为“今天的水果是：” 文本框的text属性改为空，命令按钮的caption属性改为：退出 4.编码： Private Sub Option1_Click() Text1.Text = Option1.Caption End Sub Private Sub Option2_Click() Text1.Text = Option2.Caption End Sub Private Sub Option3_Click() Text1.Text = Option3.Caption End Sub return 运行结果： 二、复选按钮 1.属性： Name(名称)、alignment、Value、Enabled、Caption、 Visible 2.响应的事件 mouseup事件、mousemove事件、 keydown事件、 getfocus事件 keypress事件、keyup事件、mousedown事件、click事件、 lostfocus事件 3.方法： move、setfocus 4.复选按钮的使用 复选按钮主要用于在一组方案中选择多个方案（包括0个方案） 的情况。一组复选按钮中可以有一个复选按钮处于选中状态，可 以有多个复选按钮处于选中状态，也可以一个也不选。 例：中午的菜单中有一道水果，但是只能从菜单中选择一种水果。 除了水果之外，还可以选择主食和蔬菜，也可以只吃水果。 步骤： 1.新建工程 2.在窗体中放置3个单选按钮、一个标签框、一个文本框、两个命令 按钮、两个复选按钮。 3.修改属性： 将3个单选按钮的caption属性分别改为：苹果、鸭梨、菠萝；标签框 的caption属性改为“今天的午餐是：” 文本框的text属性改为空，命令按钮的caption属性分别改为：“确 定”和“退出”复选框的caption属性分别改为：“主食”和“蔬 菜” 运行结果： 4.编码： Dim s, st, st1, st2 As String Private Sub Check1_Click() st1 = Check1.Caption End Sub Private Sub Check2_Click() st2 = Check2.Caption End Sub Private Sub Command1_Click() s = st If Check1.Value = 1 Then s = s + 、 + st1 End If If Check2.Value = 1 Then s = s + 、 + st2 End If Text1.Text = s End Sub Private Sub Command2_Click() End End Sub Private Sub Option1_Click() st = Option1.Caption End Sub Private Sub Option2_Click() st = Option2.Caption End Sub Private Sub Option3_Click() st = Option3.Caption End Sub 三、框架 1.属性： Name(名称)、Appearance、BackColor、Enabled、Font、 ForeColor、Width、Caption、 Height、Left、Top、Visible 2.响应的事件 mouseup事件、mousemove事件、 keydown事件、 click事件、 dblclick事件 3.方法： move 4.框架的使用 框架主要用于在多组方案中进行选择多