读书人

动态添加控件求教多谢!

发布时间: 2012-06-11 17:42:22 作者: rapoo

动态添加控件求教各位高手,谢谢!!!
动态添加控件求教各位高手,谢谢!!!
在窗体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"

读书人网 >VB Dotnet

热点推荐