vb讲稿11.ppt

* 暗暗 * * * * * * 暗暗 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 暗暗 * * * * * * * * * 暗暗 * 暗暗 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 框架和选择控件 复选框（CheckBox） 复选框的功能类似于单选按钮，不同的是：一组单选按钮中只允许选定其中的一个；而在组复选框中却可以选择多个，即复选框的功能是独立的，各选项间不互斥。 复选框控件的属性 Caption：设置复选框标题。 Value：设置复选框在执行时的状态。语法格式： 对象名. Value={0 | 1 | 2} 属性值 说 明 0 (默认值)未选中，此时复选框前面小方块没有√标志 1 选中状态，此时复选框前面小方块带有√标志 2 处于禁止选择状态，复选框呈现√标志但以灰色显示。 注意： 单选按钮value为true 或false，复选框value为0,1,2三个值。 * 框架和选择控件 复选框（CheckBox） 复选框控件的属性 Style：设置复选框的显示方式。 Picture：用于给图形复选框装载图形。 注意： 只有在Style属性设置为图形方式时Picture属性才有效。 * 框架和选择控件 复选框（CheckBox） 复选框控件的事件和方法 复选框的常用事件为Click，当用户在一个复选框上单击鼠标按钮时发生。复选框不支持鼠标双击事件，系统把一次双击解释为两次单击事件。 复选框支持的方法较少，常用的主要有：SetFoucs、Move。 * 框架和选择控件 例：用复选框控制文本加下划线和斜体。 代码设计： 加下划线： 改变斜体： Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub Private Sub Check1_Click() Text1.FontUnderline = Check1.Value End Sub Private Sub Check2_Click() Text1.FontItalic = Check2.Value End Sub * 框架和选择控件 例：设计一个窗体，说明复选框的基本应用方法。 界面设计 * 框架和选择控件 对象 属性 属性值 Label Name Label1 Caption 我的爱好是 CheckBox Name Check1 Caption 音乐 CheckBox Name Check2 Caption 足球 CheckBox Name Check3 Caption 看书 CheckBox Name Check4 Caption 购物 CommandButton Name Command1 Caption 确定 CommandButton Name Command2 Caption 清除 * 框架和选择控件 代码设计： Private Sub Command1_Click() a = Check1.Caption b = Check2.Caption c = Check3.Caption d = Check4.Caption If Check1.Value = 1 Then Label1.Caption = Label1.Caption a If Check2.Value = 1 Then Label1.Caption = Label1.Caption b If Check3.Value = 1 Then Label1.Caption = Label1.Caption c If Check4.Value = 1 Then Label1.Caption