嫌啰嗦的，直接从11分30秒开始看
今天学习了刘金玉老师零基础VB教程的第52期，学习的主要内容是赛马游戏开发。
1.思路：利用时钟控件，通过动态加载图片实现赛马的奔跑效果，通过随机增加frame控件左边的距离实现电脑赛马的移动，通过鼠标单击label控件，增加frame控件左边的距离实现参赛选手赛马的移动。
2.如图新建控件：
3.输入代码：
Dim pcIndex%
Dim plindex%
Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = True
Timer3.Enabled = True
Command1.Enabled = False
Frame1.Left = 0
Frame2.Left = 0
End Sub
Private Sub Form_Load()
End Sub
Private Sub Timer1_Timer()
pcIndex = pcIndex + 1
If pcIndex > 15 Then pcIndex = 1
Image1.Picture = LoadPicture(App.Path & "/马的动态图片/ma" & pcIndex & ".gif")
Randomize
Frame1.Left = Frame1.Left + Rnd 100
End Sub
Private Sub Timer2_Timer()
plindex = plindex + 1
If plindex > 15 Then plindex = 1
Image2.Picture = LoadPicture(App.Path & "/马的动态图片/ma" & pcIndex & ".gif")
End Sub
Private Sub Label1_Click()
Randomize
Frame2.Left = Frame2.Left + Rnd 500
End Sub
Private Sub Timer3_Timer()
If Frame1.Left + Frame1.Width >= Line3.X1 Then
MsgBox "电脑玩家获胜", vbInformation, "通知"
Timer3.Enabled = False
Command1.Enabled = True
Exit Sub
End If
If Frame2.Left + Frame2.Width >= Line3.X1 Then
MsgBox "参赛选手获胜", vbInformation, "通知"
Timer3.Enabled = False
Command1.Enabled = True
Exit Sub
End If
End Sub
4.运行效果详见视频，感谢朋友们的关注支持。有需要程序的朋友可以私信留下邮箱。
