dennis, ken tucker.this code will

[Supra]

this code will worked. i can connected to any servers...but how do i
added method called doColor from usercontrol to module

Sub DisplayMessage(ByVal rtb As RichTextBox, ByVal sText As String,
Optional ByVal Colour As String = "")
rtb.SelectionStart = rtb.Text.Length
rtb.SelectedText = sText <=== i needed to call doColor..but
how?
rtb.ScrollToCaret()
End Sub

thsi

 

[Herfried K. Wagner [MVP]]

this code will worked. i can connected to any servers...but how do i
added method called doColor from usercontrol to module

Please stay in the original thread instead of opening new threads for
replies. Thank you for your cooperation!

 

[Ken Tucker [MVP]]

Hi,

RichTextBox1.Text = "Green"

RichTextBox1.HideSelection = False

RichTextBox1.Select(0, 5)

RichTextBox1.SelectionColor = Color.Green

RichTextBox1.SelectionLength = 0

RichTextBox1.AppendText(vbCrLf)

RichTextBox1.SelectionStart = RichTextBox1.Text.Length

RichTextBox1.SelectionColor = Color.Red

RichTextBox1.SelectedText = "RED" & vbCrLf

RichTextBox1.SelectionStart = RichTextBox1.Text.Length

RichTextBox1.SelectionColor = Color.Blue

RichTextBox1.SelectedText = "BLUE" & vbCrLf



Ken

---------------------------

this code will worked. i can connected to any servers...but how do i added method called doColor from usercontrol to module

Sub DisplayMessage(ByVal rtb As RichTextBox, ByVal sText As String, Optional ByVal Colour As String = "")
rtb.SelectionStart = rtb.Text.Length
rtb.SelectedText = sText <=== i needed to call doColor..but how?
rtb.ScrollToCaret()
End Sub

thsi