各位大哥，救救我吧！！飞行棋飞不起来啦！！！

我做了一个飞行棋的小游戏，但是当棋子走到特定的一点后该走的不走了，例如：  
      当棋子走到第20号个时触发事件a，使棋子继续向前走3步，可我用if语句判断后没有反应，在下一次电击控件后才运行，那位大哥告诉我为什么啊！~要什么给什么~`（能力范围内的）  
   
  问题点数：20、回复次数：4Top

1 楼aohan（aohan）回复于 2004-12-02 20:22:42 得分 10

呵呵，你光说这点大伙没法帮你的，给出你出问题地方的具体代码吧Top

2 楼caimps（苦乐斋主人）回复于 2004-12-02 23:37:10 得分 10

我喜欢玩飞行棋  
  可你问的太笼统了吧，没法帮忙啊  
  贴点代码或结构什么的Top

3 楼mingday（小山）回复于 2004-12-03 08:22:53 得分 0

呵呵Top

4 楼jby0309（菜鸟一号）回复于 2004-12-16 11:23:24 得分 0

这是我的代码  
  大哥们看看不执行的地方怎么办啊    
   
   
   
   
  Private   Sub   Command1_Click()  
  Static   n   As   Integer  
  a   =   Int(Rnd   *   6)   +   1  
   
  Debug.Print   n,   a  
   
  'Image1(n   +   a).Picture   =   Image1(n).Picture  
  Image1(n   +   a).Picture   =   LoadPicture("C:\Documents   and   Settings\ji\桌面\纪\PIC\1.bmp")  
  Image1(n).Picture   =   LoadPicture()  
  n   =   n   +   a  
  If   n   +   a   =   20   Then  
  Image1(n   +   a   +   3)   =   Image1(n)     '此处不执行  
  Image1(n).Picture   =   LoadPicture()  
  End   If  
  Text2.Text   =   a  
  If   n   +   a   >=   141   Then   Form2.Show:   Form1.Hide  
  Command1.Visible   =   False  
  Command2.Visible   =   True  
   
   
  End   Sub  
   
  Private   Sub   Command2_Click()  
  Static   m   As   Integer  
  b   =   Int(Rnd   *   6)   +   1  
    Text1.Text   =   b  
  Debug.Print   m,   b  
  Image1(m   +   b).Picture   =   LoadPicture("C:\Documents   and   Settings\ji\桌面\纪\PIC\5.gif")  
  'Image1(m   +   b).Picture   =   LoadPicture(App.Path   &   "PIC\bronzegroup09.jpg")  
   
  'Image1(m   +   b).Picture   =   Image1(m).Picture  
   
  Image1(m).Picture   =   LoadPicture()  
  m   =   m   +   b  
  'If   m   +   b   =   20   Then  
  'Image1(m   +   b   +   3)   =   Image1(m)     '此处不执行  
  'Image1(m).Picture   =   LoadPicture()  
  'End   If  
   
  'Call   aa  
  If   m   +   a   >=   141   Then   Form2.Show:   Form1.Hide:   Form2.Text1.Text   =   "fasdfsdaf"  
    If   Image1(6).Picture   =   LoadPicture("C:\Documents   and   Settings\ji\桌面\纪\PIC\5.gif")   Then   Image1(6   +   11).Picture   =   LoadPicture("C:\Documents   and   Settings\ji\桌面\纪\PIC\5.gif")  
  Command1.Visible   =   True  
  Command2.Visible   =   False  
   
  End   Sub  
   
  Private   Sub   Command3_Click()  
  Dim   c   As   Integer  
  c   =   Text3.Text  
  If   c   =   "1"   Then   m   =   141  
  End   Sub  
   
  Private   Sub   Form_Load()  
  'm1.FileName   =   "D:\1.mp3"  
  'm1.Play  
   
  'If   m   +   b   =   20   Then                                                     执行不正确  
  'Image1(m   +   b   +   3)   =   Image1(m)     '此处不执行  
  'Image1(m).Picture   =   LoadPicture()  
  'End   If  
  'If   m   =   1   Or   m   =   2   Or   m   =   3   Or   m   =   4   Or   m   =   5   Or   m   =   6   Or   m   =   7   Then   Image1(m   +   11)   =   LoadPicture("C:\Documents   and   Settings\ji\桌面\纪\PIC\5.gif")  
  Command1.Visible   =   True  
  Command2.Visible   =   False  
   
   
   
   
   
  End   Sub  
   
   
   
  Public   Sub   aa()  
  If   m   +   b   =   1   Or   m   +   b   =   2   Or   m   +   b   =   3   Or   m   +   b   =   4   Or   m   +   b   =   5   Or   m   +   b   =   6   Or   m   +   b   =   7   Then   Image1(n   +   3)   =   Image1(n)  
   
   
   
   
   
   
   
   
  End   Sub  
   
   
   
   
   
   
  Top

相关问题

• 代码
• loadpicture
• 大哥
• 飞行棋
• picture
• 棋子
• pic
• image
• text

• 帖主：jby0309
• aohan
• caimps

• Visual Basic类图书
• Visual Basic类源码下载