Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Всплывающие подсказки / 10 сообщений из 10, страница 1 из 1
29.04.2004, 11:06
    #32502094
Jojo
Jojo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Всплывающие подсказки
Привет всем
Конечна вопрос ламерский
нужно сделать всплывающую подсказку для TextBox при наведении мыши
в дельфи это свойство обзывается hint,а в VBA ...?

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

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

Jojo®
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.04.2004, 11:42
    #32502202
paparome
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Всплывающие подсказки
Всем контролам задать ControlTipText
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.04.2004, 11:54
    #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:55
    #32502246
Jojo
Jojo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Всплывающие подсказки
Дело в том что при наведении на все TextBox подсказка ...последнего выбора
Jojo®
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.04.2004, 12:02
    #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:07
    #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:08
    #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:10
    #32502301
Jojo
Jojo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Всплывающие подсказки
To paparome
Спасибо , моя ошиба то что я делал на Move - Mouse

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


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