以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何设置FileManager管理器按钮样式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=106067)

--  作者:智友软件工作室
--  发布时间:2017/9/1 13:17:00
--  [求助]如何设置FileManager管理器按钮样式
现在想要自定义FileManager管理器下面按钮的自定义样式,包括字体、大小和颜色,请问如何设置

图片点击可在新窗口打开查看此主题相关图片如下:111.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:222.png
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2017/9/1 14:32:00
--  
 既然都自己做了,那为什么还要用fileManager?你放一个listBox控件不就好了?
--  作者:智友软件工作室
--  发布时间:2017/9/1 14:56:00
--  
我改主意了,还是用内置的管理器,改一下增加、目录、打开、删除、另存等按钮样式就可以了,但是不知道现在从哪里改
--  作者:有点甜
--  发布时间:2017/9/1 15:03:00
--  

Dim lbx As object = e.Form.Controls("FileManager1").basecontrol.Controls("SplitContainer1").panel1.Controls("ListBox1")
lbx.Font = New Font("宋体", 12)

 

------------------------

 

Dim btns = e.Form.Controls("FileManager1").basecontrol.Controls("SplitContainer1").panel2.Controls("FlowLayoutPanel1")
For Each o As object In btns.controls
    msgbox(o.name)
Next

btns.controls("add").forecolor = color.red


--  作者:智友软件工作室
--  发布时间:2017/9/1 15:11:00
--  
谢谢,字体颜色可以改,字体大小如下代码之后无效果
btns.Font = New Font("宋体", 18)

--  作者:智友软件工作室
--  发布时间:2017/9/1 15:13:00
--  
btns.controls("add").Font = New Font("宋体", 18)

知道了  谢谢