Richtextbox Zeile farbig...

Dieses Thema Richtextbox Zeile farbig... im Forum "Webentwicklung, Hosting & Programmierung" wurde erstellt von Crackwar, 28. Feb. 2005.

Thema: Richtextbox Zeile farbig... Hi ich wollt mal fragen, wie ich das machen kann...ich hab nen Chat programmiert, und wenn der Sender der Nachricht...

  1. Hi ich wollt mal fragen, wie ich das machen kann...ich hab nen Chat programmiert, und wenn der Sender der Nachricht -system- ist, soll die gesammte Nachricht des systems rot sein...bzw. die Zeile...Also soweit hab ich das jetzt.

    Bisher wird der Username vor der Nachricht immer blau, das soll auch so bleiben, aber die systemmeldungen sollen halt komplett rot...kann mir wer das so in diesen Code einbauen? ::)


    Code:
    Public Sub AddMessage(strMessage As String, strSender As String)
     Dim ePos As Long
    ->Fügt einen Text in die Nachricht-Liste ein
    ->strMessage ist die Nachricht, die hinzugefügt werden soll
    ->strSender ist der Absender der Nachricht (erscheint bei der Nachricht)
    ->Ins Chat-Fenster einfügen
     
     txtChat.SelStart = Len(txtChat.Text)
     txtChat.SelLength = 0
     txtChat.SelText = [ & Format(Now, h:mm:ss) & ] [ & Trim(strSender) & ]:  & strMessage & vbCr
     
    ->Nicknames farbig darstellen
     With txtChat
      Static sPos
      Do
       sPos = .Find(vbCr, sPos + 1)
      If sPos + 1 < Len(txtChat.Text) And sPos <> -1 Then
      If Mid(txtChat.Text, sPos + 2, 1) <> vbLf Then
       If sPos > 0 Then
        ePos = .Find(]:, sPos + 1)
        If ePos > 0 Then
         .SelStart = sPos
         .SelLength = ePos - sPos + 1
         .SelColor = &HFF0000
         sPos = ePos + 1
        End If
       End If
       End If
      End If
      Loop Until sPos < 1
     End With
     txtChat.Locked = False
     Create_Smileys txtChat
     txtChat.Locked = True
     
     txtChat.SelStart = Len(txtChat.Text)  ->An den Schluss des Chat scrollen
    End Sub
     
  2. kann mir denn keiner helfen?
     
  3. Hallo??? kann mir denn wirklich keiner helfen?
     
  4. Hallo????
    Könnte ja ungefähr so gehen...
    Code:
    .
    .
    .
        If ePos > 0 Then
          If Mid(txtChat.Text, ePos - 5, 6) = System Then
          ePos = .Find(vbCr, ePos)
            .SelStart = sPos + 1
            .SelLength = ePos - sPos->+ 1
            .SelColor = &HFF
            sPos = ePos - 1
          Else
           .SelStart = sPos
           .SelLength = ePos - sPos + 1
           .SelColor = &HFF0000
           sPos = ePos + 1
          End If
        End If
    .
    .
    .
    
     
Die Seite wird geladen...

Richtextbox Zeile farbig... - Ähnliche Themen

Forum Datum
Zeile fehlt: Datei etc. Windows 10 Forum 29. März 2016
Einzelne Zeilen aus Tabelle Drucken. StarOffice, OpenOffice und LibreOffice 15. März 2016
Wie kann ich eine Excel-Formel in die nachfolgenden Zeilen mit variablem Multiplikator ziehen ? Microsoft Office Suite 4. Dez. 2015
Gesucht: Programm zur Zeilenunterstreichung (Linereader) Software: Empfehlungen, Gesuche & Problemlösungen 6. Sep. 2014
Excel VBA Makro zum suchen und markieren von Zeilen die ein bestimmtes Wort enthalten Microsoft Office Suite 16. Juni 2014