Свойство ListCount

Содержит число элементов в списке ComboBox или ListBox.

Применение:
ComboBox, ListBox.

Синтаксис:

Control.ListCount

Комментарии:
Недоступно на этапе разработки, доступно только для чтения на этапе выполнения.

Пример:

* В следующем примере свойство ListCount используется для организации
* цикла по всем элементам, заданным свойством List элемента
* управления ComboBox или ListBox.
* В данном примере создается элемент управления ListBox. Источником
* элементов, включаемых в список ListBox, служит массив, который
* задается с помощью свойств RowSourceType и RowSource. 
* Свойство MultiSelect для элемента управления ListBox устанавливается
* равным "истине" (.T.), давая возможность выбирать в списке сразу
* несколько значений. Внутри цикла FOR ... ENDFOR используется свойство
* ListCount, которое отображает элемент (или элементы), выбранный в
* списке ListBox. Свойства Selected и List определяют, какие именно
* элементы вы выбрали.

CLEAR

DIMENSION gaMyListArray(10)
FOR gnCount = 1 to 10  && Fill the array with letters
	STORE REPLICATE(CHR(gnCount+64),6) TO gaMyListArray(gnCount)
ENDFOR

frmMyForm = CREATEOBJECT('Form')  && Create a Form
frmMyForm.Closable = .f.  && Disable the Control menu box 

frmMyForm.Move(150,10)  && Move the form

frmMyForm.AddObject('cmbCommand1','cmdMyCmdBtn')  && Add "Quit" Command button
frmMyForm.AddObject('lstListBox1','lstMyListBox')  && Add ListBox control

frmMyForm.lstListBox1.RowSourceType = 5  && Specifies an array
frmMyForm.lstListBox1.RowSource = 'gaMyListArray' && Array containing listbox items

frmMyForm.cmbCommand1.Visible =.T.  && "Quit" Command button visible
frmMyForm.lstListBox1.Visible =.T.  && "List Box visible

frmMyForm.SHOW  && Display the form
READ EVENTS  && Start event processing

DEFINE CLASS cmdMyCmdBtn AS CommandButton  && Create Command button
	Caption = '\<Quit'  && Caption on the Command button
	Cancel = .T.  && Default Cancel Command button (Esc)
	Left = 125  && Command button column
	Top = 210  && Command button row
	Height = 25  && Command button height

	PROCEDURE Click
		CLEAR EVENTS  && Stop event processing, close Form
		CLEAR  && Clear main Visual FoxPro window
ENDDEFINE

DEFINE CLASS lstMyListBox AS ListBox  && Create ListBox control
	Left = 10  && List Box column
	Top = 10  && List Box row
	MultiSelect = .T.  && Allow selecting more than 1 item

PROCEDURE Click
	ACTIVATE SCREEN
	CLEAR
	? "Selected items:"
	? "---------------"
	FOR nCnt = 1 TO ThisForm.lstListBox1.ListCount
		IF ThisForm.lstListBox1.Selected(nCnt)  && Is item selected?
			? SPACE(5) + ThisForm.lstListBox1.List(nCnt) && Show item
		ENDIF
	ENDFOR

ENDDEFINE

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