第4章end.ppt

第4章 窗体和控件 4.1 单选按钮(OptionButton)与复选框(CheckBox)控件 4.2 框架控件(Frame) 4.3 定时器控件(Timer) 4.4 列表框控件(ListBox) 4.5 组合框控件(ComboBox) 4.6 滚动条控件(ScrollBar) 4.7 图形控件 4.1 单选按钮（Option Button）与复选框（Check Box）控件 1.单选按钮（Option Button）的用途 该控件由一个圆圈以及紧挨它的文字组成，单击便可以选择它。 通常由两个或两个以上的单选按钮组成相互排斥的选项组。用在有多个选项可供选择，但只能选中一项的情况。 未选中?单击后?选中，同时同组其它按钮变成未选中； 选中?单击后?保持选中 2.单选按钮常用属性 ? Name：习惯以Opt为前缀，默认Option1 。 ?Caption：设置单选按钮旁边的说明文字，以说明单选按钮的用途，默认Option1 。 ? Value属性：表示单选按钮的是否被选中，选中则Value值为True，否则为False（默认）. alignment：设置圆圈与标题文字的位置， alignment=0（默认）圆圈在标题的左边 alignment=1 （右边） 3.单选按钮的事件 click事件，选定按钮时触发click事件 注意：单选按钮只要被单击，无论单击多少次，都是选中状态。因此在事件代码中可以直接表达单击后的结果。 例3．7 用单选按钮控制在文本框中显示不同的字体。 (1) 在窗体上创建一个文本框用于输入一行文字、3个单选按钮分别用于控制显示“宋体”、“黑体”、“楷体”。如图所示。 打开代码窗口，编写事件过程： Private Optsong_Click() Text1.Fontname=”宋体” End Sub ?Private Optblack_Click() Text1.Fontname=”黑体” End Sub ?Private Optkai_Click() Text1.Fontname=”楷体” End Sub 例1：设计一个界面，当选择单选按钮1时，窗体的颜色变为红色；当选择单选按钮2时，窗体的颜色变为绿色。 上机练习1 查询教师一周课程安排情况。要求选择某一工作日，然后单击“查询”命令按钮，在相应的位置显示该工作日的课程安排情况. 4.复选框（Check Box） 由有一个四方形小框以紧挨着它的文字组成。 通常用在有多个选项可供选择，可以从中选择一项或几项的情况。 与单选按钮最明显的区别：在一组单选按钮控件中，只能选定一项，而在一组复选框控件中，可以同时选中多个选项。 5.复选框常用属性 ?Name属性：习惯以“Che”作为前缀，默认Check1。 Caption属性：标题，默认Check1 。 ?Value属性；用于设置或返回复选框的状态。Value属性有三种情况： 0 – 未选中 1 – 选中 2 – 灰色（已选中）状态 6. 复选框响应的事件 click事件 是复选框控件最基本的事件 单击事件对value属性值的改变遵循以下规则： 单击未选中的复选框时，value属性值变为1 单击已选中的复选框时，value属性值变为0 单击变灰的复选框时， value属性值变为0 注意： 1）复选框按钮不支持双击事件 2）单选按钮只要被单击，无论单击多少次，都是选中状态。因此在事件代码中可以直接表达单击后的结果。 而每单击一次复选框，它的状态在“选中”与“不选”之间切换一次，“√”标记也随之在有无之间切换。 因此在单击事件中要判断复选框是否为选中状态。 例2： 例3.8建立一个简单的购物计价程序，如图所示，物品与单价已列出，用户只需在购买物品时，选择购买的物品并单击下面的“总计”命令按钮，即可显示购物总的价格。 在本例程序设计中采用了如下一些设计技巧： (1)?建立控件数组，check1和label1 (2)利用窗体初始化来建立初始界面 (3)利用复选框的Caption属性显示物品名称，利用Label1的Caption属性，显示物品价格， 利用文本框的Text属性，显示所购物品总价格，并将其Locked属性设置为True，禁止修改总价格。 Private Sub Commandl_Click() Dim I As Integer,Sum As Integer Sum =0 For I=0 To 3 If Check1(I).Value=1 Then Sum=Sum+Va