02-21-2005, 11:31 AM
Is it possible to change colour of SOME text in a label. I have a rolling label at the bottom of my app. And it shows a netadress sometimes.. it whould be nice if this whould appear in blue..
Eks: "Hi, welcome to my app. Visit: www.someplace.com to learn more :)"
Something like that
02-21-2005, 12:47 PM
Have you tried maybe 3 labels. A label with black text caption, then a label with blue text caption, and then another label with black caption text, all place appropriately next to each other and all with:
BackStyle = 0 'Transparent
...then you could even use a label with regular grey background and no caption text that sits behind all three of these just to make everything look like nice (like it's part of one label). It might be a little more work to shift things around on the fly to get the scrolling to work right, but play around and I'm sure you can get it working with multiple labels...
02-21-2005, 08:38 PM
Simply write colored text to a picturebox or a zone on the form itself.
The following sample will print in colors on a single line in a picturebox.
Private Sub Command1_Click()
Dim sTextLn As String
sTextLn = "Good Morning! |WWW.BookwormsRus.com |Read em and weep."
WriteAt Picture1, 100, 100, sTextLn, vbBlack, vbBlue, vbRed
Private Sub WriteAt(ByVal P1 As PictureBox, _
ByVal x As Integer, _
ByVal y As Integer, _
ByVal sText As String, _
Dim s() As String
Dim i As Integer
s = Split(sText, "|")
For i = 0 To UBound(s)
P1.CurrentX = x
P1.CurrentY = y
P1.ForeColor = Color(i)
x = x + TextWidth(s(i))