用VB实现图片的预览功能

在word2000中，点击“插入”--“图片”--“来自文件”时的对话框中，提供了图片的预览功能，请问用VB如何实现，要求是：必须要保持图片的长宽比例（纵横比），不然图片就变形了。

解决方案 »

  1.   

    用image控件，strecth=true，再loadpicture就可以了
      

  2.   

    可以看看：
    用VB编写一个能够预览*.BMP的程序
    http://www.china-askpro.com/msg12/qa34.shtml
      

  3.   

    缩略图制作浏览---看图源码      
    这个代码可以浏览各种图片和ICON,并且可以生成缩略图,支持幻灯片播放,图形缩放,旋转等功能,界面做的比较漂亮的. 
    http://www.mndsoft.com/blog/blogview.asp?logID=205
      

  4.   

    dim stdPic as stdPicture
    set stdPic=loadpicture(......)
    图片宽[像素] = ScaleX(stdPic.Width, vbHimetric, vbPixels)
    图片高[像素] = ScaleY(stdPic.Height, vbHimetric, vbPixels)