ComboBox: Style = "2 - Dropdown List"

[dima81]

А как при таком стиле найти конкретную запись? Поясню:

например у меня в Combobox есть 100 записей. Мне нужно, чтобы при загрузке формы появилась запись Bolt. Как я понял надо писать Combo1.ListIndex = номер. Но я же не знаю под каким номером стоит запись Bolt в Combo1.

Как решить проблему? Помогите.

[RayShade]

Ну как вариант - перебирай, список и ищи нужную запись, а потом просто выбирай ее и все.

[dima81]

RayShade, подскажите, как это правильно сделать. А то я этим никогда не занимался

[dr.MIG]

Не, лучше не перибирать, лучше вот так:

Код: Выделить всё

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const CB_FINDSTRING = &H14C

Private Sub Command1_Click()
    Dim txtYourText As String
    Dim lngIndex As Long
    txtYourText = "Text" 'здесь твой текст
    lngIndex = SendMessage(Combo1.hwnd, CB_FINDSTRING, -1, ByVal txtYourText)
    Combo1.ListIndex = lngIndex
End Sub

[dima81]

dr.MIG, работает. Спасибо. Но только надо вроде из объявления функции As Long убрать. По крайней мере у меня программа только после этого заработала. Хотя точно не знаю.

[Viper]

dr.MIG, работает. Спасибо. Но только надо вроде из объявления функции As Long убрать. По крайней мере у меня программа только после этого заработала. Хотя точно не знаю.

Это в каком это месте надо As Long убрать???? Не может быть такого!

[dima81]

Viper, моя ошибка. Прсто я использую & - а это и есть Long

[Pantalone]

Можно просто Combo1 = "Bolt", если он у тебя Dropdown List