Basic的常用控件(1).

1、金乡职业学校计算机组VB教案徐仁坤第五章 Visual Basic的常用控件（1）【教学目的】通过教学，使学生熟练掌握Visual Basic的常用控件，如单选按钮、复选框、框架控件等，并能在编程中加以应用。【教材分析】1、教学重点：Visual Basic的常用控件，如单选按钮、复选框、框架控件等，及其在编 程中的应用。2、 教学难点：单选按钮、复选框、框架控件学生第一次接触，在QB中没有碰到过，有 部分学生可能理解上有一定困难 。【教学时间】二课时（一节在多媒体教室，一节在机房） 【学习过程导入：1、2、Text1.Fo ntltalic=Not Text1.Fo ntitalic属性的反

2、面。】说出我们前阶段所常用的控件名称： 说出下列文本框属性设置的意义：Textl.Alig nmen t=0Textl.Alig nment = 1Textl.Alig nment = 2TextI.Fo ntSize=10Text1.Fo ntBold=FalseText1.F on tltalic=TrueText1.F ontUn derl ine = True设置文本左对齐设置文本右对齐设置文本居中齐设置文本为10号字体设置文本为非粗体设置文本为斜体设置文本的下划线设置文本为原来斜体设置文本的前景色为红色 设置文本的字形为宋体不允许对框架内的所有对象进行操作。False :框架及其控件

3、被隐含起来。一组单选钮控件可以提供一组彼此相Text1.ForeColor= vbRed Text1.FontName =宋体3 、演示例8-3:文本编辑器一、框架控件（Frame控件）1、 功能：用来放其他控件的容器，把有关控件按功能分组，默认名称为F rame1、Framed Frame3。2、重要属性：Caption属性：框架标题Enabled属性：缺省为True，允许对框架内的所有对象进行操作False :标题呈灰色，Visible 属性：True :框架及其控件可见。二、单选按钮控件（Option控件）1、功能：实现一种“单项选择”的功能，互排斥的选项，任何时刻用户只能从中选择一个选

4、项，被选中项目左侧圆圈中会出现一黑点。2、重要属性：（1）Caption：文本标题。设置单选钮的文本注释内容。（2）Alignment 属性：0： Left Justify（缺省设置）控件钮在左边，标题显示在右边。1: Right Justify控件钮在右边，标题显示在左边。(3) Value True: False:属性单选钮被选定单选钮未被选定（缺省设置）属性: 标准方式1-Gra phical:图形方式（4） Style0-Sta ndard说明：在Style属性设置为1时，可使用Picture 属性（未选定时的图标或 位图）、DoWn Picture属性（选定时的图标或位图）、Disa

5、bled Picture 属性（禁 止选择时的图标或位图）例8-1 创建一个窗体Form1 （Caption :编辑字体的颜色和字形），在此窗 体上创建2个框架控件Frame1 （Caption :字体颜色）和 Frame2 （Caption :字 体字形），再在窗体上建立一个文本框 Text1 （Text :心想事成）。在框架控件 Frame1内建立由名为“红色”、“绿色”、“蓝色”组成的单选按钮数组，在 框架控件Frame2内建立由名为“宋体”、“楷体”、“仿宋体”、“黑体”、“隶书”组成的单选按钮数组。编程解决：点击有关单选按钮时，文本框内的文 本会作出相对应的变化。解第一步： 创建新窗

6、体Form1，在此窗体上创建 2个框架控件Frame1和Fram e2，再在窗体上建立一个文本框Text1。第二步：设置对象的属性对象类型对象名属性设置窗体Form1Cap ti on编辑字体的颜色和字 形框架控件Frame1（Caption :字体颜色）Op tio n1(0)Cap ti on红色Op tio n1(1)Cap ti on绿色Op tio n1(2)Cap ti on蓝色框架控件Frame2 （Caption :字体字形）Op tio n2(0)Cap ti on宋体Op tio n2(1)Cap ti on楷体Op tio n2(2)Cap ti on仿宋体Op tio

7、n2(3)Cap ti on黑体Op tio n2(4)Cap ti on隶书文本框Text1Text心想事成第三步：补充完成代码编写：Private Sub Op tio n1_Click(l ndex As In teger)Select Case In dexCase 0Text1.ForeColor = vbRedCase 1Text1.ForeColor = vbGree nCase 2Text1.ForeColor = vbBlueEnd SelectEnd SubPrivate Sub Op tio n2_Click(l ndex As In teger)Select Case

8、In dexCase 0Text1.Fo ntName =宋体Case 1Text1.Fo ntName =楷体 _gb2312Case 2Text1.Fo ntName =仿宋 _gb2312Case 3Text1.Fo ntName =黑体”Case 4Text1.Fo ntName =隶书”End SelectEnd SubCase 4End Sub三、复选框控件（Check控件）1、功能：实现一种“多项选择”的功能。一组检查框控件可以提供多个选项， 它们彼此独立工作，所以用户可以同时选择任意多个选项，选择某一选项后，该控件将显示2,而清除此选项后，2消失。2、重要属性：（1） Capt

9、ion、Alignment、Style 与单选按钮相同（2） Value属性与单选按钮不同单选按钮复选框控件True:单选钮被选定False:单选钮未被选定（缺省设置）0-Unchecked :未被选定 -Checked :选定 2-Grayed :灰色，禁止选择例8-2创建一个窗体Form1 （Caption :编辑字体的样式和字号），在此窗 体上创建2个框架控件Frame1 （Caption :字体样式）和 Frame2 （Caption :字 体字号），再在窗体上建立一个文本框 Text1 （Text :心想事成）。在框架控件 Frame1内建立由名为“粗体”、“斜体”、“下划线”组成的

10、复选框按钮数组， 在框架控件Frame2内建立由名为“ 10”、“14”、“18”、“ 22”、“ 26”组 成的单选按钮数组。编程解决：点击有关单选按钮时，文本框内的文本会作出相 对应的变化。解第一步：创建新窗体Form1,在此窗体上创建2个框架控件F rame1和Frame2,再在窗体上建立一个文本框 Text1。第二步：设置对象的属性对象类型对象名属性设置窗体FormiCap ti on编辑字体的样式和字号框架控件Framel（Caption :字体样Check1(0)Cap ti on粗体Check1(1)Cap ti on斜体式）Check1(2)Cap ti on下划线框架控件Fr

11、ame2 （Caption :字体字号）Op tio n2(0)Cap ti on10Op tio n2(1)Cap ti on14Op tio n2(2)Cap ti on18Op tio n2(3)Cap ti on22Op tio n2(4)Cap ti on26文本框Text1Text心想事成第三步：补充完成代码编写Private Sub Form_Load()Text1.Fo ntBold = FalseText1.Fo ntitalic = FalseText1.F ontUn derl ine = False End SubPrivate Sub Check1_Click(l n

12、dex As In teger)Select Case In dexCase 0Text1.Fo ntBold = Not Text1.Fo ntBoldCase 1Text1.Fo ntitalic = Not Text1.Fo ntitalicCase 2Text1.Fo ntUn derli ne = Not Text1.Fo ntUn derli neEnd SelectEnd SubPrivate Sub Op tio n1_Click(l ndex As In teger)Select Case In dexCase 0TextI.Fo ntSize = 10Case 1TextI

13、.Fo ntSize = 14Case 2Text1.Fo ntSize = 18Case 3Text1.Fo ntSize = 22Case 4Text1.Fo ntSize = 26End SelectEnd Sub例8-3创建一个窗体Form1 (Caption :文本编辑窗口)，在此窗体上创建5个框架控件Frame1 (Caption :字体颜色)、Frame2 (Caption :字体样式)、 Frame3(Caption :字体字形)、Frame4 (Caption :字体字号)和 Frame5 (Cap tion :对齐方式)，再在窗体上建立一个文本框Text1 (Text :心

14、想事成)。在框架控件Frame1内建立由名为“红色”、“绿色”、“蓝色”组成的单选按钮数组；在框架控件Frame2内建立由名为“粗体”、“斜体”、“下划线”组成 的复选框按钮数组；在框架控件Frame3内建立由名为“宋体”、“楷体”、“仿 宋体”、“黑体”、“隶书”组成的单选按钮数组；在框架控件Frame4内建立由名为“ 10”、“14”、“18”、“ 22”、“ 26”组成的单选按钮数组；在框架 控件Frame5内建立由名为“左对齐”、“右对齐”、“居中对齐”组成的单选 按钮数组。编程解决：点击有关单选按钮时，文本框内的文本会作出相对应的变 化。解第一步：创建新窗体Form1,在此窗体上创建

15、5个框架控件Frame1、F rame2、Frame3 Frame4和Frame5,再在窗体上建立一个文本框 Text1。第二步：设置对象的属性对象类型对象名属性设置窗体Form1Cap ti on文本编辑窗口框架控件Frame1（Caption :字体颜色）Op tio n1(0)Cap ti on红色Op tio n1(1)Cap ti on绿色Op tio n1(2)Cap ti on蓝色框架控件Frame2（Caption :字体样式）Check1(0)Cap ti on粗体Check1(1)Cap ti on斜体Check1(2)Cap ti on下划线框架控件Frame3 （Cap

16、tion :字体字形）Op tio n2(0)Cap ti on宋体Op tio n2(1)Cap ti on楷体Op tio n2(2)Cap ti on仿宋体Op tio n2(3)Cap ti on黑体Op tio n2(1)Cap ti on隶书框架控件Frame4 （Caption :字体字号）Op tio n3(0)Cap ti on10Op tio n3(1)Cap ti on14Op tio n3(2)Cap ti on18Op tio n3(3)Cap ti on22Op tio n3(4)Cap ti on26框架控件Frame5（Caption :对齐方式）Op tio

17、n4 (0)Cap ti on左对齐Op tio n4(1)Cap ti on右对齐Op tio n4 (2)Cap ti on居中对齐文本框Text1Text心想事成第三步：补充完成代码编写Private Sub Form_Load()Text1.Fo ntBold = FalseText1.Fo ntitalic = FalseText1.F ontUn derl ine = FalseEnd SubPrivate Sub Op tio n1_Click(l ndex As In teger) Select Case In dexCase 0Text1.ForeColor = vbRedC

18、ase 1Text1.ForeColor = vbGree nCase 2Text1.ForeColor = vbBlueEnd SelectEnd SubPrivate Sub Check1_Click(I ndex As In teger)Select Case In dexCase 0Text1.Fo ntBold = Not Text1.Fo ntBoldCase 1Text1.Fo ntitalic = Not Text1.Fo ntitalicCase 2Text1.Fo ntU nderli ne = Not Text1.Fo ntUn derli neEnd SelectEnd Su