Как на Form разместить часы

[Андрей Васюта]

Как на Form разместить часы , чтобы они ишли как обычные часы в системном лотке

[GSerg]

Это шютка, да?

private sub timer1_timer
me.cls
me.? time$
end sub

[Faust]

Ну, можно сделать где-то так:

Код: Выделить всё

Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Private Type SYSTEMTIME
    wYear As Integer
    wMonth As Integer
    wDayOfWeek As Integer
    wDay As Integer
    wHour As Integer
    wMinute As Integer
    wSecond As Integer
    wMilliseconds As Integer
End Type

Private Sub TProcedure()
Dim T As SYSTEMTIME
GetLocalTime T
Me.Cls
Me.Current X=0
Me.CurrentY=0
Me.Print  "Tempus fugit... " & ":" & T.wHour & ":" & T.wMinute & ":" & T.wSecond
End Sub

Private Sub Form_Load()
Me.AutoRedraw=True
SetTimer Me.hwnd, 0, 1000, AddressOf TProcedure
End Sub

Private Sub Form_Unload(Cancel As Integer)
KillTimer Me.hwnd, 0
End Sub


[Андрей Васюта]

Я сделал проще
private sub timer1_timer
TextBox1.Text= time$
end sub