以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]PictureViewer字体大小  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=80223)

--  作者:seal51
--  发布时间: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


--  作者:xxfoxtable
--  发布时间:2024/9/23 15:25: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

这个代码不管用,报错“未设置对象变量或 With 块变量。”

--  作者:有点蓝
--  发布时间:2024/9/23 15:49:00
--  
现在Foxtable不支持使用代码控制底层的东西。
--  作者:xxfoxtable
--  发布时间:2024/9/23 15:55:00
--  
那怎么变字体,平板用,字体太,点不了
--  作者:有点蓝
--  发布时间:2024/9/23 15:57:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=137921
--  作者:xxfoxtable
--  发布时间:2024/9/23 16:06:00
--  
好了
[此贴子已经被作者于2024/9/23 16:09:32编辑过]

--  作者:有点蓝
--  发布时间:2024/9/23 16:11:00
--  
我测试没有问题,确定窗口和控件名称都写对了,并且去掉了之前错误的代码