Visual Basic NET ( 2)


13.5.9. - - 2


 

Sub _()

_ = True

_.Text = " "

___.Text = " "

End Sub

 

Sub _()

_ = False

_.Text = " "

___.Text = " "

End Sub

 

Sub _()

.AutoStart = False

.PlayCount = 0

.FileName = "Mozart's Symphony No. 40.RMI"

End Sub

 

Sub _()

Me.WindowState = FormWindowState.Maximized

.CurrentPosition = 0

.Play()

End Sub

 

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

ByVal e As System.EventArgs) Handles __.Click

.Stop()

End Sub

 

'

 

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

Handles _.Tick

Dim __ As Date

Const As Date = #12:00:00 AM#

__ = DateAndTime.Timer - ___ + _

___

__ = .AddSeconds(__)

_.Text = Format(__, "mm:ss.ff")

End Sub

 

Private Sub ____Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles ___.Click

If _ <> _. Then _() _

Else _()

End Sub