Assigning control tip text

[kirkm]

Can you add a linefeed programicably?

I'm finding chr$(13) and vblf etc. just print a square in the text.

Thanks - Kirk

 

[Kenneth Hobson]

It can only be one line long.

 

[kirkm]

It can only be one line long.

Thanks... so be it !

Cheers - Kirk

 

[kirkm]

vbLf should work fine.

Code:
--------------------
Sub Test()
Selection.Value = "Did it " & vbLf & "work?"
End Sub

--------------------

Seems the answer is No, not in a control tip text string.

Hope that's right... so often there's more to it...

 

[kirkm]

Don't use the string $, you can use a number of ways
Code:

Gotcha. But again not in the control text enviroment.
Thanks - Kirk

 

[Dave Peterson]

Is this on a userform?

If yes:

Saved from a previous post.

How about just putting a label over the control and that control in a frame.

Then when you mouse over the frame, it'll hide the label. But when you mouse
over the control, you'll show the label.

Option Explicit
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Label1.Visible = True
End Sub
Private Sub Frame1_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Label1.Visible = False
End Sub

 

[Kenneth Hobson]

Similar to what Dave said, here is another Label method for a pseudo tooltip
method on a userform.

Private Sub UserForm_Initialize()
Label1.Visible = False
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Label1.Visible = False
End Sub

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
With Label1
.Caption = "CommandButton1:" & vbCrLf & "Line2"
.Left = CommandButton1.Left
.Top = CommandButton1.Top - 30
.Visible = True
End With
End Sub