以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  FileManager中按钮字号以及文件名字号的调节  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69364)
--  作者：包头123
--  发布时间：2015/6/3 19:19:00
--  FileManager中按钮字号以及文件名字号的调节
版主：
     如何调整FileManager控件中按钮的字号以及文件名的字号？
     系统默认字号有点小，好像是9磅字，对于眼花的人员使用，很不方便。
     请问版主，属性中无法调整，用语句能调整吗？如何调整？
--  作者：大红袍
--  发布时间：2015/6/3 19:36:00
--  

 参考代码

 

Dim lbx As object = Forms("窗口1").Controls("FileManager1").basecontrol.Controls("SplitContainer1").panel1.Controls("ListBox1")
lbx.Font = new Font("宋体", 12)
Dim obj As object = Forms("窗口1").Controls("FileManager1").basecontrol.Controls("SplitContainer1").panel2.controls("FlowLayoutPanel1")
For Each o As object In obj.controls
    o.Font = new Font("宋体", 12)
Next
\'Forms("窗口1").Controls("FileManager1").basecontrol.Controls("SplitContainer1").splitterdistance = 200
--  作者：包头123
--  发布时间：2015/6/4 8:45:00
--  
谢谢了。
--  作者：包头123
--  发布时间：2015/6/4 8:59:00
--  
修改窗口名称后，就成功了。
将来能加到控件属性中，就更好了。非常感谢。