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

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...