第七课百变文字.docx

《第七课百变文字.docx》由会员分享，可在线阅读，更多相关《第七课百变文字.docx（8页珍藏版）》请在三一文库上搜索。

1、课题百变文字课时1主备审核年级九年级年级授课时间第七周授课类型新授课授 课 节 次1教学目2 知识技 数学思： 问题解1标： 能： 考： 决：1 .熟悉文本框的基本使用方法。2 .熟悉复选框的基本使用方法。3 .掌握框架控件的基本使用方法。情感态度：1、能独立根据样例设计简单用户界面。2、能独立依据属性设置表设置对象的属性。a）激发学生对信息技术课的兴趣，培养学生互相协作的精神。提图学生的信息素养和 信息能力。教学重点：b）文本框的功能和使用方法是本课的重点也是难点。O框架的功能和使用方法是本课的重点。d）复选框的功能和使用方法是本课的重点。教学难点：会在程序中使用select case语句学

2、习流 程学习内容学习 方法 指导 及相 关补 充说 明、导入 新课， 出示课标教师可以带着学生 起回忆，在以往使用的计算机应用软件中经常会遇到设置文字字 体、字号、字形等问题，今天我们就用VB编写一个设置文字字体、字号、字形的小程序，给学生观看样例引入本课。为了学生能很快入手，告诉学生先来制作一个只具有设置字体功能的程序，根据教 材中图3.2让学生说出窗体上要添加的控件分别是什么、有多少个。学生可能会认为“百 变文字”中显示文字的控件是标签，教师向学生解释这里的控件是文本框，这样引入文本 框的功能及使用方法。让学生自己设计用户界面，根据教材中的属性设置表来设置对象属性，经过第一单兀 的学习，学

3、生应该能够达到根据样例独立创建用户界面和根据属性设置表设置对象属性的 能力。教师提出要增加“百变文字”的字号和字形功能，需要添加控件，为了便于分类，引 入框架控件的功能和用法。让学生思考“字形”中的粗体和斜体是可以同时选中的，所以 制作“粗体”和“斜体”选项不能再使用单选按钮了，弓1人复选框控件的功能和用法。（1）文本框的功能和使用方法是本课的重点也是难点。自主 探究， 预习 检测文本框和标签都可以显示文本信息，但文本框还可以通过键盘接受用户输入的信息，而标签则不可以；文本框的Text属性值就是其显示的文本内容，而标签的Caption属性值是它的显示内容。文本框的FontBold （粗体子）属

4、性 Fontltalic （斜体子）属性 FontStrikethru （删 除线字）属性、FontUnderline （下划线字）属性有两个值，其值为True （也就是1 ）表示字体有该效果，其值为 False （也就是0）表示字体没有该效果。在 编写程序代码时，如想实现文本框中字体的粗体、斜体、删除线和下划线效果， 可以为文本框的FontBold （粗体字）属性Fontltalic （斜体字）属性、FontStrikethru （删除线字）属性、FontUnderline （下划线字）属性赋相应的值。文本框的Multiline属性也是初次接触，值为True时，可以在文本框中输入多行文 本，

5、值为False时，用户不能在文本框中输入多行信息。ScrollBar属性设置是否加上滚动条，值为 0 （None）时，不加滚动条；值为 1 （Horizontal ）时，只加 水平滚动条直为2 （Vertical）时，只加垂直滚动条；值为3 （ Both ）时，既加水平 滚动条又加垂直滚动条。文本框的常用事件有Change事件，当文本框的Text属性值改变时，就会触发文本 框的Change事件。KeyPress事件，当用户从键盘上敲入一个字符时，就会触发文本框的KeyPress事件。（2 ）框架的功能和使用方法是本课的重点。框架的功能是为控件分组。在框架中添 加多个相同的控件就不能用直接在工具

6、箱中双击的办法了，那样创建的控件都是在窗体 上，而不是在框架中。我们可以按住Ctrl键同时单击控件按钮，可以在不重新选择控件的情况下，添加向一类型的多个控件。（3）复选框的功能和使用方法是本课的重点。一组复选框可以同时选择多个选项，有些书中也叫“选择框”或“检查框”。复选框的常用属性就是其Value属性，单选按钮的Value属性在第3课中已经讲过，复选框的Value属性与单选按钮的 Value属性稍有不同，复选框是否被选中也可以从它的Value属性值看出，如其值为1，则其被选中，如其值为0,则没被选中，其值为2，复选框被置于不可选状态（变灰状态）。所以在程序中如果实现复选框未被选中、选中或置不

7、可选状态（变灰状态），就可以为该控件的Value属性值赋值为0、1或2。4） End逐句目有结束、浪”山工刀能。请为“百变文字”的“黑体”和“隶书”两个单选按钮的单击事件添加代码。廿.同 探究，父流展示文字字体为黑体文字字体为隶书Private Sub OptHeiti_Click() Txtinput.FontName = 黑浓End SubPrivate Sub OptLishu_Click()Txtinput.FontName = ”隶书”End Sub四、解 难释 疑，拓 展提 升请为“百变文字”字号组中“ 件添加代码。Private Sub OptSize12_Click()Txti

8、nput.FontSize = 12End SubPrivate Sub OptSize24_Click()Txtinput.FontSize = 24End Sub12”号字和“ 24”号字两个单选按钮的单击事设置字号为12号字设置字号为24号字例1Private Sub Comma nd1_Click()EndEnd SubPrivate Sub Optio n1_Click(l ndex As In teger)Select Case In dexCase 0Textl.FontName =“宋体”，文字字体为“宋体”Case 1Textl.FontName = ”黑体”Case 2Te

9、xtl.FontName =隶书”End SelectEnd Sub 例 2Private Sub Check1_Click(l ndex As In teger)Select Case In dexCase 0Textl.Fo ntBold = Check1(0).Value复选框被选中时，设置文字为粗体；否则为普通字形Case 1Textl.Fontltalic = Check1(1).V alue 复选框被选中时，设置文字为斜体；否则为普通字形End SelectEnd SubPrivate Sub Optio n1_Click(l ndex As In teger)Select Cas

10、e In dexCase 0Textl.FontName =“宋体”文字字体为“宋体”Case 1Textl.FontName = ”黑体”Case 2Textl.FontName = ”隶书”Case 3Textl.Fo ntSize = 9Case 4Textl.Fo ntSize = *12Case 5Textl.Fo ntSize = 24”End SelectEnd SubPrivate Sub Comma nd1_Click （）EndEnd Sub五、达1 .编写如图6.1所示的课程表程序。标检 测，归 纳总 结图6.1课程表的程序界面(1) 控件对象：在窗体上添加1个标签、包含

11、17个单选按钮的控件数组和包 含4个复选框的控件数组。(2) 属性设置表表6-1属性设置表对象属性名属性值Forml （窗体 1）Capti on课表Label 1 （标签框）Capti on空Optio nBott on1（单选按钮1控 件数组）Index 0,3Capti on星期一Framel （框架Capti on字体Optio nBott on1Capti on宋体(单选按钮1控 件数组)Index 4,7Frame2(框架 2)Capti on字号Optio nBott on1(单选按钮1控 件数组)Index 8,11Capti on9Frame3(框架 3)Capti on颜色

12、Optio nBott on1(单选按钮1控 件数组)Index 12,15Capti on红Frame4(框架 4)Capti on字形CheckBoxI (复选框1控件数组)Index 0,3Capti on粗体(3) 程序代码Private Sub Check1_Click(l ndex As In teger)Label!.Fo ntBold = Checkl (0).Value 粗体Labell .Fo mltalic = Checkl (1).Value 倾斜Labell .Fo ntll nderli ne = Checkl .Value 卜划线Labell .F on tStr

13、ikethru = Checkl (3).Value 删除线End SubPrivate Sub Optio n1_Click(l ndex As In teger) Select Case In dexCaseCase 4 Case o.CaseCase A .CaseCase o. Case -7.CaseLabell .Caption =Labell .Caption =Labell .Caption =Labell .Caption =Labell .Caption =Labell .Fo nt =Labell .Fo nt =Labell .Fo nt =Labell .Fo nt

14、=语文数学体育 数学语文英语 数学英语地理 英语语文数学 数学英语语文宋体”黑体”幼圆”隶书”英语化学音乐”物理信息技术班会 体育美术物理” 化学政治历史” 化学生物物理”141620=RGB(255, 0, 0), =RGB(0, 255, OY=RGB(0, 0, 255),红色 绿色蓝色Case 9: Labell .Fo ntSize = 9Case 10: Labell .Fo ntSizeCase 11: Labell.Fo ntSizeCase 12: Labell.Fo ntSizeCase 13: Labell .ForeColorCase 14: Labell .ForeColorCase 15: Labell .ForeColorCase 16: Labell.ForeColor = RGB(0, 0, 0),黑色End SelectEnd Sub教学反 思 （对重难点 和规律 方法的 总结