Привет всем, вот начал делать игру, научил танчик объезжать ограждение ,но только заданное (танчегг сделал через новый класс). Вот а мне надо чтоб он объезжал все объекты класса лэйбл , как это реализовать?
Вот класс танка:
| Код |
Public Class Tank_pzdc
' Public имя As Object
Dim имага_танка
Dim health
Public tnum = New PictureBox()
Public Sub create_tank(ByVal posx As String, ByVal posy As String, ByVal name As String, ByVal clan As Integer)
Randomize()
If clan = 1 Then
имага_танка = New Bitmap("tank.bmp")
ElseIf clan = 2 Then
имага_танка = New Bitmap("o_tank.bmp")
End If
имага_танка.MakeTransparent(Color.FromArgb(255, 0, 255))
posx += Rnd(666 * 100)
posy += Rnd(666 * 100)
tnum = New PictureBox()
tnum.image = имага_танка
tnum.backcolor = Color.Transparent
tnum.location = New Point(posx + 44, posy + 44)
tnum.size = New Point(44, 44)
tnum.visible = True
tnum.name = name
Form1.Controls.Add(tnum)
End Sub
Public Sub ехать_танку_влево(ByVal имя As Object, ByRef units As Integer)
Dim i
Dim ограждение_поз As Integer
ограждение_поз = Form1.ограждение.Left - Form1.ограждение.Size.Width / 2
For i = 1 To units Step 1
имя.left += 1
If ограждение_поз = имя.left Then
имага_танка.RotateFlip(RotateFlipType.Rotate90FlipNone)
имя.left = имя.left
units = имя.left
имя.top += 4
ехать_танку_вниз(tnum, Form1.ограждение.Top / 2)
End If
' If имя.top < Form1.ограждение.Top Then
'имага_танка.RotateFlip(RotateFlipType.Rotate90FlipY)
' End If
имя.refresh()
Next i
End Sub
Public Sub ехать_танку_вниз(ByVal имя As Object, ByRef units As Integer)
Dim i
Dim ограждение_поз As Integer
ограждение_поз = Form1.ограждение.Top - Form1.ограждение.Size.Height
For i = 1 To units Step 1
имя.top += 1
If ограждение_поз = имя.top Then
имага_танка.RotateFlip(RotateFlipType.Rotate90FlipNone)
имя.top = имя.tops
имя.top += 1
units = имя.left
End If
имя.refresh()
Next i
End Sub
End Class
|
|
