怎样使图片框位于窗体的正中间,无论窗体大小如何改变

[couragetodream]

如题

[chenziteng]

试试在Form的Resize事件处理过程中把图片框移动到窗体中间.

Private Sub Form_Resize()
Dim w As Long
Dim h As Long
w = Image1.Width
h = Image1.Height
Image1.Move (Me.Width - w) / 2, (Me.Height - h) / 2, w, h
End Sub

[couragetodream]

试了一下 , 延X轴看确实是在中间,可延Y轴看却不是在中间

[couragetodream]

Image1.Move (Me.ScaleWidth - w) / 2, (Me.ScaleHeight - h) / 2, w, h
这样就OK了