Visual Basic NET ( 3)


- 3


Dim i As Integer

For i = 1 To _

(i).() '

Next i

' , 1:

_.Text = _.Text + 1

If __ = 0 Then Timer1.Enabled = False '

End Sub

 

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) _

Handles MyBase.KeyDown

.__(e)

End Sub

cls .

cls:

Public Class cls

Private _ As Integer

Private Shared __ As Integer = 0

Private Const _ As Double = 12

Private x, y As Double '

Private dx, dy As Double '

 

Public Sub New()

__ = __ + 1

_ = __

' - :

.pict(_) = New PictureBox

' :

.pict(_).Width = _

.pict(_).Height = _

.pict(_).SizeMode = PictureBoxSizeMode.StretchImage

' PictureBox :

.pict(_).BackColor = Color.White

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

.Controls.Add(.pict(_)) '

.pict(_).BringToFront() '

End Sub

Public Sub _()

Const _ As Double = 1.8 '