以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  导航怎么设置能适应各种分辨率？  (http://foxtable.com/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