Visual Basic NET ( 3)


         


.FillEllipse(Brushes.Black, 30, 230, 80, 80) '_
Case "Y"
.FillEllipse(Brushes.Black, 30, 30, 80, 80) '_
.FillEllipse(Brushes.Yellow, 30, 130, 80, 80) '_
.FillEllipse(Brushes.Black, 30, 230, 80, 80) '_
Case "G"
.FillEllipse(Brushes.Black, 30, 30, 80, 80) '_
.FillEllipse(Brushes.Black, 30, 130, 80, 80) '_
.FillEllipse(Brushes.Green, 30, 230, 80, 80) '_
Case Else
MsgBox(" R, Y G")
End Select
End Sub
114.
PictureBox. .
Dim _ As Boolean = False '
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
.Left = .Left - 1 '
If Not _ Then Exit Sub ' ,
.Top = .Top - 3 '
' :
' , :
If Math.Abs(.Top - .Top) < 20 And Math.Abs(.Left - .Left) < 40 Then
Timer1.Enabled = False
MsgBox("!")
End If
End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles MyBase.KeyDown
_ = True
End Sub
115-1.
Form1_Load .Visible = False, ___Click .Visible = True.

    





Forekc.ru
, , , , , , , , , ,