- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]PictureViewer字体大小 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=80223)
-- 发布时间：2016/1/18 23:17:00
-- [求助]PictureViewer字体大小
Dim obj As object = Forms("产品单页").Controls("PictureViewer1").basecontrol.Controls("SplitContainer1").panel2.controls("FlowLayoutPanel1")
For Each o As object In obj.controls
o.Font = new Font("宋体", 11)
Next
此主题相关图片如下：qqsm20160118231633.png
-- 发布时间：2016/1/18 23:20:00
--
参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=78784&skin=0
-- 发布时间：2016/1/18 23:31:00
--
如，代码
Dim obj As object = e.Form.Controls("PictureViewer1").basecontrol.Controls(0)
obj.SplitterDistance = 200
For Each o As object In obj.panel2.controls("FlowLayoutPanel2").Controls
o.Font = new Font("宋体", 20)
Next