以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何实现独立窗口的依靠位置?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170016)

--  作者:lin98
--  发布时间:2021/7/9 13:20:00
--  如何实现独立窗口的依靠位置?
如何实现独立窗口的依靠位置?
一般打开项目的独立窗口的依靠位置是居中,如何实现自它的定义依靠位置,比如:依靠位置:左上角,或右下角?

--  作者:有点蓝
--  发布时间:2021/7/9 13:39:00
--  
参考:http://www.foxtable.com/webhelp/topics/0708.htm

Forms("窗口1").Open(100,100)

--  作者:lin98
--  发布时间:2021/7/9 15:57:00
--  
Dim frm As WinForm.Form
frm = Forms("窗口1")
frm.Open(800,200)

写上面代码在窗口打开后事件,执行后,还是没有改变,独立窗口一直都在居中,想实现让它右下角,如何实现?

--  作者:有点蓝
--  发布时间:2021/7/9 16:13:00
--  
代码放到打开窗口的地方,比如在菜单里打开窗口,就放到菜单按钮里,不要放到本窗口里
--  作者:lin98
--  发布时间:2023/3/30 14:04:00
--  
窗口1的按键1的单击事件。想实现:"导入"窗口向右下边,如何实现?
下面代码执行,窗口还在居中
Dim frm As WinForm.Form
frm = Forms("导入")
frm.Open(100, 100)
\'\'frm.Open(200)

--  作者:有点蓝
--  发布时间:2023/3/30 14:16:00
--  
http://www.foxtable.com/webhelp/topics/0348.htm

frm.Open(WorkingAreaWidth - 窗口宽度WorkingAreaHeight - 窗口高度)