![]() |
![]() ![]() v.5.2011.12.30 |
Хитрый стрелок экранов, Добавить функцию? Без проблем! ;-) |
|
Visual Basic 5.0/6.0 - Даты и времяВсе примеры / Даты и времяВывод времени и дня недели на форму
Автор: Петр (Skript) Пономарев | добавлено: 06.03.2010, 13:24 | просмотров: 3876 (2+) | комментариев: 0 | рейтинг:
Программа выводит на форму время и сообщает день недели. В примере используются методы рисования.
![]() КодPrivate Sub Form_Paint() Dim h As Integer Dim st As String h = Hour(Time) Select Case h Case 0 To 4 st = "Доброй ночи !" Case 5 To 12 st = "Доброе утро !" Case 13 To 16 st = "Добрый день !" Case 17 To 23 st = "Добрый вечер !" End Select Font.Name = "Times New Roman" Font.Size = 28 ForeColor = vbYellow CurrentX = ScaleWidth / 2 - TextWidth(st) / 2 CurrentY = ScaleHeight / 2 - TextHeight(st) Print st Font.Name = "Tahoma" Font.Size = 12 ForeColor = vbGreen st = Format(Now, "Сегодня d mmmm, dddd") CurrentX = ScaleWidth / 2 - TextWidth(st) / 2 Print st End Sub
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах. Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Все похожие примеры (всего: 27)
Добавлять комментарии могут только зарегистрированные пользователи сайта. Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации ![]() Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь. Нет комментариев... |
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
|
|