Установление курсора в списке

@govorun · Регистрация: 01.11.2013

Студворк — интернет-сервис помощи студентам

На свойстве "после обновления" ПоляСоСписком написал:

Visual Basic
1
2
me.Список1.Requery
me.Список1.setfocus

Курсор переходит на Список, но не становится активным пока не тыркнешь в него мышкой. Т.е. если нажать Enter, то курсор просто (без выбора записи) переходит в следующее поле. А хочется, что бы при переходе курсора в Список, курсор становился активным и при нажатии на Enter выбиралась запись, на которой установлен курсор в списке и после этого переходил в другое поле. В принципе это не критично, но во избежание лишних телодвижений....
Во нагородил....
Спасибо

mobile · 13.01.2016, 19:59

Так попробуйте. Выделится первая запись в списке

Visual Basic
1
2
3
me.Список1.Requery
me.Список1.setfocus
me.Список1=me.Список1.itemdata(0)

Если нужна не первая, а определенная, то надо знать как ее найти, поскольку после рекверу список становится в начало

@commun · 13.01.2016, 23:16

Сообщение от govorun

Курсор переходит на Список

ну переходит в список, а откуда он узнает, что из списка ему выбрать?

@govorun · 14.01.2016, 20:40 **[ТС]**

Сообщение от mobile

me.Список1=me.Список1.itemdata(0)

у меня заработал только с единицей.

Visual Basic
1
me.Список1=me.Список1.itemdata(1)

Сообщение от commun

а откуда он узнает, что из списка ему выбрать?

Ни откуда. Но в целях минимизации телодвижений..., в особенности мышкой...
Курсор устанавливается на первую строку списка. Если она подходит - выбираем ее (тыркаем Ентер) и дальше по процедуре... Если первая строка не подходит - тыркаем стрелку вниз или листаем Page... Минимизация обращения к мышке (в разумных пределах конечно). Я и кнопки и всякую лабуду подсвечиваю где находится курсор(фокус). И переходы соответствующие делаю. Работать можно практически без мышки.

@commun · 23.01.2016, 01:09

Есть вариант
Сброс.rar

@govorun · 23.01.2016, 11:19 **[ТС]**

Сообщение от commun

Есть вариант

Это немного не то, но все-равно спасибо.

@commun · 23.01.2016, 17:38

govorun, послушайте, а может зря этот напряг. Может проще надо. Работа стрелкой и Enter.
ПростоСброс.rar

@govorun · 23.01.2016, 17:53 **[ТС]**

Сообщение от commun

а может зря этот напряг. Может проще надо. Работа стрелкой и Enter.

Какой напряг....? У меня все работает....

@commun · 24.01.2016, 19:44

Сообщение от govorun

Какой напряг....?

Само поле хотя и имеет выпавший список, первоначально должно оставаться пустым.Для понта.

@govorun · 24.01.2016, 20:37 **[ТС]**

Сообщение от commun

первоначально должно оставаться пустым

Это понятно

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .

@commun 459 / 246 / 15 Регистрация: 29.10.2014 Сообщений: 1,084
	23.01.2016, 01:09
	Есть вариант Сброс.rar 1

@commun 459 / 246 / 15 Регистрация: 29.10.2014 Сообщений: 1,084
	23.01.2016, 17:38
	govorun, послушайте, а может зря этот напряг. Может проще надо. Работа стрелкой и Enter. ПростоСброс.rar 0