2011年度计算机等级考试二级VB复习指导(41)

　　双击计时器控件，打开【代码】窗口，编写计时器的Timer事件过程如下：

　　Private Sub Timer1_Timer()

　　If Ima.Left<=Pic.width Then

　　Ima.Move Ima.Left+100

　　Else

　　Ima.left=-400

　　End If

　　End Sub

　　在该段代码中，使用了一个If语句来判断图片的位置。如果图片还没有移动到图片框的右端，则继续右移;如果图片移出了图片框的右端，则将图片的位置调整到图片框的左断。

　　为了能使【开始】按钮和【停止】按钮可以控制图片的移动，只需使用它们来控制计时器的有效性就可以了(因为控制图片移动的代码在计时器的Timer事件过程中).如果计时器有效(Enabled属性为True),则图片不断移动，如果计时器无效(Enabled属性为False),则图片停止移动。

　　编写【开始】与【停止】按钮的Click事件过程如下：

　　Private Sub ComStart_Click()

　　Timerl.Enabled=Ture

　　End Sub

　　Private Sub ComStop_Click()

　　Timerl.Enabled.False

　　End Sub

　　这样，一个简单的飞机飞行动画就制作完毕，读者可以通过更改Timer事件过程，来使飞机做更复杂的运动。

　　2010年9月计算机等级考试成绩查询时间汇总

　　2011计算机等级考试二级VB考点及习题汇总

　　2011年计算机等级考试二级VB复习指导汇总

　　2011年上半年计算机等级考试报名时间汇总