module1.vb

来自「VB.NET制作赛车游戏」· VB 代码 · 共 58 行

Module Module1
    Public Sub up_speed(ByVal i As Int16, ByVal car() As PictureBox)
        Dim j As Int16
        For j = 0 To i
            car(j).Top += 7
        Next
    End Sub
    Public Sub down_speed(ByVal i As Int16, ByVal car() As PictureBox)
        Dim j As Int16
        For j = 0 To i
            car(j).Top -= 7
        Next
    End Sub
    Public Sub flash(ByVal sender As PictureBox)
        Static flag% = 1
        If flag = 0 Then
            sender.Visible = False
            flag = 1
        Else
            sender.Visible = True
            flag = 0
        End If
    End Sub
    Public Sub u_outside(ByVal sender As System.Object, ByVal i As Int16, ByVal picture As PictureBox)
        Dim Value As Int32
        Randomize()
        Value = CInt(Int(10 * Rnd()))
        sender.image = picture.Image
        Select Case Value Mod 6
            Case 0 : sender.Left = 75
            Case 1 : sender.Left = 88
            Case 2 : sender.Left = 101
            Case 3 : sender.Left = 114
            Case 4 : sender.Left = 127
            Case 5 : sender.Left = 140
        End Select
    End Sub '冲出上屏幕后的处理
    Public Sub brust(ByVal sender As System.Object, ByVal sender1 As PictureBox, ByVal sender2 As PictureBox, ByVal sender3 As PictureBox, ByVal sender4 As Timer)
        Static time% = 0
        If Not (sender.image Is sender3.Image) Then
            sender4.Enabled = False
        End If
        Select Case time
            Case 0
                sender.Image = sender1.Image
                time = 1
            Case 1
                sender.Image = sender2.Image
                time = 2
            Case 2
                sender.Image = sender3.Image
                sender.top = -1000
                sender.left = 300
                time = 0
        End Select
    End Sub '撞车后爆炸效果处理
End Module