Dim rm As New prt.RenderImage ' 添加鉴定人签名
rm.Image = GetImage("mysys\" & yuren(ip) & ".png")
rm.Width = w
rm.Height = "Auto" '高度由图片大小自动决定
rm.Style.ImageAlign.StretchHorz = False '禁止图片水平拉伸
rm.X = l + (w + m) * ip + Rand.Next( r * ( - 1) , r)
rm.Y = t + Rand.Next( r * ( - 1) , r)
上述第三行变量控制的图片宽度为什么不是缩放,而是直接裁剪切掉?
自己禁止了哦,去掉下面代码
rm.Style.ImageAlign.StretchHorz = False '禁止图片水平拉伸