对不起,我的英语不好。这不是我的母语。 很抱歉,如果代码中的格式格式有误。
我对编程还很陌生,我想使用vb.Net制作Pong游戏。 游戏开始时,屏幕上有两个按钮,您可以选择是要独自玩还是与其他人一起玩。
单击其中一个按钮时,布尔变量将更改。我要在移动拨片时使用此变量。 (如果选择一个播放器,则不能移动一个球拍并自动移动它。)所有变量都在全局创建。希望您了解我的问题。我找不到我能理解的解决方案。
Public Sub Oneplayer_Click(sender As Object, e As EventArgs) Handles Oneplayer.Click
oneplayer = True
End Sub
Public Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If oneplayer = True Then
player1Newpositive = player1.Location.Y + 1
player1Newnegative = player1.Location.Y - 1
If player1.Location.Y + 75 > ball.Location.Y Then
player1.Location = New Point(player1.Location.X, player1Newnegative)
ElsIf player1.Location.Y + 75 < ball.Location.Y Then
player1.Location = New Point(player1.Location.X, player1Newpositive)
End If
End If
End Sub
答案 0 :(得分:0)
例如,在下面的Form1
中,变量onePlayer
是在类级别声明的,因此任何Sub
都可以访问它。
Public Class Form1
Private onePlayer As Boolean
Public Sub Oneplayer_Click(sender As Object, e As EventArgs) Handles Oneplayer.Click
oneplayer = True
End Sub
Public Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If onePlayer = True Then
'...
End If
End Sub
End Class