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

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

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

晕了快扶我

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

加好友

发短信

等级：六尾狐帖子：1207 积分：7224 威望：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

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/4/9 11:11:00 [只看该作者]

用不着SetBounds 设置默认位置为CenterScreen 打开就在中间了

非要用SetBounds 的话

获取系统分辨率

MessageBox.show(System.Windows.Forms.SystemInformation.PrimaryMonitorSize.height)

MessageBox.show(System.Windows.Forms.SystemInformation.PrimaryMonitorSize.width)

然后计算窗口的宽度算出中间坐标即可.

晕了快扶我

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

加好友

发短信

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

Post By：2015/4/9 11:32:00 [只看该作者]

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

晕了快扶我

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

加好友

发短信

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

Post By：2015/4/9 11:33:00 [只看该作者]

还是左上角的点？

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/4/9 11:34:00 [只看该作者]

左上角的点

晕了快扶我

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

加好友

发短信

等级：六尾狐帖子：1207 积分：7224 威望：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