获取图片的宽和高(像素)

最新推荐文章于 2022-09-22 22:18:15 发布

lygcw9602

最新推荐文章于 2022-09-22 22:18:15 发布

阅读量1.3k

点赞数

分类专栏： Image

Image 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

* 方法一
cImg = Getpict()   && 获取 bmp, jpg, gif

xImgObj = LoadPicture(cImg)
With xImgObj
    lnWidth = Int(.Width/26.458)
    lnHeight = Int(.Height/26.458)
Endwith

Messagebox("宽度 = " + Transform(lnWidth) + "(像数)" + Chr(13) + ;
    "高度 = " + Transform(lnHeight) + "(像数)")

* 方法二 

cc = Sys(2015)
_Screen.NewObject(cc, 'Image')
With GetPem(_Screen, cc) as Image
	.Picture = GetPict()
	? '图片宽度', .Width
	? '图片高度', .Height
EndWith
_Screen.RemoveObject(cc)

* 来源 http://bbs.csdn.net/topics/390972202