Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > ToolTipText - на нескольких строках

Автор: Aleksandr 6.12.2003, 02:53

Каким образом можно сделать ToolTipText - на нескольких строках? А то бывают длинные подсказки, так что на монитор не влезают

Автор: Vach 6.12.2003, 04:45

Управляющих символов точно нету, может через всемогущие API и можно.
(такова я не видел даже в микрософтофских перлах)
Иначе придется присмотреться к выражению "краткость сестра таланта".

Автор: Vach 6.12.2003, 04:56

Гы гы гы. Я ошибался, вот http://www.mvps.org/btmtz/tooltip/ как все работает.

Автор: Aleksandr 6.12.2003, 17:18

Благодарю. Уже скачал - смотрю...

Автор: Aleksandr 6.12.2003, 17:44

Мда... Работать-то работает... Только все больно мудреное для меня

Я пока начинающий (стаж - один семестр). Как я понял там надо прикрутить сначала какой-то внешний класс (кстати, что это, напомните), а потом, используя его уже крутить... И коментарии, блин, на буржуйском

Автор: cardinal 6.12.2003, 21:40

Ничего сложного на самом деле тут нет. Вся работа уже как бы умным чуваком 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

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

Успехов!