- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [请教] 文件管理器字体 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=56072)
-- 发布时间：2014/8/28 17:30:00
-- [请教] 文件管理器字体
字体无法设置，感觉和整个界面不协调，很别扭。
[此贴子已经被作者于2014-8-29 14:55:04编辑过]
-- 发布时间：2014/8/28 17:37:00
--
这个是可以设置的，参考
e.Form.Controls("FileManager1").Font = New Font("宋体",12,FontStyle.Bold Or FontStyle.Underline)
-- 发布时间：2014/8/28 17:47:00
--
明白了，谢谢。
-- 发布时间：2014/8/29 14:31:00
--
设置字体后发现问题：文件管理器偏离了设计时的位置，跑偏了。
窗体afterload代码如下：
Dim fm As WinForm.FileManager = e.Form.Controls("FileManager1")
fm.Font = New Font("宋体",12)
禁止上述代码后，就正常了。
（控件位置均为默认）
设计时：
此主题相关图片如下：剪辑_56.jpg
预览时：
此主题相关图片如下：剪辑_57.jpg
-- 发布时间：2014/8/29 14:55:00
--
顶
-- 发布时间：2014/8/29 14:59:00
--
呃，位置问题，我测试，一点问题都没有。
例子发上来。
-- 发布时间：2014/8/29 15:05:00
--
可能和操作系统有关，我这边定位也有问题，要不你把代码改为这样测试一下：
Dim fm As WinForm.FileManager = e.Form.Controls("FileManager1")
For Each c1 As Windows.Forms.Control In fm.BaseControl.Controls
c1.Font = New Font("宋体",12)
Next
fm.AddCommand.Font = New Font("宋体",12)
fm.AddFolderCommand.font = New Font("宋体",12)
...设置其他命令的字体
[此贴子已经被作者于2014-8-29 15:06:03编辑过]
-- 发布时间：2014/8/29 15:16:00
--
谢谢狐爸