In Textbox verschiedene farben

[DieMotrix]

Hi Leute
Ich hab n chatprogramm fürs lan programmiert
und will das sich jedser ne farbe aussuchen kann in der seine sachen dann erscheinen, gibt es eine möglichkeit dass in VB so zumachen?

cu
DieMotrix

[MrFanatic]

versuchs mal mit der Richtextbox

RichTextBox1.SelColor = (Farbe)
RichTextBox1.SelText = (Text)

viel Spaß noch beim proggen

[Hades]

cool,
wenn du fertig bist kannst du mir dein Programm mailen ? so was würde mich mal interissieren!
wenn an steinh@wtal.de

[DieMotrix]

@MrFanatic das mit der richtextbox funzt THANX !!
@Hades ok mach ich ich schäts morgen isses fertig.

Ok bin fast fertig nur noch 2 Probleme ;-)

1. Nur ein Client kann connecten d.h. man kann nur zu 2. chatten
2. alle haben die Selbe Farbe in der Richtext box weil ich die daten von winsock ausnanderteilen kann.
wer ne idee hat bitte posten

cu
DieMotrix

[Evil-Hunter]

Das nur Problem Nummer eins wird folgendermaßen gelöst (aus der MSDN):

Private intMax As Long

Private Sub Form_Load()
intMax = 0
sckServer(0).LocalPort = 1001
sckServer(0).Listen
End Sub

Private Sub sckServer_ConnectionRequest _
(Index As Integer, ByVal requestID As Long)
If Index = 0 Then
intMax = intMax + 1
Load sckServer(intMax)
sckServer(intMax).LocalPort = 0
sckServer(intMax).Accept requestID
Load txtData(intMax)
End If
End Sub

Die Farben kannst du ja durch den Index ermitteln

Private Sub Winsock1_DataArrival(Index As Integer)
Dim Daten As String
Winsock1(Index).GetData Daten
RichTextBox1.Text = RichTextBox1.Text & vbCrlf & "Nr. " & Index & Daten
RichTextBox1.SelStart = Len(RichTextBox1.Text) - Len(Daten)
RichTextBox1.SelLength = Len(Daten)
Select Case Index
Case 1: RichTextBox1.SelColor=vbRed
Case 2: RichTextBox1.SelColor=vbBlue
Case 3: RichTextBox1.SelColor=vbGreen
.
.
.
End Select
End Sub


Jetzt schreibt er dir eigentlich immer alle einkommenden Daten in der zugewiesenen Farbe
ein.

P.S.: Dieser Code ist wie (fast) immer frei Hand geschrieben. Daher verzeiht mir bitte
Fehler.

[DieMotrix]

Ok Danke für eure Antworten
werds gleich mal testen...
cu
DieMotrix