九上第6课百变文字——单选框、复选框和框架（共9张PPT）.ppt

*百变文字单选框、复选框和框架前情回顾用VB设计简单的用户界面标签框和命令按钮的灵活运用基本动作代码的编写课时目标制作控制字体变化的程序完善百遍文字程序制作字幕显示屏对象属性名属性值属性说明Form1Caption百变文字窗体的标识Label1Caption美好生活创意无限标签框的标识BackColor白色背景颜色BorderStyle1-FixedSingle边框样式Font宋体2号字字体字号设置Label2Caption字体标签框的标识Option1Caption宋体单选按钮标识Option2Caption黑体单选按钮标识Option3Caption隶书单选按钮标识Command1Caption退出命令按钮标识设计用户界面编写事件过程代码Rem单选按钮1事件:PrivateSubOption1_Click() Label1.FontName=“宋体”EndSubRem单选按钮2事件:PrivateSubOption2_Click() Label1.FontName=“黑体”EndSubRem单选按钮3事件:PrivateSubOption3_Click() Label1.FontName=“隶书”EndSubRem”退出”按钮事件:PrivateCommand1_Click() EndEndSub完善设计对象属性名属性值属性说明Frame1Caption字体字体框架OptionButton1Caption宋体OptionButton2Caption黑体OptionButton3Caption隶书Frame2Caption字号字号框架OptionButton4Caption9OptionButton5Caption12OptionButton6Caption24Frame3Caption字形字形框架CheckBox1Caption粗体CheckBox2Caption斜体设计用户界面：编写事件过程代码Rem字号框架内单选按钮4事件:PrivateSubOption4_Click() Label1.FontSize=9EndSubRem字号框架内单选按钮5事件:PrivateSubOption5_Click() Label1.FontSize=12EndSubRem字号框架内单选按钮6事件:PrivateSubOption6_Click() Label1.FontSize=24EndSubRem复选框“粗体”单击事件：PrivateSubCheck1_Click() Label1.FontBold=Check1.ValueEndSubRem复选框“斜体”单击事件：PrivateSubCheck2_Click()Label1.FontItalic=Check2.ValueEndSub设置文字为粗体字形设置文字为斜体字形编写事件过程代码Rem切换图片:PrivateSubCommand1_Click() StaticbAsBoolean b=Not(b) IfbThen Image1.Picture=LoadPicture(“d:\第二单元、图文并茂\天安门.jpg”) Command1.Caption=“显示世博会图片” Else Image1.Picture=LoadPicture(“d:\第二单元、图文并茂\世博会.jpg”) Command1.Caption=“显示世博会图片” EndIfEndSub调入天安门图片命令按钮1的标识调入世博会图片命令按钮1的标识It’syourtime! 通过学习请你制作一个具有个人特色的文字编辑程序吧！！！下课！同学们再见！授课老师：时间：2024年9月1日2023课件2024课件下课！同学们再见！授课老师：时间：2024年9月1日*