以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]将独立或模式窗口移动到屏幕正中  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78384)
--  作者：leopain
--  发布时间：2015/12/8 11:43:00
--  [求助]将独立或模式窗口移动到屏幕正中
老师 求教一下 将独立或者模式窗口移动到屏幕正中该怎么写啊？
--  作者：大红袍
--  发布时间：2015/12/8 11:47:00
--  

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

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

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