以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  导航怎么设置能适应各种分辨率?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=136724)

--  作者:xxfoxtable
--  发布时间:2019/6/19 22:56:00
--  导航怎么设置能适应各种分辨率?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


--  作者:有点甜
--  发布时间:2019/6/19 23:24:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


--  作者:xxfoxtable
--  发布时间:2019/6/20 0:06:00
--  
最小化,再打开,按钮就全都没有了
--  作者:有点甜
--  发布时间:2019/6/20 9:34:00
--  
If basemainform.windowstate <> 1 AndAlso vars("width") > 10 AndAlso vars("height") > 10 Then
    For Each c As Winform.Control In e.Form.Controls
        c.Left = c.Left * (e.Form.Width / vars("width"))
        c.Top = c.Top * (e.Form.Height / vars("height"))
        c.Width = c.Width * (e.Form.Width / vars("width"))
        c.Height = c.Height * (e.Form.Height / vars("height"))
    Next
    \'msgbox(e.Form.Height / vars("height"))
    vars("width") = e.Form.width
    vars("height") = e.Form.height
End If