ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Всплывающие подсказки
10 сообщений из 10, страница 1 из 1
Всплывающие подсказки
    #32502094
Фотография Jojo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jojo
Участник
Привет всем
Конечна вопрос ламерский
нужно сделать всплывающую подсказку для TextBox при наведении мыши
в дельфи это свойство обзывается hint,а в VBA ...?

Jojo®
...
Рейтинг: 0 / 0
29.04.2004, 11:06
| Ответить | Цитировать | Написать  
Всплывающие подсказки
    #32502107
Фотография Jojo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jojo
Участник
Уже не нада
Нашел :)
ControlTipText

Jojo®
...
Рейтинг: 0 / 0
29.04.2004, 11:11
| Ответить | Цитировать | Написать  
Всплывающие подсказки
    #32502150
Фотография Jojo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jojo
Участник
Как сделать так чтоб над своим TextBox была своя подсказка ?
а то я нажимаю сначала кнопку "обзор" ...выбираю путь
потом вторую кнопку "обзор" ...выбираю путь ...высвечивается только последняя вспл подсказка ...

Jojo®
...
Рейтинг: 0 / 0
29.04.2004, 11:23
| Ответить | Цитировать | Написать  
Всплывающие подсказки
    #32502202
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
Всем контролам задать ControlTipText
...
Рейтинг: 0 / 0
29.04.2004, 11:42
| Ответить | Цитировать | Написать  
Всплывающие подсказки
    #32502243
Фотография Jojo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jojo
Участник
Private Sub BtEP_Click()
CommonDialog1.Filter = "Файлы Excel (*.xls)| *.xls" 'Фильтр для открытия файла
CommonDialog1.InitDir = "C:\"
CommonDialog1.Action = 1 'Или же CommonDialog1.ShowOpen
If CommonDialog1.Filename = "" Then 'Если файл не выбран,
MsgBox "Файл не задан ! ", vbOKOnly + vbCritical 'сообщение, что файл не найден,
Else
TbEP.Text = CommonDialog1.Filename 'иначе вставляем в TextBox имя выбранного файла
End If
End Sub

Private Sub BtPeredacha_Click()
CommonDialog1.Filter = "Файлы Excel (*.xls)| *.xls" 'Фильтр для открытия файла
CommonDialog1.InitDir = "C:\"
CommonDialog1.Action = 1 'Или же CommonDialog1.ShowOpen
If CommonDialog1.Filename = "" Then 'Если файл не выбран,
MsgBox "Файл не задан ! ", vbOKOnly + vbCritical 'сообщение, что файл не найден,
Else
TbPd.Text = CommonDialog1.Filename 'иначе вставляем в TextBox имя выбранного файла
End If
End Sub

Private Sub TbEP_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TbEP.ControlTipText = CommonDialog1.Filename
End Sub

Private Sub TbPd_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TbPd.ControlTipText = CommonDialog1.Filename
End Sub


Jojo®
...
Рейтинг: 0 / 0
29.04.2004, 11:54
| Ответить | Цитировать | Написать  
Всплывающие подсказки
    #32502246
Фотография Jojo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jojo
Участник
Дело в том что при наведении на все TextBox подсказка ...последнего выбора
Jojo®
...
Рейтинг: 0 / 0
29.04.2004, 11:55
| Ответить | Цитировать | Написать  
Всплывающие подсказки
    #32502272
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
Ничего не понял :(

Почему TipText надо менять при движении мышки?
Сразу после выбора файла нельзя?

И у мну почемуто у текстового поля это свойство называется ToolTipText
(Может у нас разные версии? У мну 6.0)

Вот такой кусок кода у меня работает (подсказка изменяется в реальном времени):
Код: plaintext
1.
2.
3.
Private Sub Timer1_Timer()
    Text1.ToolTipText = Text1.ToolTipText +  1 
End Sub
...
Рейтинг: 0 / 0
29.04.2004, 12:02
| Ответить | Цитировать | Написать  
Всплывающие подсказки
    #32502292
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
Как сделать так чтоб над своим TextBox была своя подсказка ?
а то я нажимаю сначала кнопку "обзор" ...выбираю путь
потом вторую кнопку "обзор" ...выбираю путь ...высвечивается только последняя вспл подсказка

Бррр...
Понял :)

вы при движении мышки над полем задаете ему значение из объекта CommonDialog1, который у вас один на двоих :)

причем будет и другая грабля:
1. выбираем не сущ. файл
2. получаем сообщение об ошибке
3. но ToolTip у нас меняется :)


Надо так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
...
Else 
TbEP.Text = CommonDialog1.Filename 'иначе вставляем в TextBox имя выбранного файла 
TbEP.ControlToolTip = TbEP.Text
End If
...

...
Else 
TbPd.Text = CommonDialog1.Filename 'иначе вставляем в TextBox имя выбранного файла 
TbPd.ControlToolTip = TbPd.Text
End If 
...
...
Рейтинг: 0 / 0
29.04.2004, 12:07
| Ответить | Цитировать | Написать  
Всплывающие подсказки
    #32502297
Фотография Jojo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jojo
Участник
Спасибо всем вроде работет !

Млин сначала тоже и так делал ...
но при выборе глюки были

Private Sub BtEP_Click()
CommonDialog1.Filter = "Файлы Excel (*.xls)| *.xls" 'Фильтр для открытия файла
CommonDialog1.InitDir = "C:\"
CommonDialog1.Action = 1 'Или же CommonDialog1.ShowOpen
If CommonDialog1.Filename = "" Then 'Если файл не выбран,
MsgBox "Файл не задан ! ", vbOKOnly + vbCritical 'сообщение, что файл не найден,
Else
TbEP.Text = CommonDialog1.Filename 'иначе вставляем в TextBox имя выбранного файла
TbEP.ControlTipText = CommonDialog1.Filename
End If
End Sub

Jojo®
...
Рейтинг: 0 / 0
29.04.2004, 12:08
| Ответить | Цитировать | Написать  
Всплывающие подсказки
    #32502301
Фотография Jojo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jojo
Участник
To paparome
Спасибо , моя ошиба то что я делал на Move - Mouse

Jojo®
...
Рейтинг: 0 / 0
29.04.2004, 12:10
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Всплывающие подсказки
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]