可能和操作系统有关,我这边定位也有问题,要不你把代码改为这样测试一下:
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)Nextfm.AddCommand.Font = New Font("宋体",12)fm.AddFolderCommand.font = New Font("宋体",12)
...设置其他命令的字体