单选框和复选框

单选框和复选框 江苏省无锡立信会计学校备课笔记 教 学 内 容 学生活动 复习: 导入:1、说出我们前阶段所常用的控件名称: 2、说出下列文本框属性设置的意义: Text1.Alignment=0 设置文本左对齐 Text1.Alignment = 1 设置文本右对齐 提问 Text1.Alignment = 2 设置文本居中齐 Text1.FontSize=10 设置文本为10号字体 Text1.FontBold=False 设置文本为非粗体 Text1.FontItalic=True 设置文本为斜体 Text1.FontUnderline = True 设置文本的下划线 Text1.FontItalic=Not Text1.FontItalic 设置文本为原来斜体属演示 性的反面。 Text1.ForeColor= vbRed 设置文本的前景色为红色 Text1.FontName = "宋体" 设置文本的字形为宋体 3、演示 新授课: 一、单选按钮控件(Option控件) 1、功能:实现一种“单项选择”的功能，一组单选钮控件可以提供一组彼此相互排斥的选项，任何时刻用户只能从中选择一个选项，被选中项目左侧圆 圈中会出现一黑点。 2、重要属性: (1) Caption:文本标题。设置单选钮的文本注释内容。 (2) Alignment属性: 0:—Left Justify(缺省设置)控件钮在左边，标题显示在右边。 1:—Right Justify 控件钮在右边，标题显示在左边。 单选按钮(3)Value 属性 主要功能True: 单选钮被选定 False: 单选钮未被选定(缺省设置) 举例 (4) Style 属性 0--Standard: 方式 1--Graphical:图形方式 说 明: 在Style属性设置为1时，可使用 Picture 属性(未选定时的图标或位图)、DoWnPicture属性( 选定时的图标或位图)、DisabledPicture属性(禁 止选择时的图标或位图) 创建一个窗体Form1(Caption:编辑字体的字形)，在此窗体上文本框Text1 (Text:无锡立信职教中心是国家级重点学校)，并建立由名为“宋体”、“楷 体”、“仿宋体”、“黑体”、“隶书”组成的单选按钮数组。程序运行后，点击有关单选按钮，文本框内的文本的字体和颜色会作出相对应的变化。 ,解,第一步:创建新窗体Form1，在此窗体上创建一个文本框Text1和一 个单选按钮数组Option1。 第二步:设置对象的属性 教 学 内 容 学生活动 对象类型 对象名 属性设置 编辑字体的窗体 Form1 Caption 字形 Option1 (0) Caption 宋体 Option1(1) Caption 楷体 单选按钮数组 Option1 Option1(2) Caption 仿宋体 Option1(3) Caption 黑体 Option1(4) Caption 隶书 文本框 Text1 Text 空白 第三步:补充完成代码编写: Private Sub Form_Load() Text1.Text = "无锡立信职教中心是国家级重点学校" Text1.ForeColor = vbBlue Text1.FontSize = 18 End Sub 举例 Private Sub Option1_Click(Index As Integer) Select Case Index Case 0 Text1.FontName = "宋体" Text1.ForeColor = vbRed Case 1 Text1.FontName = "楷体_gb2312" Text1.ForeColor = vbGreen Case 2 Text1.FontName = "仿宋_gb2312" 分析程序 Text1.ForeColor = vbYellow Case 3 Text1.FontName = "黑体" Text1.ForeColor = vbCyan Case 4 Text1.FontName = "隶书" Text1.ForeColor = vbBlue End Select End Sub 二、复选框控件(Check控件) 1、功能:实现一种“多项选择”的功能。一组检查框控件可以提供多个选项， 它们彼此独立工作，所以用户可以同时选择任意多个选项，选择某一选项后， 该控件将显示?，而清除此选项后，?消失。 2、重要属性: (1)Caption、Alignment、Style与单选按钮相同 (2)Value 属性与单选按钮不同 教 学 内 容 学生活动 单选按钮 复选框控件 True: 单选钮被选定 0--Unchecked:未被选定 False: 单选钮未被选定(缺省设置) 1--Checked:选定 2--Grayed:灰色，禁止选择 创建一个窗体Form1(Caption:编辑字体的样式)，在此窗体上创建一个复 选框控件数组Check1和一个文本框Text1(文本内容:职校是技师的摇篮)。对比单选复选框控件数组Check1名为“粗体”、“斜体”、“下划线”、“删除线”等四讲解复选个成员组成，程序运行时，点击有关单选按钮，文本框内的文本会作出相对 按钮 应的变化。 ,解,第一步:创建新窗体Form1，在此窗体上创建一个复选框控件数组Check1和一个文本框Text1。 分析程序 第二步:设置对象的属性 对象类型 对象名 属性设置 编辑字体的窗体 Form1 Caption 样式 Check1(0) Caption 粗体 Check1(1) Caption 斜体 复选框控件数组 Check1 Check1(2) Caption 下划线 Check1(3) Caption 删除线 文本框 Text1 Text 空白 第三步:补充完成代码编写 Private Sub Form_Load() Text1.Text = "职校是技师的摇篮" Text1.FontSize = 18 Text1.ForeColor = vbBlue Text1.FontBold = False Text1.FontItalic = False Text1.FontUnderline = False Text1.FontStrikethru = False 教 学 内 容 学生活动 End Sub Private Sub Check1_Click(Index As Integer) Select Case Index Case 0 Text1.FontBold = Not Text1.FontBold Case 1 Text1.FontItalic = Not Text1.FontItalic Case 2 Text1.FontUnderline = Not Text1.FontUnderline Case 3 Text1.FontStrikethru = Not Text1.FontStrikethru End Select End Sub 思考题 ,思考题1, 设计一应用程如图，单击单选扭可以改变标签框中文字的字 体、大小和颜色。 分析 提示: (1)初始值 Text1.Text = "字体属性的改变" Text1.FontSize = 26 Text1.ForeColor = vbRed Text1.FontName = "黑体" (2)幼圆 Text1.FontName = "幼圆" (3)紫色(即洋红色) Text1.ForeColor = QBColor(5) 或Text1.ForeColor = RGB(255,0，255) ,思考题2, 设计一个职工情况录入登记界面，单击相应单选扭和复选框，可以把职工的基本情况输入电脑。 教 学 内 容 学生活动 共同探讨 提示: Private Sub Option2_Click(Index As Integer) Select Case Index Case 0 Text3.Text = "中共党员" Case 1 Text3.Text = "民主党派" Case 2 Text3.Text = "无党派" End Select End Sub Private Sub Check1_Click(Index As Integer) Select Case Index Case 0 Text4.Text = Text4.Text + " " + "读书" Case 1 Text4.Text = Text4.Text + " " + "体育锻炼" Case 2 Text4.Text = Text4.Text + " " + "逛街购物" Case 3 Text4.Text = Text4.Text + " " + "写作" Case 4 Text4.Text = Text4.Text + " " + "旅游" Case 5 Text4.Text = Text4.Text + " " + "电脑" End Select End Sub