Показывает или прячет полосу прокрутки в элементе управления ListBox. Read/write как в design time, так и в run time.
Замечание |
---|
Если listbox пустой или, если все элементы списка видимы, полоса прокрутки не отображаются. |
ListBox.AutoHideScrollBar [= nValue] |
Возвращаемое значение
- nValue
-
Указывает значение, которые определяет - будет ли полоса прокрутки отображаться в listbox.
В приведенной ниже таблице перечислены значения для nValue.
nValue Description 0
Всегда показывать полосу прокрутки. (По умолчанию)
1
Показывать полосу прокрутки только в том случае, если не все предметы в списке элемента listbox видимы.
Примечания
Применяется к: ListBox Control
При рисовании полос прокрутки , Visual FoxPro учитывает установку свойства IntegralHeight.
Пример
Примеденный ниже пример создает listbox на форме и указаывает в качестве источника данных для предметов списка массив. В пользовательском классе элемента управления listbox, lstMyListbox, свойство AutoHideScrollBar устанавливается в 1 для того, чтобы полоса прокрутки появилась только в случае, если не все элементы списка видимы. Изменение размера формы устанавливает новый размер для listbox.
Шаги, производимые в этом примере приведены ниже:
-
Очищаем главное окно Visual FoxPro с помощью команды CLEAR.
-
Создаем массив с именем gaMyListArray, используя команду DIMENSION.
-
Заполняем массив буквами, используя команды FOR...ENDFOR и STORE.
-
Создаем форму, используя функцию CREATEOBJECT().
-
Вызовом метода AddObject вводим элемент управления CommandButton, основанный на пользовательском классе cmdMyCmdButton.
-
Вызовом метода AddObject вводим элемент управления ListBox, основанный на пользовательском классе lstMyListBox.
-
Указываем массив в качестве типа источника строки с помощью установки свойства RowSourceType в значение 5 (Array).
-
Указываем массив gaMyListArray в качества источника строки с помощью установки свойства RowSource.
-
Показываем командную кнопку установкой свойства Visible.
-
Показываем listboxустановкой свойства Visible.
-
Отображаем форму вызовом метода формы Show.
-
Начинаем обработку событий с помощью команды READ EVENTS.
-
Определяем пользовательский класс cmdMyCmdButton, основанный на элементе управления CommandButton, используя команду DEFINE CLASS. Код в команде DEFINE CLASS устанавливает свойства класса и определяет процедуры.
-
Определяем пользовательский класс lstMyListBox, основанный на элементе управления ListBox, используя команду DEFINE CLASS. используя команду DEFINE CLASS. Код в команде DEFINE CLASS устанавливает свойства класса и определяет процедуры.
Скопировать код | |
---|---|
CLEAR DIMENSION gaMyListArray(10) FOR gnCount = 1 to 10 STORE REPLICATE(CHR(gnCount+64),6) TO gaMyListArray(gnCount) NEXT frmMyForm = CREATEOBJECT('Form') frmMyForm.AddObject('cmbCommand1','cmdMyCmdBtn') frmMyForm.AddObject('lstListBox1','lstMyListBox') frmMyForm.lstListBox1.RowSourceType = 5 frmMyForm.lstListBox1.RowSource = 'gaMyListArray' frmMyForm.cmbCommand1.Visible =.T. frmMyForm.lstListBox1.Visible =.T. frmMyForm.Show READ EVENTS DEFINE CLASS cmdMyCmdBtn AS CommandButton Caption = '\<Quit' Cancel = .T. Left = 125 Top = 210 Height = 25 PROCEDURE Click CLEAR EVENTS CLEAR ENDDEFINE DEFINE CLASS lstMyListBox AS ListBox Left = 10 Top = 30 Anchor = 5 AutoHideScrollBar = 1 ENDDEFINE |
Смотрите также
Справочное руководство
Свойство RowSourceСвойство RowSourceType