清华大学版信息技术九上 第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! 通过学习请你制作一个具有个人特色的文字编辑程序吧！！！