B4J Question [Solved] How to add a string one after the other in the object TextArea?

[XorAndOr]

Hello everyone,
I did research on the forum but I did not find (or I missed) on how to add a string by pressing a button one after the other in the textarea that can remain visible that sent previously attached one after the other without spaces
thank you
sorry google trad.

Sub Button1_Click
    
    Dim str() As Byte
    
    str = TextField1.Text.GetBytes("UTF8")
    
    Astream.Write(str)    
        
    TextArea1.Text = BytesToString(str,0, str.Length, "UTF-8")    

End Sub


Sub TextArea1_TextChanged (Old As String, New As String)
    
    Log("old  " & Old)
    Log("new  " & New)
    
End Sub

 

[JJ37]

TextArea1.Text = ""
TextArea1.Text = TextArea1.Text & CRLF & BytesToString(str,0, str.Length, "UTF-8")

 

[jimmyF]

Sub Button1_Click
    
    Dim str() As Byte
    
    str = TextField1.Text.GetBytes("UTF8")
    
    Astream.Write(str)   
        
    TextArea1.Text = TextArea1.Text & CRLF & BytesToString(str,0, str.Length, "UTF-8")   

End Sub

 

[XorAndOr]

Sub Button1_Click
   
    Dim str() As Byte
   
    str = TextField1.Text.GetBytes("UTF8")
   
    Astream.Write(str)  
       
    TextArea1.Text = TextArea1.Text & CRLF & BytesToString(str,0, str.Length, "UTF-8")  

End Sub

thank you so much

 

[XorAndOr]

TextArea1.Text = ""
TextArea1.Text = TextArea1.Text & CRLF & BytesToString(str,0, str.Length, "UTF-8")

thank you

 

[JJ37]

You're welcome. I posted before Jimmy but had to wait for moderator approval.

 

[jimmyF]

You're welcome. I posted before Jimmy but had to wait for moderator approval.

Ha ha! Usually I'm the slow one!