Hallo.
Ich habe ien kleines Problem wo ich nicht wirklich weiter komme.
In der RICHTEXTBOX möcht ich den Text pro Zeile zentrieren.
Leider setzt der Befehl keine Leerzeichen.
Deshalb müsste ich da was selbst basteln.
Ich müsste Leerzeichen Links vom Text einfügen.
Beispiel (Sternchen Symbolisiert die Leerzeichen)
**********HELLO WORLD
******DAS MUSS JETZT ABER
************KLAPPEN
Ich bekomme das hin für Zeile1 aber für die Zeile2 usw. nicht hin, oder gibt es eine elegante Lösung?
Wäre für Jede Hilfe Dankbar.
Gruß
Jürgen
Ich habe ien kleines Problem wo ich nicht wirklich weiter komme.
In der RICHTEXTBOX möcht ich den Text pro Zeile zentrieren.
Leider setzt der Befehl keine Leerzeichen.
Deshalb müsste ich da was selbst basteln.
Ich müsste Leerzeichen Links vom Text einfügen.
Beispiel (Sternchen Symbolisiert die Leerzeichen)
**********HELLO WORLD
******DAS MUSS JETZT ABER
************KLAPPEN
VB.NET-Quellcode
- Dim xy As Integer = 0
- Dim xy1 As Integer = 0
- Dim EINLESE_TXT As String ""
- Dim INSERT_TXT As String =""
- Dim WS As String = ""
- ' Anzahl Zeichen in der ersten Zeile
- xy = rt_nachricht.Lines(1).Length
- 'Anzahl der Leerzeichen berechnen Länge des Text- Zeilenlänge geteilt durch zwei
- xy1 = CInt((29 - xy) / 2)
- 'Schleife um die Leerzeichen einzufügen
- For xy1 = 1 To xy1
- WS = WS & " "
- Next
- ' Text der Zeile 1 auslesen
- EINLESE_TXT = rt_nachricht.Lines(0)
- ' Text mit Leerzeichen zusammenfügen
- INSERT_TXT = WS & "" & EINLESE_TXT
- 'löschem der ersten Zeile in der RTCHTEXTBOX
- rt_nachricht.Text = rt_nachricht.Text.Remove(0, rt_nachricht.Lines(0).Length)
- 'Text wieder in die Zeile einfügen
- rt_nachricht.Text = rt_nachricht.Text.Insert(0, INSERT_TXT)
Ich bekomme das hin für Zeile1 aber für die Zeile2 usw. nicht hin, oder gibt es eine elegante Lösung?
Wäre für Jede Hilfe Dankbar.
Gruß
Jürgen
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „jnpanzer“ ()