以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  报表中的图片如何根据容器对象大小缩放呢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=192062)

--  作者:饭浇盖
--  发布时间:2024/5/27 12:46:00
--  报表中的图片如何根据容器对象大小缩放呢
Dim rm As New prt.RenderImage() \'定义一个图片对象
rm.Width = 100
rm.Height=30
rm.Image = GetImage("logo.png") \'请改为实际的图标名称和路径
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center \'图片水平居中
rm.Style.ImageAlign.AlignVert = prt.ImageAlignVertEnum.Center \'图片垂直居中
rm.Style.ImageAlign.StretchHorz = True \'禁止水平方向扩展图片
rm.Style.ImageAlign.StretchVert = True \'禁止垂直方向扩展图片

这里图片过大,超出了对象

--  作者:cd_tdh
--  发布时间:2024/5/27 12:55:00
--  
这个?
--  作者:有点蓝
--  发布时间:2024/5/27 13:33:00
--  
rm.Width = "Parent.Width" \'宽度等于页面宽度
rm.Height = 
"Auto" \'高度由图片大小自动决定
rm.Style.ImageAlign.StretchHorz = 
False \'禁止图片水平拉伸
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center 
\'居中显示