German noch mal Tutorial Bluetooth...

[Stefan080159]

Guten Abend,
ich wollte das Tutorial von Erel für meine Bedürfnisse anpassen.
Dabei soll der eingehende String ausgewertet werden. Das funzt auch
soweit. Wenn eine bestimmte Zeichenfolge gefunden wird soll der String
mit AS als RichString farblich formatiert werden.
Aber Msg = RS funzt leider nicht weil scheinbar txtLog.Text = RS erwartet.
(siehe Code)

Sub Globals
    Private txtLog As EditText
    Private RS As RichString
End Sub

Sub LogMessage(From As String, Msg As String)
    RS.Initialize(Msg)
    If Msg.Contains("<->") Then
        RS.Color(Colors.Red,0,RS.Length)
    else If Msg.Contains("^") Then
        RS.Color(Colors.Green,0,RS.Length)
    End If
    Msg = RS
    txtLog.Text = txtLog.Text & RS & CRLF
    txtLog.SelectionStart = txtLog.Text.Length
End Sub

… kann da bitte geholfen werden?

Mit freundlichen Grüßen
Stefan

 

[Stefan080159]

Das Problem ist scheinbar

txtLog-text = txtLog.text & CRLF

denn bei

txtLog.text = MSG

funzt es...

...aber keine Ahnung warum?

 

[Stefan080159]

Ne, bei

txtLog.text = RS

funzt es.
Hat vielleicht jemand eine Idee, wie ich auch die folgenden Strings
auf txtLog bekomme ?

 

[Stefan080159]

...hat sich erledigt
habe es jetzt so gemacht...

Sub LogMessage(From As String, Msg As String)
    Dim RSB As RichStringBuilder
    Dim RS As RichString
    RSB.Initialize
    RS.Initialize( Msg & CRLF)
    If Msg.Contains("AT") Then
        RS.color(Colors.Red,0,RS.Length)
    else If Msg.Contains("SO vor H/V") Then
        RS.Color(Colors.Yellow,0,RS.Length)
    else If Msg.Contains("GA vor H/V") Then
        RS.Color(Colors.Yellow,0,RS.Length)
    else If Msg.Contains("SO nach H/V") Then
        RS.Color(Colors.Green,0,RS.Length)
    else If Msg.Contains("GA nach H/V") Then
        RS.Color(Colors.Green,0,RS.Length)
    End If
    RSB.Append(RS)
    txtLog.Text = RSB
    txtLog.SelectionStart = txtLog.Text.Length
End Sub

Grüße