以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口分辨率显示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101804)

--  作者:qaz
--  发布时间:2017/6/7 13:35:00
--  窗口分辨率显示
窗口在1920*1080做的,在1280*720的窗口中,显示不下,设置了自动滚动。但是窗口总是占满屏幕的上面和下面,如何能让窗口显示时在屏幕上面和下面留点空间。
--  作者:有点色
--  发布时间:2017/6/7 14:38:00
--  
 没看懂你的问题,截图说明一下。
--  作者:qaz
--  发布时间:2017/6/7 14:54:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:无标题1.png
图片点击可在新窗口打开查看
能让下面固定留些空间吗?

--  作者:qaz
--  发布时间:2017/6/7 14:55:00
--  
都顶到任务栏下面了
--  作者:cd_tdh
--  发布时间:2017/6/7 16:12:00
--  
你把窗口设计小点,按照分辨率最低设计。
--  作者:有点色
--  发布时间:2017/6/7 16:32:00
--  

 动态设置窗口的高度,不就好了?

 

 窗口AfterLoad事件,写代码

 

If e.Form.height >= SysInfo.WorkingAreaHeight Then  
    e.Form.baseform.height = 500 \'SysInfo.WorkingAreaHeight
End If


--  作者:qaz
--  发布时间:2017/6/7 21:41:00
--  
就是这个意思,谢谢,只是一打开窗口就显示到最后了,能设置成最上面吗?
图片点击可在新窗口打开查看此主题相关图片如下:猎豹截图20170607214009.png
图片点击可在新窗口打开查看

--  作者:cd_tdh
--  发布时间:2017/6/7 22:13:00
--  
ALterLoad事件用代码设置

e.form.baseform.topmost = true

--  作者:qaz
--  发布时间:2017/6/8 8:53:00
--  
能不能让右边的滑条打开时在最上边?
--  作者:有点蓝
--  发布时间:2017/6/8 9:45:00
--  
选中窗口的第一个控件即可

窗口Afterload

e.form.controls("TextBox1").select