动态添加控件求教，多谢！

动态添加控件求教各位高手，谢谢！！！
动态添加控件求教各位高手，谢谢！！！
在窗体a中有控件label1,我在窗体B中动态添加了：

VB.NET code

Private Sub B_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        Me.Controls.Add(a.label1)        a.label1.Location = New Point(Me.Width * 0.3, Me.Height * 0.2)end sub

打开窗体B后，一切正常，但在打开窗体a，里面原有的label1却看不到了，请高手帮助，如何能使窗体a中控件label1不发生变化，谢谢！！！

[解决办法]
猜测可能是a.label1.Location = New Point(Me.Width * 0.3, Me.Height * 0.2)引起的
[解决办法]
是 Me.Controls.Add(a.label1)引起的，一个儿子不能有两个父亲。如果B窗体需要有一个A窗体那样的label1的儿子，需要
Dim dd As System.Windows.Forms.Label
dd = New System.Windows.Forms.Label
Me.Controls.Add(dd)
dd.Location = New Point(Me.Width * 0.3, Me.Height * 0.2)
dd.Visible = True
dd.Text = "9999999999"

查看更多 下一篇