ComboBox

From Real Software Documentation

Jump to: navigation, search

     

Class (inherits from PopupMenu)

A ComboBox is a combination of a TextField and a PopupMenu. The user can type in the field or click to select an item from a list.

Events
Change DropObject MouseExit
Close GotFocus MouseMove
ConstructContextualMenu KeyDown MouseUp
ContextualMenuAction KeyUp MouseWheel
DragEnter LostFocus Open
DragExit MouseDown TextChanged
DragOver MouseEnter


Properties
Active ListCount TabIndex
AutoComplete ListIndex TabStop
AutoDeactivate LockBottom Text
Bold LockLeft Text
DataField LockRight TextFont
DataSource LockTop TextSize
Enabled MouseCursor Top
Handle MouseX TrueWindow
Height MouseY Underline
HelpTag Name UseFocusRing
Index PanelIndex Visible
InitialValue Parent Width
Italic Scope Window
Left SelLength
List SelStart


Methods
AcceptFileDrop AddSeparator Refresh
AcceptPictureDrop Close RefreshRect
AcceptRawDataDrop DeleteAllRows RemoveRow
AcceptTextDrop DrawInto RowTag
AddRow InsertRow SetFocus
AddRows Invalidate

Examples

This code in the Open event handler populates a ComboBox and sets the initial value to the current month:

Dim s As String
Dim i, last As Integer
Dim d As New Date
s = "January,February,March,April,May,June,July," _
+"August,September,October,November,December"
last = CountFields(s,",")
For i = 1 To last
Me.AddRow(NthField(s, ",", i))
Next
Me.ListIndex = d.Month-1


The value of the ListIndex property contains the index of the selected item, but it does not indicate whether the user has entered text into the ComboBox. Examine the Text property to get the current menu selection or the text entered by the user. For example, the following line in the TextChanged event handler displays either the currently selected menu item or the text typed into the ComboBox.

Label1.Text=Me.Text


This example adds an item to a ComboBox in its Open event handler.

Me.AddRow("October")


This example opens a new window when an item is chosen.

Sub Change()
Dim w As ListEditorWindow
If ComboBox1.Text = "Edit List..." Then
w = New ListEditorWindow
End If


The following line changes the selected item in a ComboBox

ComboBox1.ListIndex = 3

See Also

TextField, PopupMenu controls; RectControl class.

Personal tools