Visual Basic NET ( 3)


- 2


For i = 1 To __

_(i) = New cls_

Next i

End Sub

Private Sub _()

For i = 1 To __

_(i)._()

Next i

End Sub

 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

For i = 1 To __

_(i).()

Next i

End Sub

. , , , . cls 22.12.6 , , ):

Public MustInherit Class cls_

Protected

Const _ As Double = 12

Protected

x, y As Double

Protected

dx, dy As Double

Protected MustOverride Sub ____()

Protected

MustOverride Sub ___()

End Class

:

Public Class cls

Inherits

cls_

Private Shared __ As Integer = 0

Private _ As Integer

 

Public Sub New()

__ = __ + 1

_ = __

.pict(_) = New PictureBox

.pict(_).Width = _

.pict(_).Height = _

.pict(_).SizeMode = PictureBoxSizeMode.StretchImage

.pict(_).BackColor = Color.White

.pict(_).Image = Image.FromFile("MOON06.ICO")

.Controls.Add(.pict(_))

.pict(_).BringToFront()

End Sub