چگونگی افزودن شئ در زمان اجرا

[armin8651]

چه جوری میشه تو زمان اجرا به فرم شئ اضافه کرد؟ مثلآ برنامه تکست یه label رو بگیرد و با کلیک کردن روی یه button اون label رو فرم نشون داده بشه. ( شاید با تعریف کردن یه متغییر از نوع label بشه ... ولی دقیقآ نمیدونم چه جوری... )

اگه کسی بلده لطفآ راهنماییم کنه، ممنون.

[ali.hojjati]

dim lblName as Label
controls.add(lblName)

[armin8651]

dim lblName as Label
controls.add(lblName)

ممنون ، ولی از این کد استفاده میکنم هیچ label رو فرم نمیبینم!
حتی بهش مقدار text و location هم دادم ولی موقع اجرا error داد.

[alimkh]

امیدوارم این کد مفید باشد:





Private Sub AddEmailAddress()
Dim txtEmail As New TextBox
Dim lblEmail As New Label
' Set the desired properties
txtEmail.Top = txtAddress.Top + txtAddress.Height + 10
txtEmail.Left = txtAddress.Left
lblEmail.Text = "Email"
lblEmail.Location = New Point(lblAddress.Location.X, _
txtEmail.Location.Y)
' Add to the collection
me.Controls.Add(txtEmail)
me.Controls.Add(lblEmail)
End Sub

[armin8651]

dim lblName as Label
controls.add(lblName)




dim ldlName as label
me.controls.add(lblName)


اینجوری کار کرد.

[armin8651]

امیدوارم این کد مفید باشد:





Private Sub AddEmailAddress()
Dim txtEmail As New TextBox
Dim lblEmail As New Label
' Set the desired properties
txtEmail.Top = txtAddress.Top + txtAddress.Height + 10
txtEmail.Left = txtAddress.Left
lblEmail.Text = "Email"
lblEmail.Location = New Point(lblAddress.Location.X, _
txtEmail.Location.Y)
' Add to the collection
me.Controls.Add(txtEmail)
me.Controls.Add(lblEmail)
End Sub



خیلی ممنون