C# と VB.NET の質問掲示板

わんくま同盟

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト


(過去ログ 86 を表示中)
■50790 / )  Re[9]: シューティングゲームのあたり判定について
□投稿者/ 使い魔 (11回)-(2010/06/17(Thu) 22:02:37)
Private Sub Form1_PreviewKeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.PreviewKeyDownEventArgs) Handles Me.PreviewKeyDown

Select Case e.KeyCode


Case Keys.Up
imgMain.Top = imgMain.Top - 50
Case Keys.Down
imgMain.Top = imgMain.Top + 50
Case Keys.Left
imgMain.Left = imgMain.Left - 50
Case Keys.Right
imgMain.Left = imgMain.Left + 50
Case Keys.Space
k = 0
Do Until b = 1
If TAMA(k).Visible = False Then
TAMA(k).Visible = True
Me.Timer1.Enabled = True
b = 1
Else
k = k + 1
End If
Loop
b = 0
End Select

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If TAMA(k).Top <= 0 Then
TAMA(k).Enabled = False
TAMA(k).Visible = False
Else
TAMA(k).Top = TAMA(k).Top - 40
End If

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
TAMA(a).Top = TAMA(a).Top -30
End Sub

自力でこんな感じなんですけど。(結構省略して載せました)
わからないのは、(k)と(a)の値を一緒にしたいのですが、それをどうやったらいいのか、ということです。





返信 編集キー/


管理者用

- Child Tree -