Text Boxes and returns

[kevin_sauerwald]

I want to use a text box so I can use its scroll bars but when I push in text with chr(13) and chr(10)'s CR and LF they dont work. Everything is on the same line and the return characters dont act as return characters....

Do I need to use a different object or set something on the text box or use different characters... or or or or or

help..... I'm sure this is a simple topic that has been discussed 1000x of times... I hope

[mbeverley]

Do you have the scroll Bar settings to "BOTH" on the control?

[kevin_sauerwald]

I just redid my message.. the control characters dont force it
to the next line.... If I type in the box and hit return it works fine but not if I push in text that I get from elsewhere...

[mbeverley]

Instead of using CHR(13) & CHR(10) try using vbNewLine or
vbCRLF

[darre1]

try adding the constant vbCrLf to your stings instead

i.e.

textbox.Text = textbox.Text & vbCrLf & "test"

[kevin_sauerwald]

They still just show as vertical bars in the text box and dont force it to the next line

[mbeverley]

I'd like to see your code. I do this text box thing in several places and they all work.

[kevin_sauerwald]

make a new project with a textbox and make a command button
do this

Text1.Text = "line1" + vbCrLf + "line2"


then you'll (hopefully) see what I get

line1||line2....

[kevin_sauerwald]

strange.. now that I set my multiline to y for my little experimenti it worked fine.. but my big app doesnt work... let me check some things....

[darre1]

make sure that the textbox control's MultiLine property is set to True?

[kevin_sauerwald]

its set to Y... but still shows as the vertical bars...

I wonder if it has something to do with the message going
from procedure to procedure ??

This is wierd.. I must be missing something... I need to investigate
this further.. thanks for the help...

[darre1]

can you paste some of your code?

[kevin_sauerwald]

here is a sample of what its doing.. let me know what I did wrong if you can.. thanks.. must be something simple

I attached a tiny project

[mbeverley]

Your problem is that the MID statements says to insert 1 character, but vbCrLf is 2 characters.

try this instead
Text1.Text = Replace(Text1.Text, "~", vbCrLf)

[kevin_sauerwald]

thanks I didnt know there was a replace command...

what happens if I pass it nothing to replace with.. will it just remove ??

[Arc]

the Replace statement has to have 2 perameters. If you want to replace a char with nothing use it like this.

Replace(text1, "mywords", "")