缩放图像及图象上的label框

Question

对图象缩放通过改变控件image或picture的;scalewidth和scaleheight实现
 对label缩放改变width和height就可以，
 使label根据图象缩放的比率缩放。

Answer 1

对LABEL大小的缩放，同意楼上。但LABEL中的字可不会像图象一样。
所以建议都使用图象，好控制！

Answer 2

mornwoo(疾风之虫) ,能不能给一个简单的例子，就是在PICTURE框上有一个label框，根据比例缩放。

Answer 3

对于图象本身的缩放自己根据需要书写了，关键的是函数：funZoomLabel 
此函数仅供参考Private Sub Command1_Click()
Dim iZoom As Integer    '放大倍数
    
    iZoom = 2
    Picture1.PaintPicture Picture1, 0, 0, Picture1.Width, Picture1.Height _
                        , 0, 0, Picture1.Width / iZoom, Picture1.Height / iZoom
    funZoomLabel Label1, 2
End SubPrivate Sub funZoomLabel(ByRef lbl As Label, ByVal iZoom As Integer)
    '位置
    lbl.Top = lbl.Top * iZoom
    lbl.Left = lbl.Left * iZoom
    
    lbl.BackStyle = 0        '透明色
    
    lbl.Width = lbl.Width * iZoom
    lbl.Height = lbl.Height * iZoom
    
    lbl.FontSize = lbl.FontSize * iZoom
End Sub