求达人回答：小游戏捕鱼达人多怎么样？

来源：蜘蛛抓取(WebSpider) 时间：2015-08-09 03:21 标签： 现金游戏捕鱼达人
求达人帮忙看看这个小游戏是怎么做的~_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：98,370贴子：
求达人帮忙看看这个小游戏是怎么做的~收藏
Dim x_step As Integer Dim y_step As Integer
Private Sub command1_Click()
If Timer1.Enabled = True Then
Timer1.Enabled = False Else
Timer1.Enabled = True End If
If command1.Caption = "暂停" Then
command1.Caption = "继续"
command1.Caption = "暂停"
Private Sub Form_Load() x_step = 200 y_step = 200
Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 37 Then
If Line1.X1 & 0 Then
Line1.X1 = 0: Line1.X2 = 2000
Line1.X1 = Line1.X1 - 100: Line1.X2 = Line1.X2 - 100
If KeyCode = 39 Then
If Line1.X1 & Picture1.Width Then
Line1.X1 = Picture1.Width - 2000: line2.X2 = Picture.Width
Line1.X1 = Line1.X1 + 100: Line1.X2 = Line1.X2 + 100
Private Sub Timer1_Timer()
If Shape1.Top & 0 Then
Shape1.Top = 0: y_step = -y_step
If Shape1.Left & 0 Then
Shape1.Left = 0
x_step = -x_step
If Shape1.Left & Picture1.Width - Shape1.Width Then
Shape1.Left = Picture1.Width - Shape1.Width
x_step = -x_step
If Shape1.Left &= Line1.X1 And Shape1.Left &= Line1.X2 And Shape1.Top &= Line1.Y1 - Shape1.Height Then
Shape1.Top = Line1.Y1 - Shape1.Height
y_step = -y_step * 1.01
x_step = x_step * 1.01
Label2.Caption = Label2.Caption + 1
Shape1.Top = Shape1.Top + y_step
Shape1.Left = Shape1.Left + x_step
If Shape1.Top &= Picture1.Height - Shape1.Height Then
MsgBox "游戏结束"
command1.Caption = "开始"
Timer1.Enabled = False
Shape1.Top = 1000
Label2.Caption = 0
苹果刷机越狱助手哪个好？爱思助手支持一键刷机越狱，果粉最爱助手工具。
原来是这样做的啊!
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或

我要回帖

更多关于 现金游戏捕鱼达人 的文章

 

随机推荐