Visual Basic 程序设计案例教程第5讲.pptVIP

例5.2 CheckBox控件示例。 设计一个窗体，如图5-2所示，用复选框控制文本输入是否加“下划线”和“斜体显示”。 图5-2 复选框举例 复选框控件 操作步骤如下： （1）设计窗体外观 本例需要在窗体上添加3个控件：一个文本框，两个复选框。在文本框中显示文本，由两个复选框决定显示的文本是否加下划线或用斜体显示。 控件的主要属性设置见表5-2。 复选框控件 表5-2 控件的主要属性设置 控件名 属 性 名 属 性 值 控件名 属 性 名 属 性 值 窗体 Name Form1 窗体 Width 4800 Caption 复选框的应用 WindowState 0-Normal Height 3600 文本框 Name TextDisplay Left 3000 Text 空 Top 2000 复选框1 Name CheckUnderLine 复选框2 Name CheckItalic Caption 加下划线 Caption 斜体显示 Value 0-Unchecked Value 0-Unchecked 复选框控件 （2）编写事件代码 “Form1”窗体控件的“Load”事件过程代码如下： Private Sub Form_Load() TextDisplay.FontSize = 15 End Sub 复选框控件 “TextDisplay”文本框控件的“Change”事件过程代码如下： Private Sub TextDisplay _Change() If CheckUnderLine.Value=1 Then TextDisplay.FontUnderline=True End if If CheckItalic.Value=1 then TextDisplay. FontItalic =True End If End Sub 复选框控件 “CheckUnderLine”复选框控件的“Click”事件过程代码如下： Private Sub CheckUnderLine_Click() If CheckUnderLine.Value=1 Then TextDisplay.FontUnderline=True Else TextDisplay.FontUnderline=False End If End Sub 复选框控件 “CheckItalic”复选框控件的“Click”事件过程代码如下： Private Sub CheckItalic _Click() If CheckItalic.Value=1 Then TextDisplay.FontItalic=True Else TextDisplay.FontItalic=False End If End Sub 复选框控件 单选按钮控件 单选按钮（OptionButton）主要用于在多种功能中选择一种功能的情况。它是一个标有文字说明的，选中它后圆圈中出现一个黑点的控件。单选按钮控件在工具箱中的图标为 ，单选按钮必须成组出现，在一组单选按钮中必须选择一项，且只能选择一项；其默认名称分别为OptionX（其中X为1，2，3 …）。 单选按钮控件  单选按钮（OptionButton）的属性 Caption属性 设置单选按钮的文本注释，即对象边上的文字标题。 Alignment属性 该属性用来设置单选按钮标题的对齐方式，可以在设计 时设置，也可以在运行期间设置。它有两个取值。取0 值（默认）时，标题显示在对象的右边，其外观 为 ；取1值时，标题显示在对象的左边，其外 观为 。  单选按钮控件 Value属性 表示单选按钮的状态，它是一个逻辑值。 取True值，表示它被选中，按钮的中心有一个圆点。 取False（默认）值，表示单选按钮没被选中，按钮 的中心是一个圆圈。 Style属性 用来指定单选按钮的显示方式，以改善视觉效果。   单选按钮控件 单选按钮的事件 单选按钮最基本的事件是Click事件，但一般不 需要编写Click事件过程。因为当用户单击单选 按钮时，它会自动改变状态。