dotNETportal.cz

Jedna událost pro více tlačítek a zjištění které tlačítko vyvolalo událost? Pomůže někdo?

    Private Sub JedenKodProViceTlacitek_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click, Button4.Click, Button5.Click
        Dim KtereTlacitkobyloPouzito As String
        KtereTlacitkoByloPouzito = "xxxxxx"
        MessageBox.Show(KtereTlacitkobyloPouzito)
    End Sub

Kód se dost zjednoduší a zpřehlední, pokud si potřebné Controly vytvoříte dynamicky, pak nemusíte otrocky vypisovat

...Handles pb1.DragDrop, pb2.DragDrop, pb3.DragDrop...

Několikrát se to tady již řešilo, zkuste pro inspiraci kouknout třeba na tuto diskusi: http://www.vbnet.cz/forumthread.aspx?id=...

Přetypovávat není třeba. Operátor Is přímo zjišťuje zda-li se jedná o referenci na stejný objekt.

No to možná jo, ale stejný handler pro víc komponent se typicky používá v případě, že s nima chce člověk udělat stejnou věc. Je otázkou, jak moc je užitečné mít sice 1 handler, ale v něm 3 odlišné větve pro 3 komponenty.

Dotaz zněl jak rozlišit které tlačítko bylo stisknuto, tudíž je vysoká pravděpodobnost, že autor chce provádět různé věci v závislosti na stisknutém tlačítku. Pro někoho to může být přehlednější než 3 metody.

No a to je třeba i můj případ. Mám devět tlačítek, které po stisku zjišťují někde něco. U sedmi z těch tlačítek je kód prakticky identický, jen u dvou je trochu jiný. V současné době to řeším pro každý button extra a je to šílené, takže výše porazená metoda je mi užitečná. Ale stejně neumím dořešit následující.

Mám pod sebou dva Buttony EDSbutton a SWSbutton (třeba, rád používám i v příkladech něco popisného než but1 a but2 atd.).

A vedle nich jsou dva TextBoxy EDStext a SWStext.

Pokud zmáčknu EDSbutton, chci, aby se výsledek zapsal do EDStext. Ale to EDStext bych chtěl "vytvořit" dynamicky. Tzn. ne pomocí Case Select, např., ale prostě jakoby dynamicky vytvořit název toho textboxu, do kterého chci výsledek zapsat.

Public Class Form1
    
    Dim prefixy() As String = {"EDS", "SWS"}
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i As Integer = 0 To 1
            Dim but As New Button
            Dim txtbox As New TextBox

            but.Name = prefixy(i) & "button"
            txtbox.Name = prefixy(i) & "text"

            but.Text = prefixy(i)
            txtbox.Text = prefixy(i)

            but.Location = New Point(20, 20 + i * 25)
            txtbox.Location = New Point(73, 20 + i * 25)

            but.Size = New Size(50, 23)
            txtbox.Size = New Size(220, 23)

            Me.Controls.Add(but)
            Me.Controls.Add(txtbox)
            AddHandler but.Click, AddressOf VsechnyButtony_click
        Next
    End Sub
    Private Sub VsechnyButtony_click(ByVal sender As Object, ByVal e As EventArgs)
        ZapisHodnotu(sender.name, "Tohle je " & sender.name & " odpovídající textbox")
    End Sub
    Private Sub ZapisHodnotu(ByVal DoJakehoTextboxu As String, ByVal CoMamZapsat As String)
        DoJakehoTextboxu = DoJakehoTextboxu.ToString.Substring(0, 3) & "text"
        For Each Obj As Control In Me.Controls
            If Obj.Name = DoJakehoTextboxu Then
                Obj.Text = CoMamZapsat
            Else
                Obj.Text = ""
            End If
        Next
        REM

    End Sub
End Class

Opravdu neexistuje způsob, jak dynamicky vytvořit odkaz na ten TextBox z té hodnoty sender.name? To musím kvůli tomu procházet celou kolekci a vybírat to pomocí podmínky? Ono při dvou prvcích dynamicky generovaných se to může zdát zbytečné, ale představte si, kdy chci takhle obsluhovat třeba 30 tlačítek a k nim příslušné textboxy.

Děkuji za nakopnutí správným směrem.

PV

Nehledáte http://msdn.microsoft.com/en-us/library/... ?

Použije se to

kontejner.Controls.Find("jméno",true);

Ano, to je přesně ono a dokonce nějaká funkcionalita navíc, děkuji uctivě. Musím se naučit lépe hledat.

PV