Help with RichTextBox

[DarkSoldier]

Ok i just started trying to make a little bot... i used the richtx32.ocx to get a box where i can use different colors, but i cant find any site where its really good explained how to use colors. Everytime if i maybe found a way to use colors i get errors...
an example:

Writing the line then searching for it, selecting it and changing its color....
or
Setting a color, then writing the line...
nothing works for me, or i just use this code wrong,,,
can some1 give me a real easy example of a working color code?

[BaDDBLooD]

Code Select Expand



Public Function AddChat(ByVal RTB as RichTextBox, ParamArray Blub() As Variant)
   Dim i As Integer
       With RTB
           .SelStart = 99999999
           .SelLength = 0
           .SelColor = vbWhite
           .SelText = "[" & Time & "] "
           .SelStart = 99999999
       End With
   For i = LBound(Blub) To UBound(Blub) Step 2
       With RTB
           .SelStart = 99999999
           .SelLength = 0
           .SelColor = Blub(i)
           .SelText = Blub(i + 1) & Left$(vbCrLf, -2 * CLng((i + 1) = UBound(Blub)))
           .SelStart = 99999999
       End With
   Next i
End Function



Sample Usage:

Code Select Expand



AddChat frmMain.rtbChat, vbYellow, "Welcome!"



More than one color?

Code Select Expand



AddChat frmMain.rtbChat, vbYellow, "w", vbGreen, "e", vbYellow, "l", vbGreen, "c", vbYellow, "o", vbGreen, "m", vbYellow, "e", vbBlue, "!"



[DarkSoldier]

uh fast reply, thanks a lot!
im going to test that now...

[BaDDBLooD]

uh fast reply, thanks a lot!
im going to test that now...

Well?

[Networks]

Can anyone provide a RichText Box tutorial really quick? Just things like making part of a line bold and the next not or maybe even the whole line. Something simple to understand and use, so I can italize as well.

[DarkSoldier]

ok, tested it and modified it a little bit, works fine!

[R.a.B.B.i.T]

Can anyone provide a RichText Box tutorial really quick? Just things like making part of a line bold and the next not or maybe even the whole line. Something simple to understand and use, so I can italize as well.

.SelBold = True
.SelItalic = True

It's not that hard....

[Networks]

Can anyone provide a RichText Box tutorial really quick? Just things like making part of a line bold and the next not or maybe even the whole line. Something simple to understand and use, so I can italize as well.

.SelBold = True
.SelItalic = True

It's not that hard....

Wow.. it really isn't. Anyway thanks

[MyndFyre]

You can do what I've done and create a rich text generator.  It's not that bad once you've figured out the general syntax and formatting rules.