Примеры использования классов VFP

1. Как сделать, чтобы из формы интерактивно менялось количество страниц в объекте PageFrame?

Пусть на форме имеются Page Frame1 и Spinner1. В методе Interactive Change счетчика напишем код:

THISFORM.PageFrame1.PageCount = THIS.Value && кол. страниц

For i=1 to This.value

 THISFORM.PageFrame1.Pages(i).caption="Стр."+allt(str(i)) &&название и № каждой стр.

Next

2. Как сделать, чтобы на форме была видна только она страница PageFrame?

В свойстве Tabs указать False.

Активизация какой-либо страницы (например, Page1) через команду (можно записать ее в метод Click какой-либо кнопки): ThisForm.PageFrame1.Page1.zorder.

3. Как использовать OptionGroup? Для вставки Option Group необходимо нажать   и разместить объект на форме. Используют объект для выбора только 1 значения атрибута. Число кнопок указывается в свойстве Button Count. Свойства каждой кнопки (например, Caption), указываются при выборе данного объекта в меню Properties (рис.) Значение переменной (This.value) равно номеру нажатой кнопки.

Рис. 5. Объект OptionGroup1

Для определения действий обычно используют структуру Do Case …. EndCase, например

N= ThisForm.OptionGroup1.value

Do Case N

 Case n=1

 <програмный код>

EndCase

4. Как использовать Check Box.  Для вставки Check Box необходимо нажать

Данный объект используют, когда, нужно одновременно выбрать несколько значений атрибутов или не одного. Значение This.value=.f. (нет галочки) и.t. (галочка).

 Рис.6. Выбор значения в CheckBox1 (мониторы) и CheckBox2 (принтеры).

Значение свойства value каждого объекта Check Box анализируется отдельно.

5. Как использовать Combo Box.  Для вставки Combo Box  необходимо нажать .

1)   список фиксированных значений. Для этого в свойстве RowSourceType указать Value, а в RowSource перечислить через запятую значения. Например: Москва, Архангельск, и т.д.

2) Использовать значение поля RowSourceType – Fields, в RowSource выбрать поле.

3) Использовать запрос RowSourceType – SQL