При наведении курсора мыши на ПОЛЕ,чтобы появился весь текст

@Scrat2005 · Регистрация: 04.01.2017

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

Добрый времени суток народ! Есть форма, есть поле с длинным текстом, которое не видимо на ширину поля.
Как сделать так, чтобы при наведении курсора мыши на ПОЛЕ появлялся весь текст. Как примечание в екселе.
Такое возможно?
Заранее благодарен за отклик...

@Chehonte · 07.02.2017, 12:27

В конструкторе формы выбираете нужное поле. Затем "Свойства-Другие" и в поле всплывающая подсказка пишете нужный текст

@Scrat2005 · 07.02.2017, 13:31 **[ТС]**

Спасибо за отклик! Блин, недосказал мысль....
может через картинку понятно будет...вроде вложил...)))

@Scrat2005 · 07.02.2017, 18:11 **[ТС]**

а кроме "свойства-другие-всплывающая..." есть пути решения? Подскажите, намекните...ещ что-нибудь, если есть...

@ltv_1953 · 07.02.2017, 19:00

Есть еще свойство «Текст строки состояния» (StatusBarText), если обновлять его по событию "Получение фокуса (GotFocus)", то будет отображаться внизу, в строке состояния. Но все это для текста не более 255 символов.

shanemac51 · 07.02.2017, 19:08

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

Но все это для текста не более 255 символов.

я делала диалоговую форму-окно для показа длинных текстов по клику на поле
или поле в примечании до 254 символов

mobile · 07.02.2017, 19:10

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

а кроме "свойства-другие-всплывающая..." есть пути решения? Подскажите, намекните...ещ что-нибудь, если есть...

Много чего всякого есть. Кроме уже перечисленного можно программно конструировать строку подсказки, можно раздвигать поле или менять ему шрифт на более мелкий, можно вызывать тултипы разных видов или всплывающую форму. Всегда выбор по ситуации с учетом множества факторов, действующих на интерфейс.

@Scrat2005 · 07.02.2017, 19:35 **[ТС]**

АУ, Народ! Вы где? Неужели, опять непонятно написал...???-

, вернее картинку непонятную выложил?

Добавлено через 6 минут
Спасибоmobile, хоть кто-то отозвался. Я "чайник" в аксе и не только....Поэтому растолкуйте про тултип, если можно картинкой и про форму тоже....

Добавлено через 2 минуты
или дайте ссылку на форуме или в инете...хотя бы глазами пощупать, если умом не получается...))) Блогадарю...

Добавлено через 2 минуты
{{tooltip|надпись|пояснение к надписи}} вот это????

@Jamaica · 07.02.2017, 20:44

Ну вот пример на посчупать.
Он не целиком решает поставленную задачу, а лишь в качестве показать,
что "легкого" решения этой задачи не будет.

Что не сделано:
1. Нет полного вычисления необходимости показывать подсказку.
Пока просто прописана константа в 32 символа в качестве порога.
2. Нет расчета необходимых размеров надписи подсказки для вывода текста полностью.
3. Нет механизма вариантного позиционирования надписи подсказки.
Если размеры надписи выйдут за пределы секции/формы будет ошибка и краш.

@Scrat2005 · 07.02.2017, 21:46 **[ТС]**

Народ спасибо всем за отклики! Буду разбираться.....

Добавлено через 6 минут
чето я не понял! Все отлики до ответа Mobile, появились только сейчас. На экране я видел только отклик от Mobile.... Странная какая-то ситуация.... а я пишу "АУ Народ....." )))). Хотя периодически нажимал F5....темные-темные электрические силы что ли ))).

mobile · 07.02.2017, 21:54

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

растолкуйте про тултип

Пример от Волшебника 307 - Всплывающие подсказки

@Agapov_stas · 08.02.2017, 08:27

Как вариант, написать функцию, которая бы назначала ControlTipText контрола исходя из текста в нем.

Visual Basic

Private Function toolTipInfo()
Dim ctl As Object
For Each ctl In Me.Controls
    With ctl
    Select Case .ControlType
        Case acTextBox
            ctl.ControlTipText = ctl.Value
        Case acComboBox
            ctl.ControlTipText = ctl.Text
        Case Else
        
    End Select
End With
Next ctl
End Function

И вызывать ее, к примеру на Form_Load().

@Scrat2005 · 08.02.2017, 09:00 **[ТС]**

Agapov_stas, Спасибо за отклик... Для меня это конешно китайская грамота, но все же...
---For Each ctl In Me.Controls --
Controls - это поле или какая-то постоянная???
т.е. в переменную ctl загоняются значения из Controls?

@Agapov_stas · 08.02.2017, 09:21

Visual Basic

1	For Each ctl In Me.Controls

- проходим по каждому контролу(ctl) коллекции контролов(Controls) текущей формы(Me).
С Case проверяем тип контрола(ControlType), к примеру если Combobox, то можно вывести значение столбца/колонки с текстом(.Column(index)).

@Scrat2005 · 08.02.2017, 10:52 **[ТС]**

Понятно...Спасибо

@Scrat2005 · 09.02.2017, 19:15 **[ТС]**

Доброго времени суток господа-товарищи!
Нашел здесь вот такую тему: "Всплывающая подсказка при наведении мыши на поле - MS Access" - 22.07.2014
Вот оттуда и применил коды(извиняюсь за копипаст). Классно, меня в принципе устраивает... Применил вариант Кода при нажатии на поле от CORBIS`a. В Примечании формы он поставил поле на всю длину и копирует значение нужных полей.
Есть еще вариант. Повесить событие на "Перемещение указателя", тоже классный, но есть одно НО, как же без этого...))).Если поле пустое, выдает ошибку: что поле пустое. А как мне от него избавится? Куда и что прописать, чтобы он игнорировал пустое поле.

@alvk · 10.02.2017, 08:51

Visual Basic

1	nz("полекотороепустое", "что писать")

@Scrat2005 · 10.02.2017, 10:56 **[ТС]**

Спасибо!

@Scrat2005 · 15.02.2017, 11:19 **[ТС]**

Добрый день! при наведении мышки на пустое поле ошибка.

Visual Basic

1
2
3

Private Sub пр_орг_адрес_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Me.пр_орг_адрес.ControlTipText = Me.пр_орг_адрес
End Sub

Подсказку, которую мне дали вроде как не подходит. Мне не надо прописывать в пустые поля ничего. Они должны быть проигнорированы при наведении...

mobile · 15.02.2017, 11:46

Если поле пустое, то надо "обнулить" подсказку и выйти из процедуры

Visual Basic

Private Sub пр_орг_адрес_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  if Me.пр_орг_адрес & "" = "" then 
    Me.пр_орг_адрес.ControlTipText="" 
    exit sub
  End If
  Me.пр_орг_адрес.ControlTipText = Me.пр_орг_адрес
End Sub

@Scrat2005 2 / 2 / 1 Регистрация: 04.01.2017 Сообщений: 166
	09.02.2017, 19:15 [ТС]	16
	Доброго времени суток господа-товарищи! Нашел здесь вот такую тему: "Всплывающая подсказка при наведении мыши на поле - MS Access" - 22.07.2014 Вот оттуда и применил коды(извиняюсь за копипаст). Классно, меня в принципе устраивает... Применил вариант Кода при нажатии на поле от CORBIS`a. В Примечании формы он поставил поле на всю длину и копирует значение нужных полей. Есть еще вариант. Повесить событие на "Перемещение указателя", тоже классный, но есть одно НО, как же без этого...))).Если поле пустое, выдает ошибку: что поле пустое. А как мне от него избавится? Куда и что прописать, чтобы он игнорировал пустое поле. Миниатюры 0

@Chehonte 3 / 3 / 0 Регистрация: 08.10.2013 Сообщений: 308
	07.02.2017, 12:27	2
	В конструкторе формы выбираете нужное поле. Затем "Свойства-Другие" и в поле всплывающая подсказка пишете нужный текст 1

@Scrat2005 2 / 2 / 1 Регистрация: 04.01.2017 Сообщений: 166
	07.02.2017, 13:31 [ТС]	3
	Спасибо за отклик! Блин, недосказал мысль.... может через картинку понятно будет...вроде вложил...))) Миниатюры 0

@Scrat2005 2 / 2 / 1 Регистрация: 04.01.2017 Сообщений: 166
	07.02.2017, 18:11 [ТС]	4
	а кроме "свойства-другие-всплывающая..." есть пути решения? Подскажите, намекните...ещ что-нибудь, если есть... 0

@ltv_1953 17487 / 7249 / 1651 Регистрация: 21.06.2012 Сообщений: 13,865
	07.02.2017, 19:00	5
	Есть еще свойство «Текст строки состояния» (StatusBarText), если обновлять его по событию "Получение фокуса (GotFocus)", то будет отображаться внизу, в строке состояния. Но все это для текста не более 255 символов. 1

shanemac51 Модератор 11962 / 4830 / 779 Регистрация: 07.08.2010 Сообщений: 14,144 Записей в блоге: 4
	07.02.2017, 19:08	6
	Сообщение от ltv_1953 Но все это для текста не более 255 символов. я делала диалоговую форму-окно для показа длинных текстов по клику на поле или поле в примечании до 254 символов 1

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	07.02.2017, 19:10	7
	Сообщение от Scrat2005 а кроме "свойства-другие-всплывающая..." есть пути решения? Подскажите, намекните...ещ что-нибудь, если есть... Много чего всякого есть. Кроме уже перечисленного можно программно конструировать строку подсказки, можно раздвигать поле или менять ему шрифт на более мелкий, можно вызывать тултипы разных видов или всплывающую форму. Всегда выбор по ситуации с учетом множества факторов, действующих на интерфейс. 1

@Scrat2005 2 / 2 / 1 Регистрация: 04.01.2017 Сообщений: 166
	07.02.2017, 19:35 [ТС]	8
	АУ, Народ! Вы где? Неужели, опять непонятно написал...???-, вернее картинку непонятную выложил? Добавлено через 6 минут Спасибоmobile, хоть кто-то отозвался. Я "чайник" в аксе и не только....Поэтому растолкуйте про тултип, если можно картинкой и про форму тоже.... Добавлено через 2 минуты или дайте ссылку на форуме или в инете...хотя бы глазами пощупать, если умом не получается...))) Блогадарю... Добавлено через 2 минуты {{tooltip\|надпись\|пояснение к надписи}} вот это???? 0

@Scrat2005 2 / 2 / 1 Регистрация: 04.01.2017 Сообщений: 166
	07.02.2017, 21:46 [ТС]	10
	Народ спасибо всем за отклики! Буду разбираться..... Добавлено через 6 минут чето я не понял! Все отлики до ответа Mobile, появились только сейчас. На экране я видел только отклик от Mobile.... Странная какая-то ситуация.... а я пишу "АУ Народ....." )))). Хотя периодически нажимал F5....темные-темные электрические силы что ли ))). 0

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	07.02.2017, 21:54	11
	Сообщение от Scrat2005 растолкуйте про тултип Пример от Волшебника 307 - Всплывающие подсказки 1

@Scrat2005 2 / 2 / 1 Регистрация: 04.01.2017 Сообщений: 166
	08.02.2017, 09:00 [ТС]	13
	Agapov_stas, Спасибо за отклик... Для меня это конешно китайская грамота, но все же... ---For Each ctl In Me.Controls -- Controls - это поле или какая-то постоянная??? т.е. в переменную ctl загоняются значения из Controls? 0

@Scrat2005 2 / 2 / 1 Регистрация: 04.01.2017 Сообщений: 166
	08.02.2017, 10:52 [ТС]	15
	Понятно...Спасибо 0

@Scrat2005 2 / 2 / 1 Регистрация: 04.01.2017 Сообщений: 166
	10.02.2017, 10:56 [ТС]	18
	Спасибо! 0