Foxtable(狐表)用户栏目专家坐堂 → [求助]如何设置FileManager管理器按钮样式


  共有2569人关注过本帖树形打印复制链接

主题:[求助]如何设置FileManager管理器按钮样式

帅哥哟,离线,有人找我吗?
智友软件工作室
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:912 积分:7445 威望:0 精华:0 注册:2013/2/25 13:10:00
[求助]如何设置FileManager管理器按钮样式  发帖心情 Post By:2017/9/1 13:17:00 [只看该作者]

现在想要自定义FileManager管理器下面按钮的自定义样式,包括字体、大小和颜色,请问如何设置

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

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/1 14:32:00 [只看该作者]

 既然都自己做了,那为什么还要用fileManager?你放一个listBox控件不就好了?

 回到顶部
帅哥哟,离线,有人找我吗?
智友软件工作室
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:912 积分:7445 威望:0 精华:0 注册:2013/2/25 13:10:00
  发帖心情 Post By:2017/9/1 14:56:00 [只看该作者]

我改主意了,还是用内置的管理器,改一下增加、目录、打开、删除、另存等按钮样式就可以了,但是不知道现在从哪里改

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
智友软件工作室
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:912 积分:7445 威望:0 精华:0 注册:2013/2/25 13:10:00
  发帖心情 Post By:2017/9/1 15:11:00 [只看该作者]

谢谢,字体颜色可以改,字体大小如下代码之后无效果
btns.Font = New Font("宋体", 18)

 回到顶部
帅哥哟,离线,有人找我吗?
智友软件工作室
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:912 积分:7445 威望:0 精华:0 注册:2013/2/25 13:10:00
  发帖心情 Post By:2017/9/1 15:13:00 [只看该作者]

btns.controls("add").Font = New Font("宋体", 18)

知道了  谢谢

 回到顶部