清华大学版信息技术九上 第6课 百变文字——单选框、复选框和框架 课件（共9张ppt）

课件9张PPT。百变文字单选框、复选框和框架前情回顾用VB设计简单的用户界面 标签框和命令按钮的灵活运用 基本动作代码的编写课时目标制作控制字体变化的程序 完善百遍文字程序制作字幕显示屏设计用户界面编写事件过程代码Rem单选按钮1事件: Private Sub Option1_Click( ) Label1.FontName=“宋体” End Sub Rem单选按钮2事件: Private Sub Option2_Click( ) Label1.FontName=“黑体” End Sub Rem单选按钮3事件: Private Sub Option3_Click( ) Label1.FontName=“隶书” End Sub Rem”退出”按钮事件: Private Command1_Click( ) End End Sub 完善设计设计用户界面： 编写事件过程代码Rem字号框架内单选按钮4事件: Private Sub Option4_Click( ) Label1.FontSize=9 End Sub Rem字号框架内单选按钮5事件: Private Sub Option5_Click( ) Label1.FontSize=12 End Sub Rem字号框架内单选按钮6事件: Private Sub Option6_Click( ) Label1.FontSize=24 End Sub Rem复选框“粗体”单击事件： Private Sub Check1_Click() Label1.FontBold=Check1.Value End Sub Rem复选框“斜体”单击事件： Private Sub Check2_Click() Label1.FontItalic=Check2.Value End Sub 设置文字为粗体字形设置文字为斜体字形编写事件过程代码Rem切换图片: Private SubCommand1_Click() Static b As Boolean b=Not(b) If b Then Image1.Picture=LoadPicture(“d:第二单元、图文并茂天安门.jpg”) Command1.Caption=“显示世博会图片” Else Image1.Picture=LoadPicture (“d:第二单元、图文并茂世博会.jpg”) Command1.Caption=“显示世博会图片” End If End Sub 调入天安门图片命令按钮1的标识调入世博会图片命令按钮1的标识It’s your time! 通过学习请你制作一个具有个人特色的文字编辑程序吧！！！