Diskuze: Záhadný dvojklik
Zobrazeno 5 zpráv z 5.
Ahoj, jde o to že event click toho tlačítka napojuješ 2x na obslužnou proceduru. Jednou nahoře pomocí WithEvents kde je tato proměná sdílená v rámci celé třídy a podruhé v tom cyklu. WithEvents a pak Handles u obslužné procedury je zbytečné, když event napojuješ programově. Tady je kód který funguje tak jak má:
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For x = 1 To 3
Dim btn_manual As Windows.Forms.Button = New Windows.Forms.Button
btn_manual.Name = "tlacitko" & x
btn_manual.Text = "B"
btn_manual.Left = 5 + x * 25
btn_manual.Width = 19
btn_manual.Height = 19
btn_manual.TabIndex = x
Me.Controls.Add(btn_manual)
AddHandler btn_manual.Click, AddressOf btn_manualClicked
Next
End Sub
Private Sub btn_manualClicked(sender As Object, e As EventArgs)
Dim counter As String
counter = sender.name
ListBox1.Items.Add(counter)
End Sub
End ClassDíky. A dokážeš mi vysvětlit, proč to dělalo chybu pouze u posledního vygenerovaného tlačítka a ne u všech?
Problém byl právě v té proměnné btn_manual, protože ti v ní vždycky zůstává poslední hodnota kterou do ní přiřadíš v cyklu.
Představ si jednotlivé průchody toho cyklu:
průchod 1: v btn_manual je nothing, přiřadíš do ní button1
průchod 2: v btn_manual je button1, místo něj tam dáš button2
průchod 3: v btn_manual je button2, místo něj tam dáš button3
Další průchod cyklu už není, takže v té proměnné to třetí
tlačítko zůstane.
Kdybys po skončení toho cyklu zavolal ještě btn_manual = nothing
tak by to nejspíš taky fungovalo tak jak očekáváš.
Zobrazeno 5 zpráv z 5.