Results 1 to 6 of 6

Thread: OK guys and girls, where is the ultimate

  1. #1

    Thread Starter
    New Member
    Join Date
    Aug 2000
    Posts
    5

    Wink

    multiline ToolTipText solution????????
    object.ToolTipText= "First line" & vbNewLine & "Next line"
    Does not work!
    object.ToolTipText= "First line" & vbCRLf & "Next line"
    Doesn't!
    Help!!!!!!






  2. #2
    I'm about to be a PowerPoster! Joacim Andersson's Avatar
    Join Date
    Jan 1999
    Location
    Sweden
    Posts
    14,649
    I'm sorry, but the built in ToolTipText window can't have multiple lines. You have to exchange it to an other control.
    There are a lot of bubble controls out there that can be used as tooltips.

  3. #3
    _______ HeSaidJoe's Avatar
    Join Date
    Jun 1999
    Location
    Canada
    Posts
    3,946

    <?>

    'the ultimate walk around, if you don't tell, no one
    will know it isn't a multiline tooltip.
    Code:
    'create multil line tag tips...same use as tool tips except
    'that with tool tips you are restricted to one line..
    'with tag tips you get multiline
    'remember to set the height and width of your 
    'label to fit your message
    '
    'this example uses a command button (command1) & a label (label1)
    '
    'on mouse over the command button the tool tag is displayed
    '
    Private Sub Form_Load()
       
       Label1.BackStyle = 0    'or 1 and set the backcolor to tooltip color
       Label1.Visible = False
       
    End Sub
    
    Private Sub Command1_MouseMove(Button As Integer, _
    Shift As Integer, X As Single, Y As Single)
         
         Dim msg$
         msg$ = "Tag tips for the beginner." & vbCrLf
         msg$ = msg$ & "Multil Line Tag Tips Made Easy" & vbCrLf
         msg$ = msg$ & "Think of the possibilities!"
             
         
         Command1.Tag = msg$
    
         Label1.Caption = Command1.Tag
         Label1.Top = Command1.Top + Command1.Height
         Label1.Left = Command1.Left + Command1.Width / 2
         Label1.Visible = True
         
    End Sub
    
    Private Sub Label1_MouseMove(Button As Integer, _
    Shift As Integer, X As Single, Y As Single)
       
       Label1.Visible = False
       
    End Sub
    
    Private Sub Form_MouseMove(Button As Integer, _
    Shift As Integer, X As Single, Y As Single)
       
       Label1.Visible = False
       
    End Sub
    "A myth is not the succession of individual images,
    but an integerated meaningful entity,
    reflecting a distinct aspect of the real world."

    ___ Adolf Jensen

  4. #4

    Thread Starter
    New Member
    Join Date
    Aug 2000
    Posts
    5

    Thumbs up Thank you! :-)

    x

  5. #5
    I'm about to be a PowerPoster! Joacim Andersson's Avatar
    Join Date
    Jan 1999
    Location
    Sweden
    Posts
    14,649
    The problem with HeSaidJoe's code is that a label can't be on top of the ZOrder.
    Put an other command button just under Command1 and you can't see the label.

  6. #6
    _______ HeSaidJoe's Avatar
    Join Date
    Jun 1999
    Location
    Canada
    Posts
    3,946

    <?>

    solution:
    Just add the mousemove events to anything around the given area you are using.
    "A myth is not the succession of individual images,
    but an integerated meaningful entity,
    reflecting a distinct aspect of the real world."

    ___ Adolf Jensen

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width