一、从数据库中读取数据保存成文件
二、给窗体的控件设置picturename为你刚保存的文件
三、使用UnitsToPixels函数转换控件p_1的宽和长,比如
PicWidth=UnitsToPixels(p_1Width, XUnitsToPixels!)
PicHeight=UnitsToPixels(p_1Height, YUnitsToPixels!)
Image的Width、Height是只读的,你可以新建一个位图改变的它的尺寸如下,target就是你要的,不过这种效果不是最好的,建议你还是用Graphics自己画
thisImage1ImageUrl = "~/Image-img/13jpg";
SystemDrawingImage imgPhoto = SystemDrawingImageFromFile(thisImage1ImageUrl);
int sourceWidth = imgPhotoWidth > 305 305 : imgPhotoWidth;
int sourceHeight = imgPhotoHeight > 305 305 : imgPhotoHeight;
SystemDrawingBitmap target = new SystemDrawingBitmap(imgPhoto, sourceWidth, sourceHeight);
将此代码复制过去即可:
Sub picScale()
For i = 1 To Worksheets(1)ShapesCount
Worksheets(1)Shapes(i)Select
With Selection
ShapeRangeLockAspectRatio = msoTrue
' 下列代码根据实际二选一即可
ShapeRangeHeight = 50
' ShapeRangeWidth = 300
End With
Next i
End Sub
另外,如果想知道的长宽像素,可以使用shapes的Width和Height属性
PS:
上面的回答是基于已插入到Excel中的,如果还未插入,则必须用ApplicationFileSearch从指定的文件夹中循环读取文件夹中的所有,然后插入到相应的单元格中。插入的同时进行缩放。
以上就是关于pb如何获取图片尺寸全部的内容,包括:pb如何获取图片尺寸、NET 获取图片长和宽、如何用VBA读取图片的长宽的像素等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)