Временное отлючение прорисовки TextBox в форме MS Access

@Eugene-LS · Регистрация: 05.10.2016

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

Всех приветствую.
Что то я встал в тупик и прошу помощи добрых форумчан.

Итак:
на форме есть мультилайновый TextBox с довольно длинным тестом. А сверху него кнопки для авт. встаки в него (в позицию курсора) разных "текстовых значений"
Что происходит:
Я нажимаю на кнопку ... TextBox теряет фокус и прыгает на начало (перематывая ScrollБар в НОЛЬ позишен) - код вставляет нужный текст, и восстанавливает позицию курсора и положение вертикального ScrollБара.

Всё вроде чудесно!
Но хотелось бы избавиться от перемаргивания TextBox-а (мелочь) но не приятно.
Путь к совершенству бесконечен

Прошу помощи с решением.
Зрение всем признателен.

@Capi · 19.12.2017, 11:56

Eugene-LS,

Сделайте контрол Надпись (Label) вместо кнопки.
Сымитируйте кнопку визуальными эффектами при нажатии.
Фокус TextBox терять не будет.

@Eugene-LS · 19.12.2017, 12:24 **[ТС]**

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

делайте контрол Надпись (Label) вместо кнопки.
Сымитируйте кнопку визуальными эффектами при нажатии.

Спасибо!

Не совсем понял - КАК?
Вежливо соблюдаю правили форума ...
Выкрадываю исходный материал.

Покажите пожалуйста на моём примере.

@Capi · 19.12.2017, 12:32

Сообщение от Eugene-LS

Покажите пожалуйста на моём примере.

Хорошо.
А там какая версия? У меня 2007-ой.
Или просто сделать свой, если Ваш не смогу открыть?

Примерно в течение часа. Пока не у компьютера.

@commun · 19.12.2017, 12:40

Сообщение от Eugene-LS

и прыгает на начало

вот позицию курсора в ленточной форме можно запомнить(чтобы потом вернуться): Me.CurrentRecord, а вот что там с текстом? наверное прыгать будет обязательно и нужен возврат.

@Eugene-LS · 19.12.2017, 12:45 **[ТС]**

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

У меня 2007-ой.

Лепил на MSA 2010 - на 2007 должно пойти (там ничего лишнего + несколко API-шек)

Добавлено через 4 минуты

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

вот позицию курсора в ленточной форме можно запомнить(чтобы потом вернуться)

У формы есть hWnd - а у контрола нет.
Формы я давно умею "крутить" - вот разобрался с TextBox (вроде).

Вопрос в другом:
Как отключить его перерисовку на время потери фокуса и восстановления scrollbar-а и положения курсора?

@Capi · 19.12.2017, 14:04

Eugene-LS,

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

@Eugene-LS · 19.12.2017, 14:19 **[ТС]**

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

Вот.
Справа - Ваша кнопка, слева - моя надпись.

Качаю ...смотрю ....

Добавлено через 4 минуты

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

показать, как надпись притворяется кнопкой, чтобы не уходил курсор с текстбокса.

У меня MSA-2010 x86
И к сожалению, не сработало.
Положения курсора и полосы прокрутки сбрасываются на НОЛЬ при нажатии на "псевдо кнопку".

Но всё равно спасибо!.

Добавлено через 4 минуты
Capi, причем наблюдаю интересное поведение - если курсор был в конце текста - идёт сброс на прибл 50% положения скрола .... - щас код посмотрю....
Может я тороплюсь соишком с выводами.

@Capi · 19.12.2017, 14:23

Сообщение от Eugene-LS

к сожалению, не сработало.
Положения курсора и полосы прокрутки сбрасываются на НОЛЬ при нажатии на "псевдо кнопку".

При нажатии на надпись?
Маловероятно.
Надпись фокус на себя не забирает.

Сообщение от Eugene-LS

Но всё равно спасибо!.

Цитирую Вас же: "Для этого есть специальная кнопочка".

Добавлено через 2 минуты

Сообщение от Eugene-LS

причем наблюдаю интересное поведение - если курсор был в конце текста - идёт сброс на прибл 50%

Для начала поработайте с текстом в начальной части текстбокса - не прокручивая далеко вглубь.

@Eugene-LS · 19.12.2017, 14:27 **[ТС]**

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

Цитирую Вас же: "Для этого есть специальная кнопочка".

Так давно уже...

@Eugene-LS · 19.12.2017, 14:48 **[ТС]**

Дорогая и глубокоуважаемая Capi, спасибо большое за ваше внимание к моему вопросу.
Не получилось = ну бывает ...
Не страшно.
(я ещё плюсиков накликал - мне не жалко и даже приятно)

Надеюсь на знающие головы кои тут (надеюсь) бывают.
Повторяю вопрос:
Временное отлючение прорисовки TextBox в форме MS Access
Почему и зачем начертано выше.

Ещё раз спасибо - Пока!

mobile · 19.12.2017, 15:06

Сообщение от Eugene-LS

Временное отлючение прорисовки TextBox в форме MS Access

Visual Basic

1	Me.Painting=False 'True

@Capi · 19.12.2017, 15:07

Eugene-LS,

Моя надпись - СПРАВА, с надписью НеКнопка.
Второпях не так Вас сориентировала.

@Eugene-LS · 19.12.2017, 15:12 **[ТС]**

mobile, Думал я и про .Painting - это на уровне формы ..
А хотелось бы на уровне контрола (API) вариантик.
Спасибо за идею и участие.

... кстати щас попробую ... а вдруг!???

@Eugene-LS · 19.12.2017, 15:19 **[ТС]**

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

Моя надпись - СПРАВА, с надписью НеКнопка.

Это где?

@Capi · 19.12.2017, 15:23

Да, стрелка красная указывает верно.

@amd48 · 19.12.2017, 15:23

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

а вот что там с текстом?

У поля есть свойство SelStart. Отвечает за позицию текстового курсора в тексте. Через него можно и узнать текущее положение и задать его

mobile · 19.12.2017, 15:29

Сообщение от Eugene-LS

хотелось бы на уровне контрола (API) вариантик.

Ненадежно. Это же не настоящие окна и их Hwnd не всегда определяется правильно. Более или менее устойчиво если при фокусе в текстбоксе включить таймер и процедуре таймера смотреть hwnd.
А также: цитирую из другого форума

откуда взялись предположения, что элементы управления на акцессовской форме оконные, что окон много, HWND неизменны и т. д.? Возьмите Spy++ или аналог (WinSight32 и т. п.) для начала и посмотрите, из чего состоит форма.

Насчёт других путей: возьмите Inspect (https://msdn.microsoft.com/en-... s.85).aspx), и если информация, им выдаваемая, (п)окажется полезной, подключите к проекту библиотеку Microsoft Office xx.x Object Library и используйте скрытый в ней интерфейс IAccessible для получения доступа к этой информации

Захотите ли идти таким сложным путем?

Я использую апи для контролов при необходимости подвинуть внешнюю форму к контролу, например в полю табличной/ленточной формы, или к выделенному значению списка. Ну тут по другому и не подойдешь.

@Eugene-LS · 19.12.2017, 15:47 **[ТС]**

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

Ненадежно. Это же не настоящие окна и их Hwnd не всегда определяется правильно. Более или менее устойчиво если при фокусе в текстбоксе

Совершенно в дырочку!
Вопрос не простой - признаю.
hWnd (дескриптор окна TextBox в форме) можно выкрутасами получить пока в нём фокус.....
А была бы лёгкая задачка - я бы и не спрашивал.

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

А также: цитирую из другого форума

Я это уже читал ...

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

Захотите ли идти таким сложным путем?

Не факт.
И так всё замечательно работает, но вот просто хочется идеала .

Пёфекционизм = болезнь = согласен.

Данное пишу для себя любимого, и жил же как то жо этого ....
Ладно.
Больше глупых, ненужных и вредных вопросов задавать не стану.
Прошу простить великодушно.
Вмноват - исправлюсь (постараюсь).

@amd48 · 19.12.2017, 15:56

Эх... А моё SelStart проигнорировали. надписи, api, hwnd. Вот же вас в дебри понесло...

@Capi Модератор 6231 / 2909 / 707 Регистрация: 12.06.2016 Сообщений: 7,839
	19.12.2017, 15:07	13
	Eugene-LS, Моя надпись - СПРАВА, с надписью НеКнопка. Второпях не так Вас сориентировала. 1

mobile 26818 / 14497 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	19.12.2017, 15:29	18
	Сообщение от Eugene-LS хотелось бы на уровне контрола (API) вариантик. Ненадежно. Это же не настоящие окна и их Hwnd не всегда определяется правильно. Более или менее устойчиво если при фокусе в текстбоксе включить таймер и процедуре таймера смотреть hwnd. А также: цитирую из другого форума откуда взялись предположения, что элементы управления на акцессовской форме оконные, что окон много, HWND неизменны и т. д.? Возьмите Spy++ или аналог (WinSight32 и т. п.) для начала и посмотрите, из чего состоит форма. Насчёт других путей: возьмите Inspect (https://msdn.microsoft.com/en-... s.85).aspx), и если информация, им выдаваемая, (п)окажется полезной, подключите к проекту библиотеку Microsoft Office xx.x Object Library и используйте скрытый в ней интерфейс IAccessible для получения доступа к этой информации Захотите ли идти таким сложным путем? Я использую апи для контролов при необходимости подвинуть внешнюю форму к контролу, например в полю табличной/ленточной формы, или к выделенному значению списка. Ну тут по другому и не подойдешь. 0

Временное отлючение прорисовки TextBox в форме MS Access

Решение

Решение

@Eugene-LS 10911 / 5606 / 1423 Регистрация: 05.10.2016 Сообщений: 15,845
		1
	Временное отлючение прорисовки TextBox в форме MS Access 19.12.2017, 11:45. Показов 2331. Ответов 68 Метки нет (Все метки) Всех приветствую. Что то я встал в тупик и прошу помощи добрых форумчан. Итак: на форме есть мультилайновый TextBox с довольно длинным тестом. А сверху него кнопки для авт. встаки в него (в позицию курсора) разных "текстовых значений" Что происходит: Я нажимаю на кнопку ... TextBox теряет фокус и прыгает на начало (перематывая ScrollБар в НОЛЬ позишен) - код вставляет нужный текст, и восстанавливает позицию курсора и положение вертикального ScrollБара. Всё вроде чудесно! Но хотелось бы избавиться от перемаргивания TextBox-а (мелочь) но не приятно. Путь к совершенству бесконечен Прошу помощи с решением. Зрение всем признателен. 0

@Capi Модератор 6231 / 2909 / 707 Регистрация: 12.06.2016 Сообщений: 7,839
	19.12.2017, 11:56	2
	Eugene-LS, Сделайте контрол Надпись (Label) вместо кнопки. Сымитируйте кнопку визуальными эффектами при нажатии. Фокус TextBox терять не будет. 0

@Capi Модератор 6231 / 2909 / 707 Регистрация: 12.06.2016 Сообщений: 7,839
	19.12.2017, 12:32	4
	Сообщение от Eugene-LS Покажите пожалуйста на моём примере. Хорошо. А там какая версия? У меня 2007-ой. Или просто сделать свой, если Ваш не смогу открыть? Примерно в течение часа. Пока не у компьютера. 1

@commun 459 / 246 / 15 Регистрация: 29.10.2014 Сообщений: 1,079
	19.12.2017, 12:40	5
	Сообщение от Eugene-LS и прыгает на начало вот позицию курсора в ленточной форме можно запомнить(чтобы потом вернуться): Me.CurrentRecord, а вот что там с текстом? наверное прыгать будет обязательно и нужен возврат. 1

@Eugene-LS 10911 / 5606 / 1423 Регистрация: 05.10.2016 Сообщений: 15,845
	19.12.2017, 12:45 [ТС]	6
	Сообщение от Capi У меня 2007-ой. Лепил на MSA 2010 - на 2007 должно пойти (там ничего лишнего + несколко API-шек) Добавлено через 4 минуты Сообщение от commun вот позицию курсора в ленточной форме можно запомнить(чтобы потом вернуться) У формы есть hWnd - а у контрола нет. Формы я давно умею "крутить" - вот разобрался с TextBox (вроде). Вопрос в другом: Как отключить его перерисовку на время потери фокуса и восстановления scrollbar-а и положения курсора? 0

@Eugene-LS 10911 / 5606 / 1423 Регистрация: 05.10.2016 Сообщений: 15,845
	19.12.2017, 14:19 [ТС]	8
	Сообщение от Capi Вот. Справа - Ваша кнопка, слева - моя надпись. Качаю ...смотрю .... Добавлено через 4 минуты Сообщение от Capi показать, как надпись притворяется кнопкой, чтобы не уходил курсор с текстбокса. У меня MSA-2010 x86 И к сожалению, не сработало. Положения курсора и полосы прокрутки сбрасываются на НОЛЬ при нажатии на "псевдо кнопку". Но всё равно спасибо!. Добавлено через 4 минуты Capi, причем наблюдаю интересное поведение - если курсор был в конце текста - идёт сброс на прибл 50% положения скрола .... - щас код посмотрю.... Может я тороплюсь соишком с выводами. 0

@Capi Модератор 6231 / 2909 / 707 Регистрация: 12.06.2016 Сообщений: 7,839
	19.12.2017, 14:23	9
	Сообщение от Eugene-LS к сожалению, не сработало. Положения курсора и полосы прокрутки сбрасываются на НОЛЬ при нажатии на "псевдо кнопку". При нажатии на надпись? Маловероятно. Надпись фокус на себя не забирает. Сообщение от Eugene-LS Но всё равно спасибо!. Цитирую Вас же: "Для этого есть специальная кнопочка". Добавлено через 2 минуты Сообщение от Eugene-LS причем наблюдаю интересное поведение - если курсор был в конце текста - идёт сброс на прибл 50% Для начала поработайте с текстом в начальной части текстбокса - не прокручивая далеко вглубь. 1

@Eugene-LS 10911 / 5606 / 1423 Регистрация: 05.10.2016 Сообщений: 15,845
	19.12.2017, 14:27 [ТС]	10
	Сообщение от Capi Цитирую Вас же: "Для этого есть специальная кнопочка". Так давно уже... Миниатюры 0

@Eugene-LS 10911 / 5606 / 1423 Регистрация: 05.10.2016 Сообщений: 15,845
	19.12.2017, 14:48 [ТС]	11
	Дорогая и глубокоуважаемая Capi, спасибо большое за ваше внимание к моему вопросу. Не получилось = ну бывает ... Не страшно. (я ещё плюсиков накликал - мне не жалко и даже приятно) Надеюсь на знающие головы кои тут (надеюсь) бывают. Повторяю вопрос: Временное отлючение прорисовки TextBox в форме MS Access Почему и зачем начертано выше. Ещё раз спасибо - Пока! 0

@Eugene-LS 10911 / 5606 / 1423 Регистрация: 05.10.2016 Сообщений: 15,845
	19.12.2017, 15:12 [ТС]	14
	mobile, Думал я и про .Painting - это на уровне формы .. А хотелось бы на уровне контрола (API) вариантик. Спасибо за идею и участие. ... кстати щас попробую ... а вдруг!??? 0

	19.12.2017, 15:56

@Eugene-LS 10911 / 5606 / 1423 Регистрация: 05.10.2016 Сообщений: 15,845
	19.12.2017, 15:19 [ТС]	15
	Сообщение от Capi Моя надпись - СПРАВА, с надписью НеКнопка. Это где? Миниатюры 0

@Capi Модератор 6231 / 2909 / 707 Регистрация: 12.06.2016 Сообщений: 7,839
	19.12.2017, 15:23	16
	Да, стрелка красная указывает верно. 0

@amd48 842 / 473 / 79 Регистрация: 18.05.2016 Сообщений: 1,255 Записей в блоге: 4
	19.12.2017, 15:23	17
	Сообщение от commun а вот что там с текстом? У поля есть свойство SelStart. Отвечает за позицию текстового курсора в тексте. Через него можно и узнать текущее положение и задать его 0

@Eugene-LS 10911 / 5606 / 1423 Регистрация: 05.10.2016 Сообщений: 15,845
	19.12.2017, 15:47 [ТС]	19
	Сообщение от mobile Ненадежно. Это же не настоящие окна и их Hwnd не всегда определяется правильно. Более или менее устойчиво если при фокусе в текстбоксе Совершенно в дырочку! Вопрос не простой - признаю. hWnd (дескриптор окна TextBox в форме) можно выкрутасами получить пока в нём фокус..... А была бы лёгкая задачка - я бы и не спрашивал. Сообщение от mobile А также: цитирую из другого форума Я это уже читал ... Сообщение от mobile Захотите ли идти таким сложным путем? Не факт. И так всё замечательно работает, но вот просто хочется идеала . Пёфекционизм = болезнь = согласен. Данное пишу для себя любимого, и жил же как то жо этого .... Ладно. Больше глупых, ненужных и вредных вопросов задавать не стану. Прошу простить великодушно. Вмноват - исправлюсь (постараюсь). 0