以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]主窗口还原居中  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79542)
--  作者：blsu33
--  发布时间：2016/1/4 16:17:00
--  [求助]主窗口还原居中
红袍老师，
 主窗口还原怎么让居中
AfterOpenProject


Dim ribbon As C1.Win.C1Ribbon.C1Ribbon = baseMainForm.Controls("C1Ribbon1")

ApplicationMenu.visible= False
Ribbon.hide
TableCaptionVisible = 0
baseMainForm.MinimizeBox = True
baseMainForm.MaximizeBox =True
baseMainForm.ControlBox= True
baseMainForm.WindowState =0

MainTable = Tables("表A")

\'
Forms("合成").Open
--  作者：大红袍
--  发布时间：2016/1/4 16:20:00
--  
baseMainForm.Top = (SysInfo.ScreenHeight - baseMainForm.height) / 2
baseMainForm.left = (SysInfo.ScreenWidth - baseMainForm.width) / 2
--  作者：blsu33
--  发布时间：2016/1/4 16:38:00
--  
老师 ，
  写在哪，怎么没有变化？
--  作者：blsu33
--  发布时间：2016/1/4 16:40:00
--  
SizeChanged
--  作者：大红袍
--  发布时间：2016/1/4 18:03:00
--  
代码没有问题，只要执行了代码，就会居中。