Опять про выделение текста

[A.A.Z.]

Как-то давно я спрашивал, как выделить текст в TextBox'e. Тогда я привёл пример с поиском в нём, мне и ответили тогда про поиск. Но всё-таки мне хочется узнать, как выделять текст? Не важно, в TextBox'e ли, или где-то ещё, и, что самое главное, НЕ ПРИ ПОИСКЕ!
Подскажите, плиз, кто знает - очень надо...

P.S. Кто не понял:
(Например)

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

Private Declare Function Select Lib "library" Alias "Select" (String As String, Start As Long, Length As Long)

Private Sub Command1_Click()
Text1.Text = "abcdefg1234567890"
Select(Text1.Text, 3, 10) 'Выделится "defg123456"
End Sub



Что-то в этом роде...

[GSerg]

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

Function FindAndSelect(TB As TextBox, ByVal s As String, Optional CaseSensitive As Boolean = False) As Boolean
  Dim i As Long
  If CaseSensitive Then i = InStr(TB, s) Else i = InStr(LCase$(TB), LCase$(s))
  If i Then TB.SelStart = i - 1: TB.SelLength = Len(s): TB.SetFocus: FindAndSelect = True
End Function

[alibek]

Помоему ему нужно вот это:

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

Text1.SelStart = 3
Text1.SelLength = 10

2 GSerg, а я бы упростил код Заменил бы третью строчку на:

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

i = InStr(1, TB.Text, s, IIf(CaseSensitive, vbBinaryCompare, vbTextCompare))

[GSerg]

[A.A.Z.]

Спасибо, насчёт TextBox, SelStart и SelLength я понял, а как насчёт других контролов, например, DBGrid (я как раз сейчас с ним работаю)??