[RESOLVED] text1.text help

[ladoo]

multi line textbox

i wish to add <br> front of all text

Private Sub Text21_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then ' The ENTER key.
Text21.Text = "<br>"

End If
End Sub

demo

once upon a time (i hit enter hey here ) <br> there was a tiger i love it alot (i hit enter hey here ) <br> that night was so good

output results
once upon a time <br> there was a tiger i love it alot <br> that night was so good


how do i do that i wish to add <br> front of current strings when enter key is hit

[ladoo]

If KeyAscii = 13 Then ' The ENTER key.
Text21.Text = Text21.Text & "<br>"

End If


when i do this the textbox leaves emty room on top and starts all them in new line dam

[Max187Boucher]

Text21 = Text21.Text & <br>

???

[Max187Boucher]

Private Sub Text21_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
    KeyAscii = 0
    Text21.Text = Text21.Text & " <br> "
    Text21.SelStart = Len(Text21.Text)
  End If
End Sub

[ladoo]

Text21 = Text21.Text & <br>

???

i need to do something like this without the keypress event , but keypress event will help me allot when am typing large text instead of click the button

when i use keypress textbox leaves emty line on top this is another press

Text21 = Text21.Text & <br> works but thinking what other way i can add this when enter key is pressed so that the textbox dont leave emty line on top

[kivisoft@]

First of all you can't use KeyPress while the focus is on TextBox! use a key combination like ALT + ENTER

Second: TEXT21.TEXT = "<br>" & TEXT21.TEXT & "<br>"

[ladoo]

Private Sub Text21_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
    KeyAscii = 0
    Text21.Text = Text21.Text & " <br> "
    Text21.SelStart = Len(Text21.Text)
  End If
End Sub

great thanks allot