- #1
C
Crackwar
Mitglied
Themenersteller
- Dabei seit
- 27.02.2005
- Beiträge
- 5
- Reaktionspunkte
- 0
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? :
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
