以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  共有窗口水平位置  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120954)
--  作者：Liangcai
--  发布时间：2018/6/26 23:22:00
--  共有窗口水平位置
窗口1窗口类型是“共有”，停靠区域“右”
Forms("窗口1").Open()
Dim t As Table = Tables("窗口1_Table1")
    Dim sum As Double = 0
    For Each c As Col In t.cols
        If c.Visible = True Then
            sum += iif(c.width=-1, 98, c.width)
        End If
    Next
Forms("窗口1").baseform.width =sum +2
Forms("窗口1").baseform.left = SysInfo.ScreenWidth-sum -2
请老师指教，谢谢！
[此贴子已经被作者于2018/6/26 23:29:08编辑过]
--  作者：Liangcai
--  发布时间：2018/6/26 23:37:00
--  
搞定
e.form.panel.parent.parent.width = SysInfo.ScreenWidth-sum -2