Dinamik Bir Biçimde, bir metin kutusunun (tbRef) içeriğini ile birlikte oluşturulan düğmeye nasıl bağlarım?

Question

Hala VB'yi yaşıyorum ve iyi bir öğretici olmadan bir problem yaşadım. Bir döngünün her döngüsünde bir Textbox ve Update butonu oluşturan dinamik bir form oluşturdum.

ben ilan ettiler aşağıdaki küresel değişkenler: döngü içinde

Dim tbRef As Textbox 
WithEvents btnUpdate As Button 

ve üstü

Do Until counter = Maxrows 

counter = counter + 1 
... 
tbRef = New TextBox 
... 
Me.Controls.Add(tbRef) 


btnUpdate = New button 
... 
AddHandler btnUpdate.Click, AddressOf btnUpdate_Click 
Me.Controls.Add(btnUpdate) 
... 
tbRef.Text = ds.Tables("Records").Rows(counter - 1).Item(0) 

Loop 

Ve Nihayet

Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click 
UpdateForm.tbRef.Text = Me.tbRef.Text 
UpdateForm.Show() 
End Sub 

aşağıdaki Benim Sorun:

Kod doğru düzeni ve doğru denetimleri üretir ve yalnızca bir sonuç döndürülürse düğme düzgün çalışır. Birden fazla düğme oluşturulmuşsa, tüm düğmeler oluşturulan son Metin Kutusu'nun içeriğine başvurur. İnternette bulduğum tek cevap, Ctype/DirectCast'i her metin kutusunun içeriğini, onunla oluşturulan düğmeye dönüştürmek için kullanmam gerektiğiydi, ancak bu bağlamda bu Operatörlerin nasıl kullanılacağına dair herhangi bir eğitim bulamıyorum. Herhangi bir yardım büyük takdir edilecektir.

Answer 1

Bir seçenek olarak, Tag düğmesinin özelliğini kullanabilir ve etiket özelliğindeki metin kutusuna bir başvuru depolayabilirsiniz. Ardından düğmenin sorumlu olduğu metin kutusunu bulmak istediğinizde, DirectCast tuşunu kullanarak metin kutusunun etiket özelliğindeki metin kutusunu kaldırabilirsiniz. Düğmenin kendisi, olayı işleyen yöntemin gönderici parametresindedir.

Ayrıca, metin kutularına bir ad atayabilir ve adı etiket özelliğine kaydedebilir ve ardından bu adı kullanarak denetimi bulabilirsiniz. Örneğin

For index = 1 To 10 
    Dim txt = New TextBox() 
    'Set other properties 
    'Add it to form 

    Dim btn = New Button() 
    btn.Tag = txt 
    AddHandler btn.Click, New EventHandler(AddressOf btn_Click) 
    'Set other properties 
    'Add it to form 
Next 

için

Eğer olay bu şekilde işleyebilir:

Private Sub btn_Click(sender As Object, e As EventArgs) 
    Dim btn = DirectCast(sender, Button) 
    Dim txt = DirectCast(btn.Tag, TextBox) 
    MessageBox.Show(txt.Text) 
End Sub