terzdax
جمعه 25 بهمن 1392, 19:05 عصر
سلام
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Static j As Integer = 0
For i As Integer = 0 To 9
Dim btn As Button = New Button()
btn.Parent = Me.Panel1
btn.Name = "Button" & j + 1
btn.Height = 26
btn.Dock = DockStyle.Top
btn.Text = "Button " & j + 1
AddHandler btn.Click, AddressOf HandleDynamicButtonClick
Panel1.Controls.Add(btn)
j += 1
Next
End Sub
Private Sub HandleDynamicButtonClick(ByVal sender As Object, ByVal e As EventArgs)
Dim btn As Button = DirectCast(sender, Button)
MessageBox.Show(btn.Name & " clicked")
End Sub
End Class
کد بالا با کلیک بر روی ابجکت button ران تایم 10 تا ابجکت button دیگر به فرم اضافه میشود
حالا به چه صورت میتونم تغییرات داخل فرم را ذخیره کنم که بعد از لود شدم دوباره فرم اون 10 تا ابجکتی که داخل فرم قبل لود شده است با تغییراتی که روشون انجام دادم ظاهر شوند مثلا تغییر نام یا حذف یک ابجکت
با تشکر از دوستانی که کمک میرسانند
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Static j As Integer = 0
For i As Integer = 0 To 9
Dim btn As Button = New Button()
btn.Parent = Me.Panel1
btn.Name = "Button" & j + 1
btn.Height = 26
btn.Dock = DockStyle.Top
btn.Text = "Button " & j + 1
AddHandler btn.Click, AddressOf HandleDynamicButtonClick
Panel1.Controls.Add(btn)
j += 1
Next
End Sub
Private Sub HandleDynamicButtonClick(ByVal sender As Object, ByVal e As EventArgs)
Dim btn As Button = DirectCast(sender, Button)
MessageBox.Show(btn.Name & " clicked")
End Sub
End Class
کد بالا با کلیک بر روی ابجکت button ران تایم 10 تا ابجکت button دیگر به فرم اضافه میشود
حالا به چه صورت میتونم تغییرات داخل فرم را ذخیره کنم که بعد از لود شدم دوباره فرم اون 10 تا ابجکتی که داخل فرم قبل لود شده است با تغییراتی که روشون انجام دادم ظاهر شوند مثلا تغییر نام یا حذف یک ابجکت
با تشکر از دوستانی که کمک میرسانند