专家坐堂-[求助][求助]窗口伸缩变化后的位置能否还在默认位置Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助][求助]窗口伸缩变化后的位置能否还在默认位置  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72197)

--  作者：无限5180
--  发布时间：2015/7/25 13:13:00
--  [求助][求助]窗口伸缩变化后的位置能否还在默认位置

这是程兴刚老师写的窗口伸缩的代码：
Forms("窗口1").Controls("SplitContainer1").Panel2.Collapsed = not Forms("窗口1").Controls("SplitContainer1").Panel2.Collapsed
If Forms("窗口1").Controls("SplitContainer1").Panel2.Collapsed = True
    Forms("窗口1").SetBounds(300,100,167,387)
Else
    Forms("窗口1").SetBounds(300,100,687,387)
End If
这个代码在进行窗口伸缩时默认位置会改变，我想请教一下能否在窗口伸缩后仍然居于屏幕中央

--  作者：有点蓝
--  发布时间：2015/7/25 14:52:00
--

这个代码我试过，可以的
Forms("窗口1").Controls("SplitContainer1").Panel2.Collapsed = not Forms("窗口1").Controls("SplitContainer1").Panel2.Collapsed
Dim x As Integer = ScreenWidth/2
Dim y As Integer = ScreenHeight/2
If Forms("窗口1").Controls("SplitContainer1").Panel2.Collapsed = True
x = x-167/2
y = y -387/2
Forms("窗口1").SetBounds(x,y,167,387)
Else
x = x-687/2
y = y -387/2
Forms("窗口1").SetBounds(x,y,687,387)
End If

[此贴子已经被作者于2015/7/25 14:52:29编辑过]

--  作者：无限5180
--  发布时间：2015/7/27 10:08:00
--
非常感谢！测试成功了