1、形态变化
1.gif
2.gif
逐帧动画
2、位置变化 让小兔子向左运动，可以每间隔一定时间让兔子图片的Left
属性减少。 imgrabbit.Left = imgrabbit.Left - 200
逐帧动画
3、速度变化 要改变兔子的移动速度，我们可以通过改变频率来实现。
就是让它在相同的周期内多跑几次，这个可以通过Timer控件来 实现。
7.人生的累对于大多数人来说，都是不可避免的。与其逃避负重，不如主动迎战，这样起码，我们还能掌握主动权，有跟命运叫板的锐气。 11.每一日你所付出的代价都比前一日高，因为你的生命又消短了一天，所以每一日你都要更积极。 29.只要下定决心克服恐惧，便几乎能克服任何恐惧。因为，请记住，除了在脑海中，恐惧无处藏身。 67.逆风的方向，更适合飞翔。 40.坚强，不是面对悲伤不流一滴泪，而是擦干眼泪后微笑着面对以后的生活。 4. 懦弱的人只会裹足不前，莽撞的人只能引为烧身，只有真正敢的人才能所向披靡。 90.没有过不去的坎，只要你还活着。 73.十年后所有难过都是下酒菜。 56.如果你真心选择去做一件事，那么全世界都是帮助你的。 83.掌握坚持的人是成功的，是永不言弃的。 92.让人失去理智的，常常是外界的诱惑；让人耗尽心力的，往往是自己的欲望。 68.你若花开，蝴蝶自来。 2.人生有两条路，一条需要用心走，叫做梦想；一条需要用脚走，叫做现实。很多时候我们总是低估了自己，对自己不够狠，从而错过了遇到一个更加优秀的自己。逼自己一把，很多事并不需要 多高的智商，仅仅需要你的一份坚持，一个认真的态度，一颗迎难而上的决心。
Private Sub tmrrun_Timer() If a = 1 Then imgrabbit.Picture = LoadPicture(App.Path & "\pic\1.gif") a=2 Else imgrabbit.Picture = LoadPicture(App.Path & "\pic\2.gif") a=1 End If imgrabbit.Left = imgrabbit.Left - 200 If imgrabbit.Left < 0 Then imgrabbit.Left = Form1.Width End If End Sub
Private Sub optmid_Click(Index As Integer) tmrrun.Interval = 300 End Sub
Private Sub optslow_Click(Index As Integer) tmrrun.Interval = 500 End Sub
代码分析
Private Sub cmdstart_Click(Index As Integer) tmrrun.Enabled = True End Sub
Private Sub Form_Load() a=1 End Sub
代码分析
Private Sub optfast_Click(Index As Integer) tmrrun.Interval = 100 End Sub
五、课堂任务
课堂任务
制作一个如下图的”奔跑吧！兔子”程序。
图片素材
1.gif
2.gif
六、课堂小结
课堂小结
1 、 Timer 控 件 有 两 个 重 要 的 属 性 ， Interval 属 性 控 制 快 慢 ， Enabled属性决定是否触发Timer事件。 2、OptionButton控件设置的选项组用户只能选择其中一项。 3、分支结构的“条件” 成立时，执行语句组1，否则执行语句 组2。
第二章 第四节
第二章 第四节 逐帧动画
1、理解逐帧动画的原理
2、掌握Timer控件和OptionButton
学习目标 控件的运用 3、掌握分支结构的运用
逐帧动画
逐帧动画是利用视觉暂留原理，在“连续的关键帧”中分 解动画动作，也就是在时间轴的每帧上逐个地绘制不同的内容 ，使其连续播放而成动画。
逐帧动画
分支结构
If 条件 then 语句组1
Else 语句组2
End If
是 语句组1
条件
否 语句组2
分支结构
是
否
a=1
片
a=2
a=1
代码分析
Dim a As Integer
Private Sub cmdstop_Click(Index As Integer) tmrrun.Enabled = False End Sub
二、Timer控件
Timer控件
Timer控件有两个重要的属性：Interval和Enabled。 【Interval】属性是以千分之一秒为单位制定Timer事件之间的 间隔。值越大，频率就越慢。 【Enabled】属性值为ture时候才会触发Timer事件，属性值为 false的时候停止执行Timer事件。
三、OptionButton 控件
OptionButton控件
OptionButton控件 OptionButton控件的图标为 ，作用是显示一个可以打开或者 关闭的选项。我们通常设置一个选项组，用OptionButton来显 示选项，每个选项代表一种选择，用户只能选择其中一项。 例如：
四、分支结构
53.坚持最难，但成果也最大！ 23.时光不回头，当下才重要。 15.山路曲折盘旋，但毕竟朝着顶峰延伸。 2.不要认为自己比别人做得好，即便你很出色。 15.山路曲折盘旋，但毕竟朝着顶峰延伸。 32.萤火虫的光点虽然微弱，但亮着便是向黑暗挑战。 91.树苗如果因为怕痛而拒绝修剪,那就永远不会成材。