一个行走的例子

shiqy

我做了一个行走的例子,但就是不能饶过方块，你能帮我吗？
Option Explicit
Dim i As Integer
Private Sub form_keydown(keycode As Integer, shift As Integer)
   KeyPreview = True
   If keycode = 37 Then
   Pic.Left = Pic.Left - 100
   ElseIf keycode = 38 Then
   Pic.Top = Pic.Top - 100
   ElseIf keycode = 39 Then
   Pic.Left = Pic.Left + 100
   ElseIf keycode = 40 Then
   Pic.Top = Pic.Top + 100
End If
End Sub
pic 是一个图像框  另外还有一个图像框,动行时pic图像框从这个图像框上面走过去了,你能帮我改改吗? [em16]

psic

非常朴素，纯真的代码……

游戏之家站长

psic: Re:一个行走的例子

非常朴素，纯真的代码……

如果是游戏之家写的就是垃圾，别人写的就是经典。 [em2] [em2]

psic

游戏之家站长: Re: Re:一个行走的例子




如果是游戏之家写的就是垃圾，别人写的就是经典。 [em2] [em2]

LZ的代码确实也要比你的好一点点
至少人家给图像框命了个名
你的话估计后面还带个1，Picture1，呵呵……

咯噔

psic: Re: Re: Re:一个行走的例子



LZ的代码确实也要比你的好一点点
至少人家给图像框命了个名
你的话估计后面还带个1，Picture1，呵呵……

没有，是PICTURE1，全部大写。

shiqy

我学了一周的VB你们干什么笑我,,,,,,,,??????????????

游戏之家站长

psic: Re: Re: Re:一个行走的例子



LZ的代码确实也要比你的好一点点
至少人家给图像框命了个名
你的话估计后面还带个1，Picture1，呵呵……

抱歉！本人现在的游戏不使用除了TIMER以外的任何控件，
就算是TIMER也可以动态生成，甚至不用FORM，我现在不
是2年前的游戏之家，2年前我重新捡起我失去的东西。

游戏之家站长

咯噔: Re: Re: Re: Re:一个行走的例子


没有，是PICTURE1，全部大写。

想证明比我强，拿出你的游戏作品，否则当你是FGP [em2]

陈?

建议楼主还是把程序传上来吧,另外不要打击初学者的积极性,每个人都是这么过来的.

psic

游戏之家站长: Re: Re: Re: Re:一个行走的例子



抱歉！本人现在的游戏不使用除了TIMER以外的任何控件，
就算是TIMER也可以动态生成，甚至不用FORM，我现在不
是2年前的游戏之家，2年前我重新捡起我失去的东西。

花了2年才发现控件可以动态生成？