Is that possible, if so how?
Printable View
Is that possible, if so how?
not without some measure of help..ocx or you could do this.Code:Option Explicit
Private Sub Form_Load()
Label1.AutoSize = True
Label1.Alignment = 2
Label1.Appearance = 0
Label1.BackColor = &HC0FFFF
Label1.BackStyle = 1 - Opaque
Label1.BorderStyle = 1
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 + Y
Label1.Left = Command1.Left + X
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
'use this code in any control near the label as you want to capture
'the event when off the label
Private Sub Form_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Label1.Visible = False
End Sub