vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2018
 
zurück

In diesem Forum haben Sie die Möglichkeit Kommentare, Fragen und Verbesserungsvorschläge zu den im vb@rchiv gelisteten Tipps und Workshops zu posten.

Hinweis:
Ein neues Thema kann immer nur über die jeweilige Tipps & Tricks bzw. Workshop Seite eröffnet werden!

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fragen zu Tipps & Tricks und Workshops im vb@rchiv
Tipp 2478: Erzeugen und Formatieren eines RTF-Textes aus "normalen" Texten/Strings 
Autor: Manfred X
 Tipp anzeigenDatum: 25.11.17 21:31

Hallo!

Warum so umständlich mit Parametern als Zeichenfolgen ?
Public Class frmRTF
 
    'Klasse für Text-Abschnitt und RTF-Parameter
    'mit Standardwerten
    Private Class RTFParams
        Public text As String = ""
        Public Forecolor As Drawing.Color = Color.Black
        Public Backcolor As Drawing.Color = Color.White
        Public font As Drawing.Font = _
           New Font("Arial", 12, Drawing.FontStyle.Regular)
        Public indent As Integer = 0
    End Class
 
 
    Dim rtf As New RichTextBox With _
       {.Parent = Me, .Dock = DockStyle.Fill}
 
 
    Private Sub frmRTF_Load(sender As System.Object, _
         e As System.EventArgs) Handles MyBase.Load
 
       'Liste für Textabschnitte
       Dim rtfparts As New List(Of RTFParams)
 
       'Ein Beispieltext
       With rtfparts
          .Add(New RTFParams With {.text = "Das ist ein schöner Text!" & _
                 vbCrLf & vbCrLf, .indent = 12})
 
          .Add(New RTFParams With _
                 {.text = "Das ist ein noch", .Forecolor = Color.Red, _
                .font = New Font("Arial", 12, FontStyle.Bold)})
          .Add(New RTFParams With _
              {.text = " sehr viel", .Forecolor = Color.Blue})
          .Add(New RTFParams With {.text = " schönerer Text!"})
        End With
 
        'Textabschnitte im Control zusammenfügen
        CreateRTFText(rtfparts)
    End Sub
 
 
    Private Sub CreateRTFText(ByVal rtfparts As List(Of RTFParams))
 
        For i As Integer = 0 To rtfparts.Count - 1
            With rtfparts(i)
                If Not String.IsNullOrWhiteSpace(.text) Then
                    rtf.SelectionColor = .Forecolor
                    rtf.SelectionBackColor = .Backcolor
                    rtf.SelectionFont = .font
                    rtf.SelectionIndent = .indent
                    rtf.AppendText(.text)
                End If
            End With
        Next i
    End Sub
End Class
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

Neujahrsangebote
Prosit Neujahr!
Top-Angebote bei Tools & Components
Ausgewählte Entwicklerkomponenten und Komplettpakete jetzt bis zu 30% reduziert!
zum Beispiel:
· sevDataGrid 3.0 nur 159,20 EUR statt 199,- EUR
· sevZIP40 Pro DLL nur 74,30 EUR statt 99,- EUR
 
· Developer CD für VB nur 419,30 EUR statt 599,00 EUR
· sev.Dta 2.0 Pro (.NET) nur 224,30 EUR statt 299,- EUR
- Werbung -Jetzt schnell zugreifen           Alle Angebote gültig bis einschl. 23.01.18
 ThemaViews  AutorDatum
Tipp 2478: Erzeugen und Formatieren eines RTF-Textes aus "no...143Manfred X25.11.17 21:31
Re: Erzeugen und Formatieren eines RTF-Textes aus "normalen"...29thuring02.01.18 11:02
Re: Erzeugen und Formatieren eines RTF-Textes aus "normalen"...21Manfred X07.01.18 08:29
Re: Erzeugen und Formatieren eines RTF-Textes aus "normalen"...19thuring07.01.18 08:37

Sie sind nicht angemeldet!
Um einen neuen Beitrag schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2018 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel