Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> ToolTipText - на нескольких строках 
:(
    Опции темы
Aleksandr
Дата 6.12.2003, 02:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 4.12.2003

Репутация: нет
Всего: нет
Каким образом можно сделать ToolTipText - на нескольких строках? А то бывают длинные подсказки, так что на монитор не влезают smile.gif
PM MAIL   Вверх
Vach
Дата 6.12.2003, 04:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 304
Регистрация: 17.10.2003
Где: Санкт-Петербург

Репутация: 8
Всего: 18
Управляющих символов точно нету, может через всемогущие API и можно.
(такова я не видел даже в микрософтофских перлах)
Иначе придется присмотреться к выражению "краткость сестра таланта". smile.gif
PM MAIL ICQ   Вверх
Vach
Дата 6.12.2003, 04:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 304
Регистрация: 17.10.2003
Где: Санкт-Петербург

Репутация: 8
Всего: 18
Гы гы гы. Я ошибался, вот пример как все работает.
PM MAIL ICQ   Вверх
Aleksandr
Дата 6.12.2003, 17:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 4.12.2003

Репутация: нет
Всего: нет
Благодарю. Уже скачал - смотрю...
PM MAIL   Вверх
Aleksandr
Дата 6.12.2003, 17:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 4.12.2003

Репутация: нет
Всего: нет
Мда... Работать-то работает... Только все больно мудреное для меня smile.gif Я пока начинающий (стаж - один семестр). Как я понял там надо прикрутить сначала какой-то внешний класс (кстати, что это, напомните), а потом, используя его уже крутить... И коментарии, блин, на буржуйском smile.gif
PM MAIL   Вверх
cardinal
Дата 6.12.2003, 21:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Ничего сложного на самом деле тут нет. Вся работа уже как бы умным чуваком Martinez`ом сделана. Все что тебе осталось понять - это вот это:

Код
Option Explicit
'
' Copyright © 1997-1999 Brad Martinez, http://www.mvps.org
'
Dim m_cTT As New cTooltip
'

Private Sub Form_Load()
 Dim ctrl As Control
 
 With m_cTT
   
   ' создаешь окно tooltip
  Call .Create(Me)

   ' устанавливаешь ширину, для показа нескольких строк,
   ' каждая из которых не шире примерно 240 пиксель
   .MaxTipWidth = 240

   ' устанавливаешь вермя показа tooltip окна на 20 сек
   .DelayTime(ttDelayShow) = 20000
   
   ' добавляешь tooltip tool к каждому control на форме
   For Each ctrl In Controls: Call .AddTool(ctrl): Next
   
   ' устанавливаешь текст для Command1
   .ToolText(Command1) = "A excessively long line of text just to demonstrate multiple lines of text in a tooltip control." _
                                         & vbCrLf & vbCrLf & vbTab & _
                                         "And if MaxTipWidth isn't set to -1, text formatting characters will be evaluated too..."
   
   ' устанавливаешь текст для Text1
   .ToolText(Text1) = " You can make pretty pictures too... :-) " & vbCrLf & vbCrLf & _
     "                          !!!!!!!" & vbCrLf & _
     "                          (ф  ф)" & vbCrLf & _
     "          +-----oOO----(_)----------------+" & vbCrLf & _
     "           |        Got a special        |" & vbCrLf & _
     "           |           message?          |" & vbCrLf & _
     "          +------------------------oOO-----+" & vbCrLf & _
     "                        |__|  |__|" & vbCrLf & _
     "                          ||      ||" & vbCrLf & _
     "                      ooO   Ooo"
 End With   ' m_cTT

End Sub


Вот как бы и все! Надо просто немного покумекать и все станет ясно. rolleyes.gif
Успехов!


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0464 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.