Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
Dim a As String, k As Single
Private Type BITMAP
bmType As Long
bmWidth As Long
bmHeight As Long
bmWidthBytes As Long
bmPlanes As Integer
bmBitsPixel As Integer
bmBits As Long
End Type
Private Type PicInfo
PicWidth As Long
picHeight As Long
End Type
Private Function fncGetInfo(lsPicName As String) As PicInfo
'lsPicName是图片的文件名,带路径
Dim hBitmap As Long
Dim res As Long
Dim bmp As BITMAP
res = GetObject(LoadPicture(lsPicName).Handle, Len(bmp), bmp) '取得BITMAP的结构
fncGetInfo.PicWidth = bmp.bmWidth '图片的宽
fncGetInfo.picHeight = bmp.bmHeight '图片的高
End Function
引用:
Print fncGetInfo("c:\景色1.jpg").PicWidth
Print fncGetInfo("c:\景色1.jpg").picHeight
分享到:
相关推荐
image没有鼠标移出的属性、 所以利用mousemove属性实现 鼠标移入移出换图
纯VB代码用GDI实现将png显示到image中.
VB加载PNG图像引擎,支持透明PNG图像显示功能.
用VB写的图像旋转程序,速度还可以,欢迎使用。
VB 图片 检测模块化实现代码VB image detection module implementation code
Image倥件,使VB支持透明的PNG格式图片!
VB6.0 在图片框中显示PNG图片
里面附带了几张测试用的图片和VB6源码,亲测保证可用。
VB6实现图片和BASE64之间的转换,巧用XML,通用性好,可以用于将图片远程上传服务器,保存数据库,或才接收服务器图片数据后,转换成图片本地显示。
图像旋转 vb ,实现图片的任意角度旋转,代码简单明了。
VB下使用拖放打开图像文件的示例.rar VB下使用拖放打开图像文件的示例.rar
VB 图片浏览 VB 图片浏览 VB 图片浏览
能够显示png图片的控件源代码,xp vb6下测试完成
WpF 图片查看器 用c#实现 图片查看!
Vb 窗体内调用一张图片,并得到一张图片的长度和宽度,还有图片的彩色位数,图像质量越高,一般位数越高。
Image Processing software VB6 greate value classic softwarespecial effects
VB read Image from SQL as binary。VB代码读取从SQL中读取图片文件,并转换为二进制。
VB实现图像模糊效果代码VB code of image blur
VB 调用 IMAGE 控件实现图像缩放的一种方法
A VB image list control