[VB.NET]控件切换父容器而不改变位置(视觉上)

最新推荐文章于 2026-06-14 12:17:41 发布

原创

最新推荐文章于 2026-06-14 12:17:41 发布 · 4.1k 阅读

标签

#vb.net #function #integer

这篇博客介绍了如何在VB.NET中实现控件在不同容器间切换时保持其视觉上的位置不变。通过提供三个函数：GetAbsTop、GetAbsLeft和MoveCtl，可以计算控件的绝对位置并调整其在新容器中的相对位置，确保控件的位置不会改变。MoveCtl函数使用递归方式获取控件相对于窗体的Top和Left坐标，并在切换父容器后进行相应调整。

一个控件在两个容器上来回切换而不改变位置(视觉),想了有一阵子了,贴代码.

Public Function GetAbsTop(ByVal ctl As Control) As Integer If ctl.Parent Is Nothing Then GetAbsTop = 0 : Exit Function If Not ctl.Parent.Equals(Me) Then '递归找到相对于FORM的Top GetAbsTop = ctl.Top + GetAbsTop(ctl.Parent) Else GetAbsTop = ctl.Top End If End Function Public Function GetAbsLeft(ByVal ctl As Control) As Integer If ctl.Parent Is Nothing Then GetAbsLeft = 0 : Exit Function If Not ctl.Parent.Equals(Me) Then '递归找到相对于FORM的Left GetAbsLeft = ctl.Left + GetAbsLeft(ctl.Parent) Else GetAbsLeft = ctl.Left End If End Function Public Sub MoveCtl(ByVal TarObj As Control, ByVal New_Parent As Control) If TarObj Is Nothing Or New_Parent Is Nothing Then Exit Sub 'TarObj.SuspendLayout() TarObj.Left = GetAbsLeft(TarObj) - GetAbsLeft(New_Parent) TarObj.Top = GetAbsTop(TarObj) - GetAbsTop(New_Parent) TarObj.Parent = New_Parent 'TarObj.ResumeLayout() End Sub

仅限于在同一窗体内.