| Вопрос: " и VBA | Добавлено: 17.03.06 15:03 |
Автор вопроса:  78952
|
|
Private Sub TextBox1_Change()
Dim s As String Dim i As Integer s = TextBox1.Text ListBox1.ListIndex = -1 If TextBox1.Text = "" Then Exit Sub End If For i = 0 To ListBox1.ListCount - 1 If UCase(ListBox1.List(i)) Like UCase(s & "*") Then ListBox1.ListIndex = i Exit Sub End If Next End Sub Есть такой код, но проблема в том, что названия в листбоксе в кавычках, а набирать каждый раз кавычки не очень прикольно, я хотел, чтобы он сравнивал вместе с ними, но это не так просто!! подскажите как можно это осуществить? Т.е. нужно чтобы в текстбоксе обычный текст, а сравнивать с листбоксом, как будто я набрал с кавычками впереди?!? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 17.03.06 17:44 |
|
s = chr$(34) & TextBox1.Text & chr$(34)
|
||
|
Номер ответа: 2 Автор ответа:  78952 Вопросов: 2 Ответов: 2 |
Профиль | | #2 | Добавлено: 20.03.06 17:08 |
|
Спасибо!
|
||
Страница: 1 |