| Вопрос: XpressQuantumGrid - быстрый поиск в Pick-колонке | Добавлено: 14.09.05 08:23 |
Автор вопроса:  Maxxxxxxxxxxx
|
|
Товарисчи!!! Никто не пробовал делать быстрый поиск в Pick-колонке XpressQuantumGrid-а?
Вот код (VB) быстрого поиска в обыкновенном комболисте: Private Sub OrdCombo_KeyUp(KeyCode As Integer, Shift As Integer) Dim st As Long Dim x As Integer '''''''''''''''''''''''''' If KeyCode <> vbKeyReturn And KeyCode <> vbKeyBack And KeyCode <> vbKeySpace Then st = Len(OrdCombo.Text) If st < 6 Then For x = 0 To OrdCombo.ListCount - 1 If LCase(Left(OrdCombo.List(x), st)) = LCase(OrdCombo.Text) Then OrdCombo.ListIndex = x OrdCombo.SelStart = st OrdCombo.SelLength = Len(OrdCombo.Text) - st Exit For End If Next x End If End If End Sub Задумка проста и стара, как мир, но при всем при этом я не смог привязать данный код к Pick-колонке (по сути аналогу комбобокса). У кого есть идеи, как это сделать? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  «UL.eXe» ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540 |
Профиль | | #1 | Добавлено: 14.09.05 11:03 |
|
...
If InStr(1, OrgCombo.Text, SearchWord.Text) Then ... я правильно понял? |
||
|
Номер ответа: 2 Автор ответа:  Maxxxxxxxxxxx Вопросов: 1 Ответов: 1 |
Профиль | | #2 | Добавлено: 15.09.05 09:07 |
|
...
If InStr(1, OrgCombo.Text, SearchWord.Text) Then ... я правильно понял? Правильно, правильно... Только мне не для стандартного вэбэшного комбо надо, а для Pick-колонки XpressQuantumGrid-а! Знаешь такой ActivX-контрол? |
||
Страница: 1 |