如何調用圖片框陣列的所有成員？

我在製作太空入侵者，而且我第一次使用數組，所以我還沒有在課堂上學習它們，所以我很自由地將它們組合起來。如何調用圖片框陣列的所有成員？

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)     Handles FireTimer.Tick 
    Fire.Top = Fire.Top - 7 
    For index = 0 To 26 
     If Me.Fire.Bounds.IntersectsWith(pbxMyEnemies(index).Bounds) Then 
      pbxMyEnemies(index).Visible = False 
      pbxMyEnemies(index).Enabled = False 
      pbxMyEnemies(index).Left = 732 
      pbxMyEnemies(index).Top = 55 
      FireTimer.Enabled = False 
      Fire.Visible = False 
      z = 0 
     ElseIf Me.Fire.Bounds.IntersectsWith(stopper.Bounds) Then 
      z = 0 
     End If 



    Next 
    If pbxMyEnemies().Visible = False Then 
     MessageBox.Show("gotem") 
    End If 

End Sub

在哪裏「如果pbxMyEnemies（）。可見= false，那麼 Messagebox.Show（「gottem」）結束時，如果

是我希望它檢查是否所有的陣列中的圖片框是可見的虛假。我可以這樣做嗎？

來源

2013-03-31 user2229637

如下

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FireTimer.Tick 
    Dim Test As Boolean = True 
    Fire.Top = Fire.Top - 7 
    For index = 0 To 26 
    If Me.Fire.Bounds.IntersectsWith(pbxMyEnemies(index).Bounds) Then 
     pbxMyEnemies(index).Visible = False 
     pbxMyEnemies(index).Enabled = False 
     pbxMyEnemies(index).Left = 732 
     pbxMyEnemies(index).Top = 55 
     FireTimer.Enabled = False 
     Fire.Visible = False 
     z = 0 
    ElseIf Me.Fire.Bounds.IntersectsWith(stopper.Bounds) Then 
     z = 0 
     Test = False 
    End If 
    Next 
    If Test Then 
    MessageBox.Show("gotem") 
    End If 
End Sub

更改您的密碼

來源

2013-04-01 09:19:41 Zeddy

如何調用圖片框陣列的所有成員？

回答

相關問題