Выбор строки списка по первой букве

[Vitaly1]

На форме в VBA расположен объект список, необходимо по нажатию буквы, попадать на строку списка (или прокрутить список до строки) в которой текст начинается с указанной буквы.
Можно ли это сделать не программно? Если есть програмный код поделитесь пожалуйсто.

[corgi]

если имелось ввиду combobox то тогда наверно MatchEntry=0 тебе поможет

[Vitaly1]

Нет, ListBox, это свойство у него в нуле, но не помогает

[RayShade]

Ну тогда бы я обрабатывал сообщение Listbox_KeyPress и в нем бы анализировал, какая клавиша нажата а потом перебирал бы список в цикле и ставил бы listindex как мне надо.

[corgi]

тогда предлагаю с помощью textbox'a сделать так:
добавь на форму textbox1, listbox
и напиши так:

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

Private Sub TextBox1_Change()
TextBox1.Text = Right(TextBox1.Text, 1)
For i = 0 To ListBox1.ListCount - 1
    If Left(ListBox1.List(i), 1) = TextBox1.Text Then
        ListBox1.ListIndex = i
        Exit Sub
    End If
Next
ListBox1.ListIndex = 0
End Sub

Private Sub UserForm_Initialize()
ListBox1.AddItem "aa"
ListBox1.AddItem "ba"
ListBox1.AddItem "bb"
ListBox1.AddItem "bc"
ListBox1.AddItem "ca"
ListBox1.AddItem "cb"
ListBox1.AddItem "cc"
End Sub


[Vitaly1]

Спасибо, но я наверно через keydown буду

Хотя Корги прав, видишь что вводишь, только надо в keydown enter отлавливать textBox-а, и лишь затем в списке искать а то при длинной списке замаешься набирать данные.

[Vitaly1]

Ну вот, как я сделал:

dim s as string

private sub listbox1_keypress(Byval keyascii...
if keyascii = 8 then
s=""
form1.caption ="Ввод значения:"
ElseIf keyascii = 13 then
'тут можно в цикле искать строку если хотим ее выбрать не по полному значению
on error resume next
listbox1.text =s
else
s=s+chr(keyascii)
form1.caption ="Ввод значения:" +s
end if
end sub