Заставка

Программирование на старых и современных языках, а так-же дизайн

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Приложение время на Visual Basic 4.0

Страница: 1

Сообщений 1 страница 2 из 2

1

  • Автор: lexx821
  • Модератор
  • lexx821
  • Приглашений: 0
  • Сообщений: 802
  • Уважение: [+1/-0]
  • Позитив: [+8/-11]
  • Пол: Мужской
  • Последний визит:
    Вс, 1 Дек 2024 09:41:42

Буду программировать на лицензионном Microsoft Visual Basic 4.0. Так выглдяет среда разработки с проектом приложения время Microsoft Visual Basic 4.0:
https://i.ibb.co/ZH0PB5x/clock-vb-13-09-21-10-2023-min.jpg

Так выглядет приложение, запущенное в Windows 3.1:
https://i.ibb.co/b28dFQj/clock-execute-13-00-21-10-2023-2-min.jpg

Вот сам код:

Код:
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()
  Refresh_Time ' Запуск первый раз, чтобы отобразить текущую дату и текущее время
  Me.Timer1.Interval = 1000 'Таймер срабатывает 1 раз в 1 секунду
  Me.Timer1.Enabled = True 'Таймер активирован
End Sub

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

0

2

  • Автор: lexx821
  • Модератор
  • lexx821
  • Приглашений: 0
  • Сообщений: 802
  • Уважение: [+1/-0]
  • Позитив: [+8/-11]
  • Пол: Мужской
  • Последний визит:
    Вс, 1 Дек 2024 09:41:42

Улучшим наш код:

Код:
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 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

0

Страница: 1