vb.net – 屏幕上或父级上的中心表单

前端之家收集整理的这篇文章主要介绍了vb.net – 屏幕上或父级上的中心表单前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
由于在VB.NET中定位表单的内置功能并不总是适合使用我尝试让我的sub做到这一点.

但我错过了一些东西……

  1. Public Sub form_center(ByVal frm As Form,Optional ByVal parent As Form = Nothing)
  2.  
  3. Dim x As Integer
  4. Dim y As Integer
  5. Dim r As Rectangle
  6.  
  7. If Not parent Is Nothing Then
  8. r = parent.ClientRectangle
  9. x = r.Width - frm.Width + parent.Left
  10. y = r.Height - frm.Height + parent.Top
  11. Else
  12. r = Screen.PrimaryScreen.WorkingArea
  13. x = r.Width - frm.Width
  14. y = r.Height - frm.Height
  15. End If
  16.  
  17. x = CInt(x / 2)
  18. y = CInt(y / 2)
  19.  
  20. frm.StartPosition = FormStartPosition.Manual
  21. frm.Location = New Point(x,y)
  22. End Sub

如何定义,如何让这个子窗体正确放置在屏幕中间或其他形式?

代码是错的.此代码运行得足够晚也很重要,构造函数太早了.请务必从Load事件中调用它,此时表单已正确自动调整并根据用户的首选项进行调整,StartPosition属性不再重要.固定:
  1. Public Shared Sub CenterForm(ByVal frm As Form,Optional ByVal parent As Form = Nothing)
  2. '' Note: call this from frm's Load event!
  3. Dim r As Rectangle
  4. If parent IsNot Nothing Then
  5. r = parent.RectangleToScreen(parent.ClientRectangle)
  6. Else
  7. r = Screen.FromPoint(frm.Location).WorkingArea
  8. End If
  9.  
  10. Dim x = r.Left + (r.Width - frm.Width) \ 2
  11. Dim y = r.Top + (r.Height - frm.Height) \ 2
  12. frm.Location = New Point(x,y)
  13. End Sub

顺便提一下,实际实现Load事件处理程序的极少数理由之一.

猜你在找的VB相关文章