Свойства и событие Init формы в Visual FoxPro

« Назад

В окне редактирования свойств формы изменены ее 6 свойств; одно свойство (массив FormArray) добавлено в форму программно (табл. 6.25).

Таблица 6.25

Новое и измененные свойства формы

Свойства	Значение
Caption – заголовок формы	Двумерный массив в форме
FormArray – двумерный массив (добавленное свойство)	См. обработчик события Click кнопки "Заполнить"
Height и Width – соответственно высота и ширина формы	200 и 350
Left и Top – соответственно x- и y-координаты левого верхнего угла формы в физической системе координат	60 и 30
Name – имя формы	ArrayShow

В обработчике события Init, возникающего при создании объекта, в форму добавляется новое свойство – двумерный массив FormArray. Это свойство указывается в качестве источника данных (свойство RowSource) списка ListArray.

&& Обработчик события Init формы ArrayShow

&& Протяженности массива по первому и второму измерениям

m = 5

n = 4

&& Добавляем в форму новое свойство-массив с именем FormArray

This.AddProperty("FormArray(m, n)")

&& Изменяем некоторые свойства элементов управления формы

&& Указываем свойство FormArray в качестве источника данных

&& поля списка ListArray

with This

.ListArray.RowSource = "ThisForm.FormArray"

&& Вид источника данных – массив

.ListArray.RowSourceType = 5

&& Число отображаемых в поле списка ListArray столбцов массива

.ListArray.ColumnCount = n

&& Позиционируемся на первой строке поля списка

.ListArray.Value = 1

&& Минимальное и максимальное значения счетчика SpinnerColumnNumber,

&& задающего номер сортируемого столбца отображаемого массива

.SpinnerColumnNumber.SpinnerLowValue = 1

.SpinnerColumnNumber.SpinnerHighValue = n

&& Доступность кнопки "Заполнить"

&& Кнопка будет доступна после нажатия на кнопку "Очистить",

&& то есть когда поле списка не содержит данных

.CommandFill.Enabled = .F.

&& Вызов обработчика события Click кнопки "Заполнить",

&& выполняющего инициализацию массива ThisForm.FormArray

&& и управляющей доступностью кнопок формы

.CommandFill.Click

endWith

Замечание. Форма текущего проекта может быть открыта для редактирования при помощи метода Modify объекта File коллекции Files проекта:

_VFP.ActiveProject.Files('ArrayShow.scx').Modify

Метод вернет .T., если действие выполнено, или .F. – в противном случае.