获取图片的宽度和高度怎么做

速度快就行了

解决方案 »

  1.   

    用一个image控件加载一下，image的streth设置为false，然后取image的height和width属性就行了。
    当然这个方法速度不可能很快。
      

  2.   

    Private Sub Command1_Click()
        Dim pic As StdPicture
        Set pic = LoadPicture("c:\test.bmp")
        MsgBox "宽为：" & pic.Width & "高为" & pic.Height
    End Sub
      

  3.   

    对了，补充一下，如果为了更快一点，请将IMAGE控件的属性设置如下：IMAGE1.APPERANCE=0 '平坦外形
    IMAGE1.BORDERSTYLE=0 '没有边框
    IMAGE1.VISIBLE=FALSE '不可见这样设置一下，会让你图像加载更快一些
    '反正只是为了得到尺寸，不需要可见