Интерфейс ComboBox

Компонент ComboBox позволяет пользователю выбрать определенную строку из набора строк или указать некоторую свою строку. Подробнее...

Граф наследования:ComboBox:

Граф связей класса ComboBox:

Полный список членов класса

Свойства
ULONG RW	DropDownCount []
	Если стиль компонента не является CBS_SIMPLE то свойство определяет сколько строк в выпадающем списке, если строк больше то появляется полоса прокрутки.
LONG RW	Style []
	Свойство определяет стиль компонента:.
LONG RW	CharCase []
	Свойство определяет изменение регистра символов текста Возможные значение:.
VARIANT_BOOL RW	ReadOnly []
	Это свойство запрещает редактирование текста пользователем, по умолчанию "FALSE".
VARIANT_BOOL RW	DroppedDown []
	Свойство определяет видимость выпадающего списка, если свойство Style имеет значение CBS_DROPDOWN или CBS_DROPDOWNLIST.
BSTR RW	CueBanner []
	Задает строку для показа в контроле в качестве подсказки.
VARIANT_BOOL RW	CueBannerAlwaysVisible []
	Если указано true, то подсказка для ввода текста, заданная через свойство CueBanner показывается даже если контрол получает фокус.
IDispatch *R	BalloonTip []
	Возвращает объект BalloonTip для настройки и показа всплывающей подсказки.
VARIANT W	OnDropDown []
	Свойство позволяет задать обработчик события OnDropDown через 2-й уровень.

---

Подробное описание

Компонент ComboBox позволяет пользователю выбрать определенную строку из набора строк или указать некоторую свою строку.

Он содержит в себе компонент редактирования текста Edit и список ListBox. Компонент может находиться в трех основных режимах, определяемых свойством Style.

События: компонент вызывает событие OnChange при изменении текста или индекса выбранной строки. ComboBox имеет дополнительные события ComboBoxEvents.

Создание: Компонент можно создать методом CreateListBox класса Frame

Пример (JScript):

o = new ActiveXObject("Scripting.WindowSystemObject")

o.EnableVisualStyles = true

f = o.CreateForm(0,0,0,0)

f.Text = "WSO"
f.ClientWidth = 200
f.ClientHeight = 100
f.CenterControl()

ComboBox = f.CreateComboBox(10,10,100,25)
with (ComboBox)
{
        Add("Item 1")
        Add("Item 2")
        Add("Item 3")
        Add("Item 4")
        Add("Item 5")
}

f.Show()

o.Run()

Результат:

Пример 2 (JScript):

o = new ActiveXObject("Scripting.WindowSystemObject")

o.EnableVisualStyles = true

f = o.CreateForm(0,0,0,0)

f.Text = "WSO"
f.ClientWidth = 200
f.ClientHeight = 120
f.CenterControl()

ComboBox = f.CreateComboBox(10,10,100,100)
ComboBox.Images.Load(CurrentDir()+"ToolBar.bmp")

for (i = 0; i<5; i++)
{
        ComboBox.Add("Item "+i)
        ComboBox.ImageIndex(i) = i
}

f.Show()

o.Run()

function CurrentDir() {s = WScript.ScriptFullName; s = s.substring(0,s.lastIndexOf("\\")+1); return s; }

Результат:

---

Полный список свойств

IDispatch* R BalloonTip

Возвращает объект BalloonTip для настройки и показа всплывающей подсказки.

Минимальная версия OS: Windows XP. Требуется активация тем (Themes).

Начиная с:

1.1.8.

Заметки:

Style должно быть CBS_DROPDOWN.

LONG RW CharCase

Свойство определяет изменение регистра символов текста Возможные значение:.

• CC_NORMAL нет изменения регистра
• CC_LOWERCASE символы все маленькие
• CC_UPPERCASE символы все большие

BSTR RW CueBanner

Задает строку для показа в контроле в качестве подсказки.

Минимальная версия OS: Windows XP. Требуется активация тем (Themes). Работает только для контрола в однострочном режиме.

Начиная с:

1.1.8.

См. также:

CueBanner.

Заметки:

Style должно быть CBS_DROPDOWN.

Пример (JScript, CBS_DROPDOWN):

o = new ActiveXObject("Scripting.WindowSystemObject")

o.EnableVisualStyles = true

f = o.CreateForm(0,0,0,0)

f.Text = "WSO"
f.ClientWidth = 200
f.ClientHeight = 120
f.CenterControl()

ComboBox = f.CreateComboBox(10,10,180,100)
ComboBox.CueBanner = "Enter text where"

for (i = 0; i<5; i++)
{
        ComboBox.Add("Item "+i)
}

f.CreateButton(10,40,75,25,"OK")

f.Show()

o.Run()

Результат:

VARIANT_BOOL RW CueBannerAlwaysVisible

Если указано true, то подсказка для ввода текста, заданная через свойство CueBanner показывается даже если контрол получает фокус.

Минимальная версия OS: Windows XP. Требуется активация тем (Themes).

Начиная с:

1.1.8.

Заметки:

Style должно быть CBS_DROPDOWN.

ULONG RW DropDownCount

Если стиль компонента не является CBS_SIMPLE то свойство определяет сколько строк в выпадающем списке, если строк больше то появляется полоса прокрутки.

По умолчанию: 30.

Пример (JScript, CBS_DROPDOWN):

o = new ActiveXObject("Scripting.WindowSystemObject")

o.EnableVisualStyles = true

f = o.CreateForm(0,0,0,0)

f.Text = "WSO"
f.ClientWidth = 200
f.ClientHeight = 170
f.CenterControl()

ComboBox = f.CreateComboBox(10,10,100,25,o.Translate("CBS_DROPDOWNLIST"))
ComboBox.DropDownCount = 10

for (i = 0; i<50; i++)
        ComboBox.Add("Item "+i)

f.Show()

o.Run()

Результат:

VARIANT_BOOL RW DroppedDown

Свойство определяет видимость выпадающего списка, если свойство Style имеет значение CBS_DROPDOWN или CBS_DROPDOWNLIST.

VARIANT W OnDropDown

Свойство позволяет задать обработчик события OnDropDown через 2-й уровень.

Начиная с:

1.1.9.

VARIANT_BOOL RW ReadOnly

Это свойство запрещает редактирование текста пользователем, по умолчанию "FALSE".

LONG RW Style

Свойство определяет стиль компонента:.

• CBS_SIMPLE компонент позволяет пользоваться редактором, список строк виден всегда и является частью компонента.
• CBS_DROPDOWN (значение по умолчанию) компонент позволяет пользоваться редактором, список строк появляется при нажатии на кнопку.
• CBS_DROPDOWNLIST компонент не позволяет пользоваться редактором, список строк появляется при нажатии на кнопку.

Пример 1 (JScript, CBS_DROPDOWN):

o = new ActiveXObject("Scripting.WindowSystemObject")

o.EnableVisualStyles = true

f = o.CreateForm(0,0,0,0)

f.Text = "WSO"
f.ClientWidth = 200
f.ClientHeight = 100
f.CenterControl()

ComboBox = f.CreateComboBox(10,10,100,25)
with (ComboBox)
{
        Add("Item 1")
        Add("Item 2")
        Add("Item 3")
        Add("Item 4")
        Add("Item 5")
}

f.Show()

o.Run()

Результат:

Пример 2 (JScript, CBS_DROPDOWNLIST):

o = new ActiveXObject("Scripting.WindowSystemObject")

o.EnableVisualStyles = true

f = o.CreateForm(0,0,0,0)

f.Text = "WSO"
f.ClientWidth = 200
f.ClientHeight = 120
f.CenterControl()

ComboBox = f.CreateComboBox(10,10,100,25,o.Translate("CBS_DROPDOWNLIST"))
with (ComboBox)
{
        Add("Item 1")
        Add("Item 2")
        Add("Item 3")
        Add("Item 4")
        Add("Item 5")
}

f.Show()

o.Run()

Результат:

Пример 3 (JScript, CBS_SIMPLE):

o = new ActiveXObject("Scripting.WindowSystemObject")

o.EnableVisualStyles = true

f = o.CreateForm(0,0,0,0)

f.Text = "WSO"
f.ClientWidth = 200
f.ClientHeight = 120
f.CenterControl()

ComboBox = f.CreateComboBox(10,10,100,100,o.Translate("CBS_SIMPLE"))
with (ComboBox)
{
        Add("Item 1")
        Add("Item 2")
        Add("Item 3")
        Add("Item 4")
        Add("Item 5")
}

f.Show()

o.Run()

Результат:

---