Printing on a VB6 Picturebox 1

• Mar 31, 2022

• #2

strongm

MIS

May 24, 2001

20,264

GB

Picturebox has a Print method (and CurrentX and CurrentY properties to set the point at which printing will occur)

 

Upvote 0 Downvote

• Mar 31, 2022

• #3

Andrzejek

Programmer

Jan 10, 2006

8,578

US

What do you mean by "text be printed on a VB6 Picturebox control"?
PictureBox control is usually used to show a picture / image.

---- Andy

"Hmm...they have the internet on computers now"--Homer Simpson

 

Upvote 0 Downvote

• Mar 31, 2022

• #4

strongm

MIS

May 24, 2001

20,264

GB

>used to show a picture

Such a sheltered life you lead, Andy . There is so muchg more you can do with a picturebox - it is a graphical canvas you can paint on to your heart's delight. Animate an image, add captions and annotations, stream video on it (with a bit of work), apply filters, composite images. etc, etc ...

If you just want to show a picture ... use the much more limited Image control

 

Upvote 0 Downvote

• Apr 1, 2022

• #5

Error7

Programmer

Jul 5, 2002

656

GB

I use 2 labels on a picture box to add a caption to a photograph. Set a transparent background and offset the x and y of one label and set the foreground colour of the rearmost label to black. This gives the appearance of a shadow.


[gray]Experience is something you don't get until just after you need it.[/gray]

 

 https://files.engineering.com/getfile.aspx?folder=2d928b58-a230-4394-83b6-db9580205df9&file=Picture_Box.jpg

Upvote 0 Downvote

• Apr 1, 2022

1
• #6

strongm

MIS

May 24, 2001

20,264

GB

But you can achieve exactly the same effect printing directly to the picturebox. No need for extra controls. Guess it comes down to personal preference.

here's an example

Code:

[COLOR=blue]    With Picture1
        .AutoRedraw = True
    
        .ScaleMode = vbPixels
        .FontName = "Arial"
        .FontSize = 18
        .FontBold = True
        
        .CurrentX = 15
        .CurrentY = 15
        .ForeColor = vbBlack
        Picture1.Print "Just an example"
        
        .CurrentX = 13
        .CurrentY = 13
        .ForeColor = vbWhite
        Picture1.Print "Just an example"
        .AutoRedraw = False
    End With[/color]

 

Upvote 0 Downvote

• Apr 22, 2022

• Thread starter
• #7

Ken01

Programmer

Aug 8, 2014

71

GB

Thank you, especially for the example. That has solved my problem.

 

Upvote 0 Downvote