ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Formatting text in a textbox to show separate lines (https://www.excelbanter.com/excel-programming/292208-formatting-text-textbox-show-separate-lines.html)

L Mehl
Formatting text in a textbox to show separate lines
 
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



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.581 / Virus Database: 368 - Release Date: 2/9/2004

Tom Ogilvy
Formatting text in a textbox to show separate lines
 
What type of textbox - from the drawing toolbar (on a worksheet) or from the
control toolbox toolbar (on a worksheet or on a userform)?

--
Regards,
Tom Ogilvy

"L Mehl" wrote in message
...
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



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.581 / Virus Database: 368 - Release Date: 2/9/2004

L Mehl
Formatting text in a textbox to show separate lines
 
Hi Tom --

Sorry for the vague description.

This is a textbox on a userform.

Larry


"Tom Ogilvy" wrote in message
...
What type of textbox - from the drawing toolbar (on a worksheet) or from
the
control toolbox toolbar (on a worksheet or on a userform)?

--
Regards,
Tom Ogilvy

"L Mehl" wrote in message
...
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



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.581 / Virus Database: 368 - Release Date: 2/9/2004






---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.581 / Virus Database: 368 - Release Date: 2/9/2004

Tom Ogilvy
Formatting text in a textbox to show separate lines
 
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


--
Regards,
Tom Ogilvy

"L Mehl" wrote in message
...
Hi Tom --

Sorry for the vague description.

This is a textbox on a userform.

Larry


"Tom Ogilvy" wrote in message
...
What type of textbox - from the drawing toolbar (on a worksheet) or from
the
control toolbox toolbar (on a worksheet or on a userform)?

--
Regards,
Tom Ogilvy

"L Mehl" wrote in message
...
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



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.581 / Virus Database: 368 - Release Date: 2/9/2004






---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.581 / Virus Database: 368 - Release Date: 2/9/2004

L Mehl
Formatting text in a textbox to show separate lines
 
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

"Tom Ogilvy" wrote in message
...
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


--
Regards,
Tom Ogilvy

"L Mehl" wrote in message
...
Hi Tom --

Sorry for the vague description.

This is a textbox on a userform.

Larry


"Tom Ogilvy" wrote in message
...
What type of textbox - from the drawing toolbar (on a worksheet) or
from
the
control toolbox toolbar (on a worksheet or on a userform)?

--
Regards,
Tom Ogilvy

"L Mehl" wrote in message
...
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



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.581 / Virus Database: 368 - Release Date: 2/9/2004






---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.581 / Virus Database: 368 - Release Date: 2/9/2004






---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.581 / Virus Database: 368 - Release Date: 2/9/2004


All times are GMT +1. The time now is 12:10 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com