PDA

View Full Version : ایجاد کنترل به صورت اتوماتیک



sahele_sheni
شنبه 14 آذر 1388, 11:40 صبح
سلام دوستان . میشه کاری کرد که در هنگام لود شدن صفحه کنترلها ساخته بشن ؟!

من یه فرم دارم که یه تعداد TextBox داره .ولی تعداد اونها رو خود کاربر در یه فرم دیگه کم و زیاد میکنه !
ممنون میشم اگه راهنمایی کنید !

ACorvinus
شنبه 14 آذر 1388, 12:09 عصر
من یه مثال نوشتم که علاوه بر اینکه Textbox هارو به تعداد دلخواه ایجاد می کنه، رویداد TextChange رو هم به همه اونا اضافه میکنه .



Public Sub New(ByVal TextboxCount As Integer)
InitializeComponent()

Dim YPosition As Integer = 20
For i As Integer = 1 To TextboxCount
Dim DynamicTextbox As New TextBox

DynamicTextbox.Name = "TextboxInstance" + i.ToString
DynamicTextbox.Location = New Point(20, YPosition)
Me.Controls.Add(DynamicTextbox)
AddHandler DynamicTextbox.TextChanged, AddressOf TextBoxInstance_TextChanged
YPosition += 25
Next
End Sub

Private Sub TextBoxInstance_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
'...
'Code
'Code
'Code
'...
End Sub


اگه بازم مشکلی بود بگو !!!