CENTER image in picturebox

[2009luca]

Attached my form.

with the code i see the image on the left and not in center of picturebox?!!!

https://files.engineering.com/getfile.aspx?folder=798f651c-96ec-402b-b91c-186174b043a8&file=SU.gif

https://files.engineering.com/getfi...-08aa-45a9-aa3f-8b203a63d5cc&file=PROVINC.zip

note:
not resize the picturebox, maintain the same dimension for other image

 

[strongm]

As it stands your code is not doing anything like what you think it is doing.

Let's simplify.

Add a second picturebox to your form, set .Visible=False

Then try the following code:

[COLOR=blue]    Picture1.AutoRedraw = True
    Picture2.AutoSize = True
    Picture1.ScaleMode = vbPixels
    Picture2.ScaleMode = Picture1.ScaleMode [COLOR=green]' Ensure same scalemode for both[/color]
    Picture2.Picture = LoadPicture(("C:\Lavori_Vb6\TEST_MAPPA\PROVINCE\IMGPR\SU.gif"))
    Picture1.PaintPicture Picture2, (Picture1.ScaleWidth - Picture2.ScaleWidth) \ 2, (Picture1.ScaleHeight - Picture2.ScaleHeight) \ 2
    Picture1.AutoRedraw = False[/color]

 

[2009luca]

tks!!!!
work

but a little question:

why you use \ instead /

 

[strongm]

Me? I was just following your code. But I'm guessing you didn't actually write your code from scratch, you got it from someone else and then tried to modify it to do what you needed, in which case you are wondering why that original code used \ rather than /

So here's an answer - you can't have 0.5 of a pixel, or twip ... the original code writer just wanted to make sure silly values were not sent to the PainPicture function (albeit paintpicture can handle silly values)

 

[Andrzejek]

I like your answer that \ (rather than /) avoid "silly values"

---- Andy

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