навигация по списку

[pstrkim]

Программа навигации по списку с вводом символов с клавиатуры:

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


Dim sLstSearch As String 'строка поиска
Dim CurrentLetter As String 'загруженная в список буква
Dim sWaitForLetter As String 'выбранная, но еще незагруженная буква
'загрузка формы
Private Sub Form_Load()
    While Not rsProducts.EOF
        lstSearch.AddItem rsProducts.Fields("ProductID")
        rsProducts.MoveNext
    Wend
    rsProducts.Close
    Me.Caption = lstSearch.ListCount & " records loaded"
End Sub
'функция поиска слова в списке
Function SearchListBox(lstX As Control, KeyAscii As Integer)
    Dim nSearchPos As Integer
    Dim nSearchLen As Integer
    Dim nResult As Integer
    CurrentLetter = ""
   
    If CurrentLetter = "" Then
        CurrentLetter = "Я"
    Else
        CurrentLetter = Chr(Asc(CurrentLetter) + 1)
    End If
   
    nSearchPos = lstX.ListIndex
    nSearchLen = Len(sLstSearch)
    sWaitForLetter = ""
   
    'проверям не нажата ли клавиша <BACKSPACE>
    If KeyAscii = vbKeyBack Then
        nSearchPos = 0
        If nSearchLen > 0 Then sLstSearch = Left$(sLstSearch, _
                    nSearchLen - 1)
    End If
   
    'преобразуем введеный символ в верхний регистр
    KeyAscii = Asc(UCase$(Chr$(KeyAscii)))
   
    'если нажата буква 'Х', а данные введены только до 'С', ждем...
    If nSearchLen = 0 And KeyAscii > Asc(CurrentLetter) Then
        lstX.ListIndex = lstX.ListCount - 1
        sWaitForLetter = Chr$(KeyAscii)
        Exit Function
    End If
   
    'добавляем в строку поиска новый символ
    If KeyAscii >= 32 And KeyAscii <= 223 Then
        sLstSearch = sLstSearch & Chr$(KeyAscii)
    End If
   
    'отображаем строку поиска
    lblSrchtext = sLstSearch
   
    'пересчитываем длину
    nSearchLen = Len(sLstSearch)
   
    'простой поиск - сравниваем каждый элемент со строкой поиска
    While nSearchPos < lstX.ListCount
        nResult = StrComp(sLstSearch, UCase$(Left$(lstX.List(nSearchPos), nSearchLen)))
        If nResult <= 0 Then
            lstX.ListIndex = nSearchPos
            SearchListBox = 0
            Exit Function
        End If
        nSearchPos = nSearchPos + 1
    Wend
End Function
'нажатие клавиши в списке
Private Sub lstSearch_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Exit Sub
    End If
    KeyAscii = SearchListBox(Me.ActiveControl, KeyAscii)
End Sub


[Amed]

Для начала - оформить приложенный код как следует с тегом Code либо VB и табуляциями (4 пробела):

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

Private Sub lstSearch_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then Exit Sub
    KeyAscii = SearchListBox(Me.ActiveControl, KeyAscii)
End Sub

Пока что невозможно читать.

[GSerg]

Для простоты listbox замени на combo со стилем simple, после чего http://bbs.vbstreets.ru/viewtopic.php?t=13462
Можно не заменять, а подправить пример.

[pstrkim]

Ничего не понял как оформить код и отступы - теги я ввел, пробелы тоже никакого результата!
Попытался написать более понятно, с комментариями

[Ещё один длинный кусок неотформатированного кода, теперь удалённый]

Помогите разобраться!

[GSerg]

pstrkim, знаешь, есть кнопки форматирования кода. На них написано CODE.

[pstrkim]

Все, понял, спасибо!

[Здесь снова был повторно запощенный кусок кода. Тот же самый. Видимо, автор насколько в восторге от него, что не может упустить возможности показать его у каждом посте...

Автор, воспользуйся кнопкой Правка и приведи свой код в первом посте в нормальный вид, вместо того чтобы уже в третий раз повторно являть его нам.]

[pstrkim]

А где здесь кнопка Правка?

[Viper]

А где здесь кнопка Правка?

В цитаты однозначно!!!

А кнопка сия находится в правом верхнем углу каждого твоего поста. когда таки нажмешь на нее, обрати внимание на кнопки CODE и VB. Весьма пользительное дело.