Image将stretch设置问题
Image将stretch设置为false图片会变形,设置为true图片大小会自动变化,有没有办法让图片按我的要求显示,不会出现我所将的情况?谢谢用其他控件也可以....
你要什么效果 ,是 固定 比例缩放, 还是 满屏缩放??
还是居中缩放, 居中不缩放 ??
那个属性是 设置前二种形式.
后面那几种,需要自己复制图像来达到效果.
2010-05-23 11:13
2010-05-23 11:57
2010-05-24 12:00
程序代码：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
2010-05-24 19:23
2010-05-25 09:31
New Folder.rar
(2.25 KB)
2010-05-25 09:35
2010-05-25 11:16
2010-05-25 11:56