If Forms("图片").Opened Then
Dim r As Row = e.Table.Current
Dim brw As WinForm.WebBrowser = Forms("图片").Controls("WebBrowser1")
brw.Address = r("产品图")
网页图片怎么控制大小
此主题相关图片如下:企业微信截图_20210727210014.png
'Dim rm As New prt.RenderImage '定义一个图片对象
'rm.Image = GetImage("EP1.BMP") '设置图片
'rm.Width = "Parent.Width" '宽度等于页面宽度
'rm.Height = "Auto" '高度由图片大小自动决定
'rm.Style.ImageAlign.StretchHorz = False '禁止图片水平拉伸
'rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '居中显示
Else
Forms("图片").Open '
End If