如何通过编程将控件从Frame容器中移至窗体？

核心问题：坐标转换错误导致控件在可视区域外 #

你之前的代码最大的问题是没有把Label的相对坐标转换成窗体的绝对坐标。Frame里的控件Left/Top是相对于Frame本身的，直接移到窗体后，这些坐标会变成相对于窗体的，很可能让Label跑到窗体可视区域外面，看起来就是“不可见”。

正确的实现步骤 #

1. 先计算Label在窗体上的绝对位置（把Frame的位置也纳入计算）
2. 从Frame的控件集合中移除Label，再添加到窗体
3. 设置正确的绝对坐标，最后确保可见性和层级

修正后的代码 #

Dim absLeft As Long, absTop As Long

' 计算Label相对于窗体的绝对坐标
absLeft = ctrl.Left + ctrl.Container.Left
absTop = ctrl.Top + ctrl.Container.Top

' 先从原容器（Frame）中移除控件
ctrl.Container.Controls.Remove ctrl

' 添加到窗体控件集合
MainForm.Controls.Add ctrl

' 设置正确的绝对位置
ctrl.Left = absLeft
ctrl.Top = absTop

' 确保控件可见并置顶
ctrl.Visible = True
ctrl.ZOrder 0

额外排查点 #

• 检查MainForm是否是当前活动的窗体实例，避免引用错误
• 如果还是看不到，在即时窗口输出ctrl.Left、ctrl.Top、ctrl.Width、ctrl.Height，确认控件是否在窗体的可视范围内（比如Left是否大于窗体Width，或者Top大于窗体Height）
• 有些情况下，直接设置ctrl.Container = MainForm也能生效，但必须先完成坐标转换

内容的提问来源于stack exchange，提问作者NibblyPig