Выделить всё!

[8Ball's]

Есть текстовое поле, нужна функция или команда которая выделяет весь текст. Помогите очень надо

[Debugger]

TextBox.SelStart=0 (или 1)
TextBox.SelLenght=len(TextBox.Text)-1 (или -1 не надо)
P.S если команда, то "Апорт!"

[Konst_One]

если текстовое поле - это элемент TextBox на форме , то тогда так:

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

With Me.Text1

    .SelStart = 0
    .SelLength = Len(.Text)

End With

[Viper]

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

TextBox1.SelStart = 1
TextBox1.SelLength = Len(TextBox.Text)

З.Ы. пока писал, дважды опередили...

[8Ball's]

если текстовое поле - это элемент TextBox на форме , то тогда так:

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

With Me.Text1

    .SelStart = 0
    .SelLength = Len(.Text)

End With

Спасибо, все работает!