[RESOLVED] Center Picture2 in Picture1

[Ordinary Guy]

How do I center Picture2 inside of Picture1

 +------------------------------+
 |      Picture1                |
 |                              |
 |                              |
 |       +-------------+        |
 |       |Picture2     |        |
 |       |             |        |
 |       |             |        |
 |       |             |        |
 |       +-------------+        |
 |                              |
 |                              |
 |                              |
 +------------------------------+

[qvb6]

Use the Move method of Picture2, to both move it and resize it at the same time.

[DataMiser]

Use something along the lines of

top= (Picture1.ScaleHeight-picture2.height)/2
left=(picture1.scalewidth-picture2.width)/2

[4x2y]

Use something along the lines of

top= (Picture1.ScaleHeight-picture2.height)/2
left=(picture1.scalewidth-picture2.width)/2

That code is OK if Picture1 is parent of Picture2, if it isn't then you should use the following code

Picture2.Left = Picture1.Left + (Picture1.Width / 2) - (Picture2.Width / 2)
Picture2.Top = Picture1.Top + (Picture1.Height / 2) - (Picture2.Height / 2)

[Ordinary Guy]

Using this code.....

top= (Picture1.ScaleHeight-picture2.height)/2
left=(picture1.scalewidth-picture2.width)/2

Picture1.Width = 514
Picture1.Height = 327

Picture2.Width = 65
Picture2.Height = 18

Both pictures have ScaleMode Pixels

this is what I get.....

[4x2y]

Using this code.....

top= (Picture1.ScaleHeight-picture2.height)/2
left=(picture1.scalewidth-picture2.width)/2

Picture1.Width = 514
Picture1.Height = 327

Picture2.Width = 65
Picture2.Height = 18

Both pictures have ScaleMode Pixels

this is what I get.....

See my above reply #4

[Ordinary Guy]

OK, never mind post 5 I now see post 4. Everything OK now

[4x2y]

OK, never mind post 5 I now see post 4. Everything OK now

I think you have to think of setting Picture1 as parent of Picture2, this may save you a lot of extra calculation if you move both relatively, to do at run time

Private Sub Form_Load()
    Set Picture2.Container = Picture1
End Sub

or at design time by cutting Picture2 and pasting it inside Picture1