Udalosti od tlačítek – Visual Basic – Fórum – Programujte.com

Zdravim. Jak lze zjednodušit tenhle jednoduchy kod? Mám hodně událostí od tlačítek a v každé je k nim přiřazená stejná proměnná, kterou volám v proceduře. Díky.

Public Class Form1

    Public Kod As Integer

    Private Sub Command1_Click()
        Me.TextBox1.Text = Kod
    End Sub

    Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Kod = 1
        Command1_Click()
    End Sub
    Public Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Kod = 2
        Command1_Click()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Kod = 3
        Command1_Click()
    End Sub
End Class

1 zjednodušení

'---------------------------------------------------------------------------------------------------------

Public Class Form1

Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox1.Text = "1"
End Sub

Public Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox1.Text = "2"
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
TextBox1.Text = "3"
End Sub

End Class

'---------------------------------------------------------------------------------------------------------

2 zjednodušení: Nahradit tři tlačítka za pole tlačítek ... Button1, Button2,  Button3 --> Button(1), Button(2), Button(3) ... a mít jen jeden Button_Click Event. Ve VB6 easy, ve VB NET už trochu oříšek :)

Inspirace: http://www.codeproject.com/…Button-Array

#2 pee-jay_cz
Jasný no. Jenže já v práci mam těch tlačítek 50. Tak jestli mit i 50 událostí od tlačítek, který zaberou 200 řádků v programu a v každý z těch událostí mit nastavenou zvlášt každou proměnnou Kod na jinou hodnotu? Nebo to jde i jinak? Dík.

Tys to asi nečet. Pole 50. tlačítek "obsluhuje" jedna událost. Trik je v tom odlišit jednotlivý instance.

#4 pee-jay_cz
Jasný,díky. Podle toho kodu to snad nějak splácám.