以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何让狐表程序不根随系统的DPI缩放？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86068)
--  作者：pc005637
--  发布时间：2016/6/9 8:04:00
--  如何让狐表程序不根随系统的DPI缩放？
如因为在125%缩放时，字体会排版错误。
--  作者：狐狸爸爸
--  发布时间：2016/6/9 9:09:00
--  
没办法
--  作者：shenyl0211
--  发布时间：2016/6/10 13:22:00
--  
不要改变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
--  作者：lhpc120
--  发布时间：2017/8/7 13:05:00
--  
收藏了，改天试试