Показывает или прячет полосу прокрутки в элементе управления ListBox. Read/write как в design time, так и в run time.

NoteЗамечание

Если listbox пустой или, если все элементы списка видимы, полоса прокрутки не отображаются.

ListBox.AutoHideScrollBar [= nValue]

Expand imageВозвращаемое значение

nValue

Указывает значение, которые определяет - будет ли полоса прокрутки отображаться в listbox.

В приведенной ниже таблице перечислены значения для nValue.

 
nValue Description

0

Всегда показывать полосу прокрутки. (По умолчанию)

1

Показывать полосу прокрутки только в том случае, если не все предметы в списке элемента listbox видимы.

Expand imageПримечания

Применяется к: ListBox Control

При рисовании полос прокрутки , Visual FoxPro учитывает установку свойства IntegralHeight.

Expand imageПример

Примеденный ниже пример создает 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 устанавливает свойства класса и определяет процедуры.

  CopyCode imageСкопировать код
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

Expand imageСмотрите также

Справочное руководство

Свойство RowSource
Свойство RowSourceType

Прочие ресурсы

Свойства (Visual FoxPro)