Visual Basic NET ( 2)



13.5.9. -


-. , , _, . , , .

Public Class Form1

Inherits System.Windows.Forms.Form

Windows Form Designer generated code

Enum

_

End Enum

Dim _ As

Dim _ As Boolean

Dim __ As Double

Dim ___ As Double

Dim ___ As Double

'

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

_()

_()

____()

_()

End Sub

'

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

Dim __ As String

__ = Format(Now, "HH:mm:ss")

_.Text = __

If __ = "00:00:00" Then ____()

If _ And __ = _.Text Then _()

End Sub

Sub ____()

_.Text = Format(Now, "Long Date")

__.Text = Format(Now, "dddd")

End Sub

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

ByVal e As System.EventArgs) Handles ___.Click

If _ Then _() Else _()

End Sub