读书人

求问VFP 表单图片显示大小疑点

发布时间: 2013-04-26 16:27:53 作者: rapoo

求问VFP 表单图片显示大小问题
求问VFP 表单图片显示大小疑点

求问,表单里有个Image1控件,请问各位大大,能不能实现,显示的时候,可以手动拉图像边框进行放大缩小,或者双击图片显示原图大小。求教。。
[解决办法]
在 Image 控件的 DblClick 事件:将 Image 控件的大小设为 图片的大小。
取得图片的大小[宽和高]
lcImageName='c:\abc.jpg'
Declare Integer GdipLoadImageFromFile In GDIPlus.Dll String wFilename, Integer @nImage
Declare Integer GdipGetImageWidth In GDIPlus Integer img,Integer @ imgwidth
Declare Integer GdipGetImageHeight In GDIPlus Integer img,Integer @ imgheight
Declare Integer GdipDisposeImage In GDIPlus.Dll Long nativeImage
Store 0 To nImage,nWidth,nHeight
GdipLoadImageFromFile(Strconv(lcImageName+Chr(0),5),@nImage)
GdipGetImageWidth(nImage,@nWidth)
GdipGetImageHeight(nImage,@nHeight)
GdipDisposeImage(nImage)
?'图片宽度:',nWidth
?'图片高度:',nHeight

读书人网 >VFP

热点推荐