" и VBA

[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

Есть такой код, но проблема в том, что названия в листбоксе в кавычках, а набирать каждый раз кавычки не очень прикольно, я хотел, чтобы он сравнивал вместе с ними, но это не так просто!! подскажите как можно это осуществить?
Т.е. нужно чтобы в текстбоксе обычный текст, а сравнивать с листбоксом, как будто я набрал с кавычками впереди?!?

[GSerg]

Что именно вызывает проблему у автора сего концептуального вопроса - обрамление строки в кавычки?

[Igor_123]

GSerg

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

Private Sub TextBox1_Change()
Dim s As String
Dim i As Integer
s = TextBox1.Text
ListBox1.ListIndex = -1
If len(s)= 0 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

Подойдет???

[uhm]

Только там как минимум 4 кавычки должно быть, не три. И закрывающей кавычки, возможно, не хватает.

[Igor_123]

Черт! Такую дезинформацию пустил.

[78952]

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

Private Sub TextBox1_Change()
Dim s As String
Dim i As Integer
s = chr$(34) & 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

вот нашлось решение