不用API或ADO 获取磁盘上一副图片的高度和宽度

t小宝

'  获取磁盘上一副图片的高度和宽度的代码：

    Dim obj1 As IPictureDisp
    Set obj1 = LoadPicture("e:\My Documents\My Pictures\Morgana.jpg")
    With obj1
        Debug.Print "高度:" & .Height / 26.46
        Debug.Print "宽度:" & .Width / 26.46
    End With
   
' 这个方法不用API或ADO，LoadPicture 不是ACCESS本身提供的方法，而是stdole对象的成员，
' 来自 OLE Automation 引用，这个引用是ACC的默认引用，因此使用这个方法不会有什么问题。
' 关于stdole对象，可在对象浏览器中查看，大家可以研究挖掘一下，看还有什么好用的方法。
' 比如还有一个 SavePicture ，结合 LoadPicture 可复制一副图片。

红尘如烟

我现在用的方法是在一个窗体中创建一个Image控件,然后将图片加载到Image控件中,通过读取Image控件的ImageWidth属性和ImageHeight属性来得到图片尺寸

红尘如烟

chuang0321

都不错！

Henry D. Sy

都谢谢

andymark

学习一下

Grant

都是牛人,学习学习

davidliu9116

学习一下,谢谢!!

asklove

见好就收

李力军2

很好滴