русский
Germany.ruGroups → Архив Досок→ Tagebuch der schwerbehinderten Person

Часики тик-так 10.02.2024

11.02.24 16:09
Re: Часики тик-так 10.02.2024
 
uscheswoi_82 коренной житель
uscheswoi_82
in Antwort uscheswoi_82 10.02.24 09:54, Zuletzt geändert 11.02.24 17:12 (uscheswoi_82)

Пока болел ковидом в прошлом году осенью (если честно чуть не умер от ковида), то сделал часы на Visual Basic 4.0 для Windows 3.11, вот сам код:

Private Declare Sub SetWindowPos Lib "User" (ByVal hWnd As Integer, ByVal hWndInsertAfter As Integer, 
ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer)
Private Const HWND_TOPMOST = -1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1

'Отображает текущую дату и время
Private Sub Refresh_Time()
  Me.Label1.Caption = Format(Now, "HH:mm:ss") 'Отобразить текущее время
  Me.Caption = "Часы " & Format(Now, "dd.mm.yyyy") 'Отобразить текущую дату
End Sub

Private Sub Form_Load()
  SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE 'Поверх всех окон
  Refresh_Time ' Запуск первый раз, чтобы отобразить текущую дату и текущее время
  Me.Timer1.Interval = 1000 'Таймер срабатывает 1 раз в 1 секунду
  Me.Timer1.Enabled = True 'Таймер активирован
End Sub

Private Sub Timer1_Timer()
  Refresh_Time 'чтобы отобразить текущую дату и текущее время
End Sub


Так выглядет форма сделаная в Visual Basic 4.0:



Результат работы таких часов в Windows 3.1:



Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Tagebuch der schwerbehinderten Person
 

Sprung zu