以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]在登陆成功后，让主窗口显示为设定的大小？？？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111811)
--  作者：6378929
--  发布时间：2017/12/29 16:01:00
--  [求助]在登陆成功后，让主窗口显示为设定的大小？？？
[求助]在登陆成功后，让主窗口显示为设定的大小？？？如（1000*800）怎么实现？？
--  作者：有点甜
--  发布时间：2017/12/29 16:16:00
--  

basemainform.windowstate = 0
basemainform.width = 1000
basemainform.height = 800
basemainform.top = (SysInfo.ScreenHeight - basemainform.height) / 2
basemainform.left = (SysInfo.ScreenWidth - basemainform.width) / 2
--  作者：6378929
--  发布时间：2017/12/29 16:43:00
--  
代码放在那个位置
--  作者：有点甜
--  发布时间：2017/12/29 16:43:00
--  
登陆按钮里面。
--  作者：6378929
--  发布时间：2017/12/29 17:06:00
--  
刚才放到登录里面试了   还是不行？
--  作者：有点甜
--  发布时间：2017/12/29 17:26:00
--  
以下是引用6378929在2017/12/29 17:06:00的发言：
刚才放到登录里面试了   还是不行？

 

1、你的主窗口的名字是什么？是什么类型的窗口？模式？

 

2、试试

 

Dim frm As winform.form = forms("窗口1")
frm.show
frm.baseform.windowstate = 0
frm.baseform.width = 1000
frm.baseform.height = 800
frm.baseform.top = (SysInfo.ScreenHeight - frm.baseform.height) / 2
frm.baseform.left = (SysInfo.ScreenWidth - frm.baseform.width) / 2