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

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
8Ball's
Начинающий
Начинающий
Аватара пользователя
 
Сообщения: 23
Зарегистрирован: 26.12.2006 (Вт) 16:10
Откуда: Питер

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

Сообщение 8Ball's » 26.12.2006 (Вт) 16:24

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

Debugger
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1667
Зарегистрирован: 17.06.2006 (Сб) 15:11

Сообщение Debugger » 26.12.2006 (Вт) 16:28

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

Konst_One
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
Аватара пользователя
 
Сообщения: 3041
Зарегистрирован: 09.04.2004 (Пт) 13:47
Откуда: Химки

Сообщение Konst_One » 26.12.2006 (Вт) 16:31

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

Код: Выделить всё
With Me.Text1

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

End With

Viper
Артефакт VBStreets
Артефакт VBStreets
Аватара пользователя
 
Сообщения: 4394
Зарегистрирован: 12.04.2005 (Вт) 17:50
Откуда: Н.Новгород

Сообщение Viper » 26.12.2006 (Вт) 16:32

Код: Выделить всё
TextBox1.SelStart = 1
TextBox1.SelLength = Len(TextBox.Text)


З.Ы. пока писал, дважды опередили...
Последний раз редактировалось Viper 26.12.2006 (Вт) 16:34, всего редактировалось 1 раз.
Весь мир матрица, а мы в нем потоки байтов!

8Ball's
Начинающий
Начинающий
Аватара пользователя
 
Сообщения: 23
Зарегистрирован: 26.12.2006 (Вт) 16:10
Откуда: Питер

Сообщение 8Ball's » 26.12.2006 (Вт) 16:34

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

Код: Выделить всё
With Me.Text1

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

End With


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


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot, SemrushBot, Yandex-бот и гости: 88

    TopList