Image将stretch设置为false图片会变形,设置为true图片大小会自动变化,有没有办法让图片按我的要求显示,不会出现我所将的情况?谢谢用其他控件也可以....

你要什么效果 ,是 固定 比例缩放, 还是 满屏缩放??
还是居中缩放, 居中不缩放 ??

那个属性是 设置前二种形式.
后面那几种,需要自己复制图像来达到效果.

固定大小,居中缩放!谢谢

Private Sub Form_Paint()
'此过程为响应窗体重绘过程
'要求 image1 里加载图像,否则会报一路错误
On Error Resume Next        '忽略错误

Dim x As Long, y As Long
Dim b1 As Double, b2 As Double

b1 = Image1.Width / Me.ScaleWidth    '计算比例
b2 = Image1.Height / Me.ScaleHeight

Me.Cls                              '清屏
If b1 < b2 Then                     '取比例大的那个,并计算 X 或 Y 居中的坐标
    b1 = b2
    y = 0
    x = (Me.ScaleWidth - Image1.Width / b1) / 2
Else
    x = 0
    y = (Me.ScaleHeight - Image1.Height / b1) / 2
End If

'复制图像
Me.PaintPicture Image1.Picture, x, y, Image1.Width / b1, Image1.Height / b1

End Sub

Private Sub Form_Resize()
    '当窗口缩小时,窗口不会自动重绘,需要手动重绘
    Call Form_Paint
End Sub

风吹过B,如果我的Image1.Width= 9015,Image1.Height=6615, 每次去这个固定的,怎么写?谢谢?

见附件!

插入一个 PictureBox,
然后把复制图像的对象从 form 改为 Picture1 .

详见工程

Excellence!!! many thanks