29. März 2024, 16:50
VB-fun.de - Beitragsübersicht zum VB-/VBA-Forum-Archiv 0403
  VB6: RTF Formatierungen + Chat
 Von Schneeflöckchen
 Am 03. Januar 2008 um 12:40:51
 Frage Hallo,
ich habe folgendes Problem:
Ich habe insgesamt 3 RTFBoxen. Eine mit einem Nicknamen.
Private Sub rtfNickname_Change()
If InStr(rtfNickname.Text, "^1") Then
SendKeys "{BACKSPACE}" & "{BACKSPACE}", True
rtfNickname.SelColor = vbRed
ElseIf InStr(rtfNickname.Text, "^2") Then
SendKeys "{BACKSPACE}" & "{BACKSPACE}", True
rtfNickname.SelColor = vbGreen
ElseIf InStr(rtfNickname.Text, "^3") Then
.
.
Jedes | ^ + eine Zahl | wird als Farbcode angesehen. Dann die RTFBox wo man verschiedene Sachen reinschreiben kann usw. Mit Return bestätigen! Und nun soll er beide Textboxen + Zusatzzeichen wie " >: " oder " sagt: " dazwischen in die RTFHauptchatbox packen.
Das macht er aber nicht. (Die Formatierung soll natürlich erhalten bleiben.
Ich habe es schon so versucht, aber dann macht er nur den Nicknamen und den Rest vergisst er:
  rtfTEMP.Text = ""

rtfNickname.SelStart = 0
rtfNickname.SelLength = Len(rtfNickname.Text)
rtfTEMP.SelRTF = rtfNickname.TextRTF
rtfTEMP.SelRTF = " >: "
rtfTEMP.SelRTF = rtfMessage.TextRTF
Weiß jemand wie ich das so mache, das der Text folgendermaßen mit Formatierungen im RTFChat ist?
So ungefähr soll es dann aussehen: rtfchat = rtfchat & rtfnickname & " >: " & rtfmessage & vbcrlf
[ VB-/VBA-Forum | Archiv 0403 | Archiv-Übersicht ]
 Antworten
VB6: RTF Formatierungen + Chat - Schneeflöckchen 03. Januar 2008 um 12:40:51
Re: RTF Formatierungen + Chat + Erledigt - Schneeflöckchen 03. Januar 2008 um 13:05:42

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB-/VBA-Forum | DirectX | DirectX-Forum | VB.Net | VB.Net-Forum | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum