- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 网页图片控制 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170464)
-- 发布时间：2021/7/27 21:16:00
-- 网页图片控制
If Forms("图片").Opened Then
Dim r As Row = e.Table.Current
Dim brw As WinForm.WebBrowser = Forms("图片").Controls("WebBrowser1")
brw.Address = r("产品图")
网页图片怎么控制大小
此主题相关图片如下：企业微信截图_20210727210014.png
此主题相关图片如下：企业微信截图_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
-- 发布时间：2021/7/27 21:37:00
--
Dim web = e.form.controls("webbrowser1").basecontrol |