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

图像(Image)问题 | 2015-02-18 19:14:43 | 阅读 1472 次 | 评论(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)
方法三
op = CREATEOBJECT("Image")
op.Picture = GETPICT()
? "Width  : ", op.Width
? "Height : ", op.Height
  


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

文章评论,共0条
游客请输入验证码
浏览268901次
最新评论
  • cstdio:ooooooo
  • sdta:从VFP入手也不错
  • yuanhouwen:尊敬的sdta大神:作为一个编程外行,看到你关于操控EXCEL的编程程序我觉得特别神奇,想向你...