Ich schreibe aus einem Thread in eine RitchBox, das klappt. Nun möchte
ich auch die ForeColor der Ritchbox ändern. Das bekomme ich nicht hin.
DelegateSubDelegateWriteRTF(test AsString)
' ++++++++++++++++++ Schreibe mit Delegate in RitchBox
Sub SchreibeInRitchBox(ProtokollString AsString)
If TbAusgabe.InvokeRequired Then
Dim WriteDelegate AsNewDelegateWriteRTF(AddressOf SchreibeInRitchBox)
RbProtokoll.Invoke(WriteDelegate,ProtokollString)
Else
RbProtokoll.AppendText(ProtokollString)
EndIf
EndSub
' ++++++++++++++++++ Aufgerufen aus einem Thread
Function ProtokollUndRitchBoxSchreiben(ByVal ZeitundStr AsString, ByVal Klartext AsString, ByVal SendeEmpfangStr AsString)
SchreibeInRitchBox(ZeitundStr & Klartext & SendeEmpfangStr & vbCrLf)
EndFunction
titus
ich auch die ForeColor der Ritchbox ändern. Das bekomme ich nicht hin.
DelegateSubDelegateWriteRTF(test AsString)
' ++++++++++++++++++ Schreibe mit Delegate in RitchBox
Sub SchreibeInRitchBox(ProtokollString AsString)
If TbAusgabe.InvokeRequired Then
Dim WriteDelegate AsNewDelegateWriteRTF(AddressOf SchreibeInRitchBox)
RbProtokoll.Invoke(WriteDelegate,ProtokollString)
Else
RbProtokoll.AppendText(ProtokollString)
EndIf
EndSub
' ++++++++++++++++++ Aufgerufen aus einem Thread
Function ProtokollUndRitchBoxSchreiben(ByVal ZeitundStr AsString, ByVal Klartext AsString, ByVal SendeEmpfangStr AsString)
SchreibeInRitchBox(ZeitundStr & Klartext & SendeEmpfangStr & vbCrLf)
EndFunction
titus