Подсветка данных в Textbox при переходе Tab

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Подсветка данных в Textbox при переходе Tab (Макросы/Sub)

vdekameron

Дата: Понедельник, 15.12.2014, 09:55 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 177

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Подскажите пожалуйста, как при переходе с помощью Tab на другой Textbox в VB6 подсвечивать в нем данные. Сорри если неправильно выражаюсь, по-другому не знаю как назвать. Картинкой думаю будет понятнее

К сообщению приложен файл: 1020502.jpg (4.5 Kb)

Ответить

RAN

Дата: Понедельник, 15.12.2014, 10:30 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

[vba]

Код

With  Controls(DatBox.Name)
         .SelStart = 0: .SelLength = Len(DatBox.Text)
     End With

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

vdekameron

Дата: Понедельник, 15.12.2014, 10:41 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 177

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Это в VB6? <_<

Ответить

RAN

Дата: Понедельник, 15.12.2014, 10:49 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Это VB (A , 6)

Быть или не быть, вот в чем загвоздка!

Ответить

vdekameron

Дата: Понедельник, 15.12.2014, 10:53 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 177

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата vdekameron, 15.12.2014 в 09:55, в сообщении № 1

Подскажите пожалуйста, как при переходе с помощью Tab на другой Textbox в VB6

Спасибо, но мне нужно в VB6

Ответить

RAN

Дата: Понедельник, 15.12.2014, 10:57 | Сообщение № 6

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Так и используйте в 6. В чем проблема?

Быть или не быть, вот в чем загвоздка!

Ответить

vdekameron

Дата: Понедельник, 15.12.2014, 12:22 | Сообщение № 7

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 177

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Private Sub G_GotFocus()
G.SelStart = 0
G.SelLength = Len(G)
End Sub

Вот так получилось. RAN, Я просто не оч. разбираюсь и переделать из вашего вида в этот не смог, как бы это смешно не казалось <_<

Ответить

vdekameron

Дата: Понедельник, 15.12.2014, 12:23 | Сообщение № 8

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 177

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

хотя теперь я уже понимаю что это одно и то же

Ответить

Подсветка данных в Textbox при переходе Tab (Макросы/Sub)

Страница 1 из 1
1