Foxtable(狐表)用户栏目专家坐堂 → [求助]如何设置记录窗口字体,行高,列宽


  共有2475人关注过本帖树形打印复制链接

主题:[求助]如何设置记录窗口字体,行高,列宽

帅哥哟,离线,有人找我吗?
智友软件工作室
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:912 积分:7445 威望:0 精华:0 注册:2013/2/25 13:10:00
[求助]如何设置记录窗口字体,行高,列宽  发帖心情 Post By:2019/1/26 12:14:00 [只看该作者]

For Each a As OBJECT In Tables("工作记录").grid.parent.controls
    For Each b As OBJECT In a.controls
        If b.text = "工作记录" Then
            Dim bctr = b.controls(0).controls(0)
            bctr.Font = new font("微软雅黑",12)
            bctr.AutoSizeRows
            'bctr.AutoSizeCols
            'bctr.SetColVisibleWidth(cvs)
            Output.Show(bctr.GetColVisibleWidth)
            Exit For
        End If
    Next
Next

按照论坛给的例子是自动列宽和行高,但在实际应用过程中,需要自定义设置行高和列宽,请问如何设置呢?

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110792 积分:563898 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/1/26 12:43:00 [只看该作者]

For Each a As OBJECT In Tables("工作记录").grid.parent.controls
    For Each b As OBJECT In a.controls
        If b.text = "工作记录" Then
            Dim bctr = b.controls(0).controls(0)
            bctr.Font = new font("微软雅黑",12)
            bctr.Cols(0).width = 100 '列宽
            bctr.Rows(2).height = 50 '行高
            Exit For
        End If
    Next
Next

 回到顶部