Visual Basic NET ( 2)


14.4.4. - 2


Dim As Short '

Dim As Boolean = False '

Dim As Boolean = False '

Enum '

End Enum

Dim As

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'

__()

.BackColor = Color.Transparent

Me.KeyPreview = True '

txt.ReadOnly = True

End Sub

 

Private Sub ___Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _

Handles __.Click

'

___()

txt.Focus()

End Sub

Sub __()

_(_, RotateFlipType.RotateNoneFlipNone)

_(_, RotateFlipType.Rotate90FlipNone)

_(_, RotateFlipType.Rotate180FlipNone)

_(_, RotateFlipType.Rotate270FlipNone)

End Sub

 

Sub _(ByRef As Bitmap, ByVal As RotateFlipType)

= New Bitmap(_) ' Bitmap

.RotateFlip() '

.MakeTransparent(_) '

End Sub

 

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

_()

_____()

.Left = x : .Top = y ' PictureBox