用setbouds设置窗口位置的时候，屏幕中间怎么定义？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用setbouds设置窗口位置的时候，屏幕中间怎么定义？

共有4735人关注过本帖树形打印复制链接主题：用setbouds设置窗口位置的时候，屏幕中间怎么定义？

晕了快扶我

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1199 积分：7102 威望：0 精华：0 注册：2013/3/4 18:02:00

用setbouds设置窗口位置的时候，屏幕中间怎么定义？ 发帖心情

Post By：2015/4/9 11:07:00 [显示全部帖子]

SetBounds(x, y, Width, Height)

x: 窗口水平位置
y: 窗口垂直位置
Width: 窗口宽度
Height: 窗口高度

X,Y怎么定位到屏幕中央呢？像系统的CenterScreen

晕了快扶我

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1199 积分：7102 威望：0 精华：0 注册：2013/3/4 18:02:00

Post By：2015/4/9 11:32:00 [显示全部帖子]

这个坐标取的的是窗口正中的点吗？

晕了快扶我

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1199 积分：7102 威望：0 精华：0 注册：2013/3/4 18:02:00

Post By：2015/4/9 11:33:00 [显示全部帖子]

还是左上角的点？

晕了快扶我

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1199 积分：7102 威望：0 精华：0 注册：2013/3/4 18:02:00

Post By：2015/4/9 11:39:00 [显示全部帖子]

Dim sp As WinForm.SplitContainer = e.Form.Controls("SplitContainer2")
Dim h As Integer = System.Windows.Forms.SystemInformation.PrimaryMonitorSize.height
Dim w As Integer =System.Windows.Forms.SystemInformation.PrimaryMonitorSize.width
Dim ch As Integer = e.Form.height
Dim cw As Integer = e.Form.width
If e.sender.Text = "打开筛选树"
    sp.Panel1.Collapsed = False
    e.Sender.Text = "关闭筛选树"
'e.Form.SetBounds(w-cw/2h-ch/2,949,540)
MessageBox.show(h-ch/2)
MessageBox.show(w-cw/2)
ElseIf e.Sender.Text = "关闭筛选树"
    sp.Panel1.Collapsed = True
    e.Sender.Text = "打开筛选树"
e.Form.SetBounds(ch,cw,791,540)
End If