Eigenschaften, Methoden und Ereignisse des Listenfeld-Steuerelements

Artikel
04/01/2008

Eigenschaften

Application	BaseClass	BorderColor
BoundColumn	BoundTo	Class
ClassLibrary	ColorScheme	ColorSource
ColumnCount	ColumnLines	ColumnWidths
Comment	ControlSource	DisabledBackColor
DisabledForeColor	DisabledItemBackColor	DisabledItemForeColor
DisplayValue	DragIcon	DragMode
Enabled	FirstElement	FontBold
FontCondense	FontExtend	FontItalic
FontName	FontOutline	FontShadow
FontSize	FontStrikeThru	FontUnderLine
Height	HelpContextID	IncrementalSearch
IntegralHeight	ItemBackColor	ItemData
ItemForeColor	ItemIDData	ItemTips
Left	List	ListCount
ListIndex	ListItem	ListItemID
MouseIcon	MousePointer	MoverBars
MultiSelect	Name	NewIndex
NewItemID	NullDisplay	NumberOfElements
OLEDragMode	OLEDragPicture	OLEDropEffects
OLEDropHasData	OLEDropMode	Parent
ParentClass	Picture	RightToLeft
RowSource	RowSourceType	Selected
SelectedID	ItemBackColor, ItemForeColor	ItemBackColor, ItemForeColor
Sorted	SpecialEffect	StatusBarText
TabIndex	TabStop	Tag
TerminateRead	ToolTipText	Top
TopIndex	TopItemID	Value
Visible	WhatsThisHelpID	Width

Ereignisse

Click	DblClick	Destroy
DragDrop	DragOver	Error
ErrorMessage	GotFocus	Init
InteractiveChange	KeyPress	LostFocus
Message	MiddleClick	MouseDown
MouseEnter	MouseLeave	MouseMove
MouseUp	MouseWheel	OLECompleteDrag
OLEDragDrop	OLEDragOver	OLEGiveFeedBack
OLESetData	OLEStartDrag	ProgrammaticChange
RangeHigh	RangeLow	RightClick
UIEnable	Valid	When

Methoden

AddItem	AddListItem	AddProperty
Clear	CloneObject	Drag
IndexToItemID	ItemIDToIndex	Move
OLEDrag	ReadExpression	ReadMethod
Refresh	RemoveItem	RemoveListItem
Requery	ResetToDefault	SaveAsClass
SetFocus	WriteExpression	WriteMethod
ZOrder

Beispiel

Im folgenden Beispiel wird ein Listenfeld-Steuerelement (ListBox) erstellt. Die Quelle der im Listenfeld angezeigten Einträge ist ein Array, das mit den Eigenschaften RowSourceType und RowSource angegeben ist.

Die MultiSelect-Eigenschaft für das Listenfeld ist auf Wahr (.T.) festgelegt und ermöglicht Ihnen so Mehrfachauswahlen aus der Liste. Der oder die gewählten Einträge werden mit den Eigenschaften ListCount, Selected und List (die die Anzahl der Einträge in der Liste und die gewählten Einträge bestimmen) angezeigt.

CLEAR

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

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

Siehe auch

Listenfeld-Steuerelement (ListBox) | ListCount-Eigenschaft | Formular-Designer | Verwenden von Steuerelementen

Freigeben über