VB.Net 设置子窗口在父窗口居中显示

 

    Private Function SetLocation(ByVal insForm As Form) As Point

        'Screen.AllScreens[0]是获取当前显示器设备窗口的第一个
        Dim insScreen As Screen = Screen.AllScreens(0)
        If (Not Me.OwnerForm Is Nothing) Then
            '获取控件父窗口的屏幕
            insScreen = Screen.FromControl(Me)
        End If
        '当前屏幕的宽度 - 子页面的宽度
        Dim width As Integer = (insScreen.WorkingArea.Width - insForm.Width)
        '当前屏幕的高度 - 子页面的高度
        Dim height As Integer = (insScreen.WorkingArea.Height - insForm.Height)
        '居中
        Dim x As Integer = (insScreen.WorkingArea.X + CInt(Math.Round(CDbl((CDbl(width) / 2)))))
        Dim y As Integer = (insScreen.WorkingArea.Y + CInt(Math.Round(CDbl((CDbl(height) / 2)))))
        '启动模式
        insForm.StartPosition = FormStartPosition.Manual
        '返回
        Return New Point(x, y)

    End Function
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值