以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]系统主窗口居中  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=115599)

--  作者:blsu33
--  发布时间:2018/3/9 20:51:00
--  [求助]系统主窗口居中
老师,
  如何能让系统的主窗口不管怎么最大化 最小化 变化 还原后都居中呢

--  作者:有点蓝
--  发布时间:2018/3/9 21:17:00
--  
设置代码

basemainform.setBounds((ScreenWidth - basemainform.Width) / 2, (ScreenHeight - basemainform.Height) / 2, basemainform.Width, basemainform.Height)

--  作者:blsu33
--  发布时间:2018/3/9 21:23:00
--  
放到 SIZECHANGE  不好用 为啥
--  作者:有点蓝
--  发布时间:2018/3/9 21:27:00
--  
不好用,没辙
--  作者:blsu33
--  发布时间:2018/3/9 21:31:00
--  
2楼代码 没效果 您的意思  没有办法了?

AfterOpenProject


\'界面隐藏开始

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

ApplicationMenu.visible= False

Ribbon.hide

TableCaptionVisible =0\'菜单隐藏

baseMainForm.ControlBox= True\'控制按钮显示

basemainform.text = "企业管理软件"\'控制台标题


采用的这种方式 主窗口

[此贴子已经被作者于2018/3/9 21:31:38编辑过]

--  作者:有点蓝
--  发布时间:2018/3/9 21:52:00
--  
不能放在sizechanged事件。做个按钮调用这个代码。可以试试在计划任务里定时判断一下位置,然后进行调整
--  作者:blsu33
--  发布时间:2018/3/9 22:00:00
--  
哦 解决了