vb第7章选编.ppt

*;7.1 常用控件 (4.2.5/4.4.3/2.2.6) ;*;(1) 创建应用程序的用户界面和设置对象属性 1个文本框，3个单选按钮 单选按钮组：初始状态设置涉及Caption及Value。设置Option1的Value属性值设置为True，或通过代码“Option1.Value=True” 来实现。 (2) 编写程序代码： Private Sub Option1_Click() Text1.FontName = 宋体 End Sub Private Sub Option2_Click() Text1.FontName = 幼圆 End Sub Private Sub Option3_Click() Text1.FontName = 楷体_GB2312 End Sub;2、 常用属性 1）Caption属性：按钮上显示的文本 2）Value属性：表示单选按钮的状态： True（-1） —— 被选定 False （0）—— 未被选定 使用单选按钮组时，选中其中一个，其余就会自动关闭。 3）Alignment属性：设置单选按钮标题的对齐方式 0居左（默认值）或1居右 4）Style属性： Style=0。单选按钮标准形式 Style=1，控件外观类似于命令按钮，???不同的是单选按钮有按下和弹起两种状态。 3、重要事件 Click事件 单击后使Value属性为True。;*;*;*;*;3、重要事件 Click事件：复选框可响应的事件与单选按钮基本相同 ; (1)创建应用程序的用户界面和设置对象属性 多行文本框(带垂直滚动条)和四个复选框 (2)编写程序代码 功能要求：程序开始运行后，用户在文本框中输入一段文字(如“复选框应用示例”)，然后按需要单击各复选框，则文字的字体、字型、字号及颜色随之改变;*;Private Sub Check1_Click() If Check1.Value = 1 Then 判复选框1是否选中 Text1.FontName = 楷体_GB2312 Else Text1.FontName = 宋体 End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then 判复选框2是否选中 Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub Private Sub Check3_Click() If Check3.Value = 1 Then 判复选框3是否选中 Text1.FontSize = 25 Else Text1.FontSize = 9 End If End Sub; Private Sub Check4_Click() If Check4.Value = 1 Then 判复选框4是否选中 Text1.ForeColor = RGB(255, 0, 0) ‘红色 Else Text1.ForeColor = RGB(0, 0, 0) ‘黑色 End If End Sub 在运行中，可以任意设定这四个复选框的状态，可以四项都不选，也可以选择其中一项至四项;*;【例】使用框架控件（与P89例4.14类似）。 设计一个程序，要求程序能够根据所选择的字体、字号及颜色设置文本框中的文字。运行程序时，标签中显示一行文字，其字体、字号大小和颜色在程序中设定。在3个框架中分别选择字体、字号和颜色，然后按下“显示”按钮，则文本框中文字的字体、字号和颜色会按各项设置发生变化