ПОНЯТНО О Visual Basic NET (том 2)


13.5.5. Занимаемся днем недели


Нам не хочется трудиться, размещая в рамке метку, а потом еще и настраивая ее для дня недели. Замечаем, что она такая же, как для даты. Скопируем ее, как это принято в Windows, щелкнув по ней правой клавишей мыши и выбрав в контекстном меню Copy, а затем щелкнув правой клавишей мыши в рамке Часы и выбрав в контекстном меню Paste.

Даем метке имя Циферблат_дня_недели. Чтобы там появился правильный день недели, нужно выполнить оператор

Циферблат_дня_недели.Text = Format(Now, "dddd")

Раз мы организовали процедуру Смена_даты_и_дня_недели, то нам нет нужды вспоминать, в каких местах проекта оператор должен менять день недели. Вставляем его в эту процедуру:

Sub Смена_даты_и_дня_недели()

        Циферблат_даты.Text = Format(Now, "Long Date")

        Циферблат_дня_недели.Text = Format(Now, "dddd")

End Sub

Итак, часы с датой и днем недели готовы.




Начало  Назад  Вперед



Книжный магазин