如何使用另一个Sub中的一个变量?

时间:2019-08-05 20:49:11

标签: vb.net variables pong

对不起,我的英语不好。这不是我的母语。 很抱歉,如果代码中的格式格式有误。

我对编程还很陌生,我想使用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

1 个答案:

答案 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