不要改变DPI。word、excel、网页等可以通过ctrl+鼠标滚轮放大缩小。
狐表开发的项目可以在菜单中增加字号选择改变菜单、表格的字号（表名、筛选树等的字号不知道怎么同步修改）：
菜单属性：
类型：组合框
内容：9（默认字号）
宽度：15（两个字符）
最大长度：2（两个字符）
列表项目：增加名称和标题为9、10、11、12四个标准按钮
事件代码：
Dim fnt As Font = CurrentTable.Font
Dim Size As Integer
'尝试将组合框的内容转换为整数,成功则将字体大小设为此整数
If Integer.TryParse(e.ComboBox.Text, Size) Then
CurrentTable.Font = New Font(fnt.Name, Size, Fnt.Style)
CurrentTable.AutoSizeCols()
CurrentTable.AutoSizeRows()
CurrentTable.AutoSizeHeaderRow()
BaseMainform.Controls("C1Ribbon1").Font = New Font("宋体",size)
End If
加好友 
发短信
Post By：2016/6/9 8:04:00 [只看该作者]
