急！急！关于vb中的图形问题?

在vb中如何实现图形的放缩？
如果要实现图形比例的参数话呢？请各位高手指教!

解决方案 »

  1.   

    有一个方法我用过的，先把图片加载于一个Image控件中，Image控件的可拉伸属性设为True，此时可得到图片的宽度和高度比例，记下此比例即可。
      

  2.   

    如要放置到图片框Picture中时，可根据计算出的值加载
      

  3.   

    Dim spcMain As StdPicture    picMicro.PaintPicture spcMain, 0, 0, picMicro.ScaleWidth, picMicro.ScaleHeight, _
                0, 0, ScaleX(spcMain.Width, vbHimetric, vbTwips), ScaleY(spcMain.Height, vbHimetric, vbTwips)picMicro为PictureBox控件
      

  4.   

    这样就可以把源图像按照PictureBox控件的大小显示在PicMicro中