Formatting text in a textbox to show separate lines

  • Thread starter Thread starter L Mehl
  • Start date Start date
L

L Mehl

Hello --

I want to populate a textbox so user can copy any or all of its information
to another field.

Contents of the text box are built up by parsing a text string and repeating
in a loop:

strComment = strComment & _
vbCrLf & _
Trim(strTempText)

where strTempText is the parsed/loop value

The desired result looks like separate lines:

Start time: 1059167091
End time: 1059167104
Proto: TCP
Source IP: 216.218.241.95
Source name: abc.com
src port: 20
Dest IP: 102.999.50.12
Dest name: eleuthera
Dest port: 1060
Connection number: 1
Total packets: 641
Total payload: 931760

I am able to get this format when I display a message box containing the
final value of strComment.

However, when I put the final value of strComment in a textbox, it appears
as one long string.

Can someone help me build strComment so that it appears in a textbox looking
like separate lines?

Thanks for any help.

Larry Mehl
 
What type of textbox - from the drawing toolbar (on a worksheet) or from the
control toolbox toolbar (on a worksheet or on a userform)?
 
This worked for me as an example. Make sure your textbox is wide enough:

Public sStr As String

Sub Showform()
sStr = _
"Start time: 1059167091" & vbCrLf & _
"End time: 1059167104" & vbCrLf & _
"Proto: TCP" & vbCrLf & _
"Source IP: 216.218.241.95" & vbCrLf & _
"Source Name: abc.com" & vbCrLf & _
"src port: 20" & vbCrLf & _
"Dest IP: 102.999.50.12" & vbCrLf & _
"Dest Name: eleuthera" & vbCrLf & _
"Dest port: 1060" & vbCrLf & _
"Connection number: 1" & vbCrLf & _
"Total packets: 641" & vbCrLf & _
"Total payload: 931760"
With UserForm1
' .TextBox1.WordWrap = True
.TextBox1.MultiLine = True
.TextBox1.Text = sStr
.Show
End With
End Sub
 
Tom --

Thank you for helping me.

It worked for me, too. I use it to enable the user to cut and paste from it
when creating the Legend text.

My error was forgetting to set WordWrap and MultiLine = True.

I had gotten a RichTextBox to work, but was not sure if distributing the xls
to others would cause install problems.

Larry
 
Back
Top