Некоторые методы формы

Close () – совсем закрыть форму

Hide () – скрыть форму

Show () – показать форму

ShowDialog () – показать форму в модальном режиме

Focus () – передать фокус компоненту

Работа с временем и датой в Visual Basic

Для выполнения операций с датой и временем в VB используется тип данных Date.

Единица измерение – день

Один час 1/24 дня, а секунда 1/86400 дня. Неделя будет представлена цифрой 7.

Формат даты: м/ч/г

Dim b as date

D=#11/15/2008 11:14:00 pm#

MsgBox(Cstr(d))

Одно значение занимает 8байт.

Дата указывается в ##

Тип Date можно преобразовать к большинству любому типу данных.

Элемент управления таймер – этот элемент позволяет отслеживать время, вызываемое таймером событие называется Tick.

Процедура обработки этого события Tick: TimerName_Tick()

Имеется свойство интервал – указывается время между наступлениями события Tick это время указывается в миллисекундах.

Максимальное значение 65535.

Таймер имеет 2 метода – Start и Stop

После запуска программы таймер будет отсчитывать 5 сек и будет выдавать сообщение после которого приложение будет закрываться.

Timer: Interval – 5000

Enabled – True

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1_Tick

Msgbox(“прошло 5 секунд. Приложение будет закрыто”)

Функции для получения текущего времени и даты

Хотя таймер можно запрограммировать что бы он через определенные промежутки времени выдавал события Tick сам он не знает настоящего истинного компьютерного времени. Для определения текущего времени необходимо обращаться к системным часам ПК.

Today() – возвращает текущую системную дату

TimeOfDay()- текущее системное время

Now() – время и дата

Пример: Dim D As Date

D=Today

Msgbox (cstr(D))

Программа часы:

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

If Me.WindowState = vbNormal Then

lblTime.Text = CStr(TimeOfDay)

Me.Text = Format(Today, "long Date")

Else

Me.Text = CStr(TimerOfDay)

End If

End Sub

Функция Format – позволяет управлять отображением строки чаще всего она используется для форматирования даты/времени и числовых значений.

Синтаксис: mystring$ = Format(expression, style)

Mystring$ - возвращает строковое значение

Expression – любое выражение, то которое форматируем

Style – строка-шаблон, с помощью которой определяется вид строки результата.

При работе с функцией Format основным является умение работать с параметром style, который определяет, как исходное выражение будет отформатировано.

Форматирование даты

Существуют предопределенные шаблоны для форматирования даты/времени:

Format_string	Пример использования	результат
”long Date”	Format(MyDate, ”long Date”)	23 ноября 2005 г.
”Medium Date”	Format(MyDate, ”Medium Date”)	23-ноя-05
”Short Date”	Format(MyDate, ”Short Date”)	23.11.05

Dim teststr As String

teststr = Format(Now, "long Time")

MsgBox(teststr)