Шаг 35 - Метод календаря Refresh

Метод Refresh обновляет изображение календаря.

Синтаксис:

имяЭлемента.Refresh

Метод Refresh использует следующий аргумент:

Пример:

В следующем примере разрешен выбор из поля со списком дня недели, определяющего первый день недели в календаре.

Для его запуска необходимо создать форму, поместить в нее календарь ActiveXCtl0 и поле со списком Combo1 и вставить в модуль следующий код. После этого переключиться в режим формы и нажать кнопку.

' Создание поля со списком.
Private Sub Form_Load()
	Dim cbo As ComboBox

	Set cbo = Me!Combo1
	' Задает вид источника значений.
	cbo.RowSourceType = "Список значений"
	' Задает значения.
	cbo.RowSource = "Воскресенье;Понедельник"
End Sub

Private Sub Combo1_AfterUpdate()
	Dim ctl As Control

	' Возвращает ссылку на календарь.
	Set ctl = Me!ActiveXCtl0
	'Задает для свойства FirstDay значение из поля со списком.
	If Combo1 = "Воскресенье" Then
		' Устанавливает первым днем недели воскресенье.
		ctl.FirstDay = 1
	Else
		' Устанавливает первым днем недели понедельник.
		ctl.FirstDay = 2
	End If
	' Обновляет календарь с помощью метода Refresh.
	ctl.Refresh
End Sub

Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.