TextEdit und RichText

Alle Fragen zur Programmierung, die nicht in die speziellen Themen passen
Antworten
yoda
Moderator
Beiträge: 436
Registriert: Mo 2. Jan 2006, 22:35
Wohnort: bei Göttinge
Kontaktdaten:

TextEdit und RichText

Beitrag von yoda » So 2. Feb 2014, 04:31

Hi,

Mit RichText im TextEdit kann man auch mehr als nur HTML-Text ausgeben. Hier mal ein Bild mit Farbigem Text, Tabelle, Trennlinie und Bilder.

Codebeispiel:

Code: Alles auswählen

Public Function zeige_band(mht As String, band As String)
Dim z As String
Dim nr_b As Integer
Dim wpa As String[]
Dim ss As String[]
Dim st As String
Dim s As String
Dim m As String
Dim q As String
Dim l As String[]
Dim b As String

z = z & "<center><hr><table border=1 width=70%>"
 wpa = Split(mht, " ")
 nr_b = wpa.Count - 1
     z = z & "<tr><td colspan=4>" & MHges & " Stationen gesamt</td></tr>"
    z = z & "<tr><td colspan=4>" & nr_b & " Stationen auf " & band & "</td></tr>"
  For Each s In wpa
   If InStr(s, ":") Then
      ss = Split(s, ":")
      st = Mid$(ss[1], 1, Len(ss[1]) - 2)
       m = Right$(ss[1], 2)
       q = ss[2]
       l = getDXCC(ss[0])
       b = ""
       If InStr(l[1], " ") Then l[1] = Replace$(l[1], " ", "_")
       If Exist("bilder/flaggen/" & l[1] & ".gif") Then
          b = " <img src=bilder/flaggen/" & l[1] & ".gif height=15> &#130; "
       Endif
       ' s = ab0cde:102:3.800
      z = z & "<tr><td>" & q & "</td><td>" & st & ":" & m & "</td><td>" & ss[0] & "</td><td> " & b & " " & l[1] & "</td></tr>"
      End If
  Next
  z = z & "</table></center><hr><br>"
   
  Textedit1.richText = Textedit1.richText & z

  scroll_zum_ende()
 
End




Flotte Grüße Yoda
Dateianhänge
Tuxlog.png
Tuxlog.png (100.32 KiB) 1396 mal betrachtet

Antworten

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast