以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教：已经打开的独立窗体，能否通过代码移动到指定位置  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=77065)
--  作者：bahamute
--  发布时间：2015/11/10 15:54:00
--  请教：已经打开的独立窗体，能否通过代码移动到指定位置
已经打开的独立窗体，能否通过代码移动到指定位置，比如屏幕右下角。
--  作者：大红袍
--  发布时间：2015/11/10 15:58:00
--  

dim f = Forms("窗口1")
f.Open

Dim x As Integer = SysInfo.WorkingAreaWidth - f.width
Dim y as integer = SysInfo.WorkingAreaHeight - f.height

f.baseform.left = x
f.baseform.top = y