Can you add a linefeed programicably?

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

Thanks - Kirk

It can only be one line long.

On Sat, 14 Feb 2009 20:27:01 -0800, Kenneth Hobson
<(E-Mail Removed)> wrote:

>It can only be one line long.

Thanks... so be it !

Cheers - Kirk

On Sun, 15 Feb 2009 05:42:36 +0000, Oorang
<(E-Mail Removed)> wrote:

>
>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...

On Sun, 15 Feb 2009 07:46:37 +0000, Simon Lloyd
<(E-Mail Removed)> wrote:

>
>Don't use the string $, you can use a number of ways
>Code:
>--------------------
> MsgBox "This is a" & vbLf & "test for" & Chr(10) & "adding new" & vbNewLine & "Lines!"
>

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

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



kirkm wrote:
>
> Can you add a linefeed programicably?
>
> I'm finding chr$(13) and vblf etc. just print a square in the text.
>
> Thanks - Kirk

--

Dave Peterson

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