可能和操作系统有关,我这边定位也有问题,要不你把代码改为这样测试一下:
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编辑过]