Как выделить текст?

[A.A.Z.]

Например, чтобы при поиске программа найденный текст выделяла?

[gjghjc]

А где производится поиск?
В текстовом файле? В документе Ворда?
И где этот файл отображается в твоем проекте?

[A.A.Z.]

Вообще - в DBGrid'е (таблица). Но на будущее (если вам не сложно) можно и просто в TextBox'е.

[GoGosha]

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

Function Find(CurTextBox As TextBox, SerchFor As String, Start As Long)
    Dim st As Long
    st = InStr(Start, CurTextBox.Text, SerchFor)
    If st > 0 Then
         CurTextBox.SelStart = st - 1
         CurTextBox.SelLength = Len(SerchFor)
    End If
End Function

[A.A.Z.]

Run-time Error #5
Недопустимый вызов Процедуры или Параметра.
Выделяет строку
st = InStr(Start, CurTextBox.Text, SearchFor)

[MEMBER]

Start, CurTextBox.Text, SerchFor

Start = С какого символа ищем
CurTextBox.Text = Где ищем
SerchFor = Что ищем

[A.A.Z.]

Спасибо!