*Resolved* Outlined text

[petrus]

I want to print outlined text in a picturebox, howto?

[IROY55]

petrus,
can you describe what exactly are you after?

[petrus]

Yes, i can.
I want to type some text on a picturebox (with the print function), and i want to have a line around the text, just one pixel wide.
Do you understand now?

[IROY55]

I understand now. Try this sample and let me know:
Dim strText As String
Dim X1, Y1, X2, Y2

Picture1.AutoRedraw = True
strText = "This a sample text"
Picture1.Print vbNewLine & vbTab & strText & vbNewLine & vbTab
X1 = Picture1.TextWidth(vbTab)
X2 = X1 + Picture1.TextWidth(strText)
Y1 = Picture1.TextHeight("T") * 2.5
Y2 = Y1
Picture1.Line (X1, Y1)-(X2, Y2)

Cheers, Roy

[IROY55]

Sorry, forgot to include Picture1.DrawWidth = 2 as the second line

[phinds]

I know that I've seen that question answered before and fairly recently. Do a search for "text in picturebox" on this forum and on CodeGuru forum.

[petrus]

I've just searched the code, and to me it looks like it will just draw a line under it, but i will check again and test it! Thanx.

[IROY55]

If what I gave isn't enough.

;-)

[petrus]

Yepp, it just draw a line under the text

[IROY55]

So finish your rectangle by yourself. What's the problem. as a programmer you must not ask for an ready answer - but instead just for an idea and try to work arround it.

BTW, instead going into this sort of hassle I'd rather use a flat transparent label without border and shape control.

Cheers

[Mc Brain]

How about this?

Private Sub Command1_Click()
    Dim strText As String
    Dim X1, Y1, X2, Y2
    
    Picture1.AutoRedraw = True
    strText = "This a sample text"
    Picture1.Print vbNewLine & vbTab & strText & vbNewLine & vbTab
    X1 = Picture1.TextWidth(vbTab) - Picture1.TextWidth(" ")
    X2 = X1 + Picture1.TextWidth(strText) + 2 * Picture1.TextWidth(" ")
    Y1 = Picture1.TextHeight("T") * 2.5 - Picture1.TextHeight("T") * 2: Y2 = Y1
    
    Picture1.Line (X1, Y1)-(X2, Y2)
    
    Y2 = Picture1.TextHeight("T") * 2.5
    Picture1.Line -(X2, Y2)
    
    Picture1.Line -(X1, Y2)
    
    Picture1.Line -(X1, Y1)
End Sub

[petrus]

Can't do that.
How to fill letters? In the P letter, the circle at the top should be filled with some color.

[phinds]

yeah, I guess it would be really hard to use that code to make 3 more lines

[Mc Brain]

Nicer way... (all the variables are calculated all together)

Private Sub Command1_Click()
    Dim strText As String
    Dim X1, Y1, X2, Y2
    
    Picture1.AutoRedraw = True
    strText = "This a sample text"
    Picture1.Print vbNewLine & vbTab & strText & vbNewLine & vbTab
    
    X1 = Picture1.TextWidth(vbTab) - Picture1.TextWidth(" ")
    X2 = X1 + Picture1.TextWidth(strText) + 2 * Picture1.TextWidth(" ")
    Y1 = Picture1.TextHeight("T") * 2.5 - Picture1.TextHeight("T") * 2
    Y2 = Picture1.TextHeight("T") * 2.5
    
    Picture1.Line (X1, Y1)-(X2, Y1)
    Picture1.Line -(X2, Y2)
    Picture1.Line -(X1, Y2)
    Picture1.Line -(X1, Y1)
End Sub

[petrus]

Sorry, but i think you missunderstood me.
I don't want a BOX around the text.
Check out my picture attached.
The black around the letter in the picture is what i want to do.

[IROY55]

You need a Font Builder utility to do that. Fonts are contained of a small bitmaps and each character (which is predesigned) is been drawn for you by the system based on your current settings.

[Mc Brain]

Not necessarily. You could play with your image to get what you want. Like I did in this example. Anyway... it's not that easy, and can't do it right now.

[IROY55]

You won't be able to do this in the lifetime using VB.

;-)

[James Stanich]

I may be missing what you are trying to do but try this example and see if it works for you...

[Mc Brain]

Originally posted by IROY55
You won't be able to do this in the lifetime using VB.

;-)

Wow!! Seems like someone could do it with VB!!



You didn't miss anything James... that's what he was looking for.

[Mc Brain]

And... by the way, it's as easy as I used to do it in QBasic.

[James Stanich]

Originally posted by IROY55
You won't be able to do this in the lifetime using VB.

;-)

Never noticed this

IROY55 : Times up !!!

[IROY55]

He, he..
That was nice, obviously didn't think about overlaying 2 messages.

;-)

[kinjalgp]

Thats KOOL James

[James Stanich]

Originally posted by kinjalgp
Thats KOOL James

Not my code. Do not want to take the credit, but you are right, it is cool...

[petrus]

Thanx! That was exactly what i wanted!

[James Stanich]

Originally posted by petrus
Thanx! That was exactly what i wanted!

Glad I could help... Edit you subject of your first post and add Resolved (proper way of doing it here, although no-one does )