信息技术八年级下册第四节 逐帧动画课文ppt课件

这是一份信息技术八年级下册第四节 逐帧动画课文ppt课件，共21页。PPT课件主要包含了Timer控件，分支结构，语句组1，语句组2，载入第一张图片，载入第二张图片，课堂任务，课堂小结等内容，欢迎下载使用。
1、理解逐帧动画的原理
2、掌握Timer控件和OptinButtn控件的运用
3、掌握分支结构的运用
第二章 第四节 逐帧动画
三、OptinButtn 控件
Dim a As IntegerPrivate Sub cmdstp_Click(Index As Integer)tmrrun.Enabled = FalseEnd SubPrivate Sub cmdstart_Click(Index As Integer)tmrrun.Enabled = TrueEnd SubPrivate Sub Frm_Lad()a = 1End Sub
Private Sub ptfast_Click(Index As Integer)tmrrun.Interval = 100End SubPrivate Sub ptmid_Click(Index As Integer)tmrrun.Interval = 300End SubPrivate Sub ptslw_Click(Index As Integer)tmrrun.Interval = 500End Sub
Private Sub tmrrun_Timer()If a = 1 Thenimgrabbit.Picture = LadPicture(App.Path & "\pic\1.gif")a = 2Elseimgrabbit.Picture = LadPicture(App.Path & "\pic\2.gif")a = 1End Ifimgrabbit.Left = imgrabbit.Left - 200If imgrabbit.Left < 0 Thenimgrabbit.Left = Frm1.WidthEnd IfEnd Sub