Hledáš dárek, který neskončí v koši? Nyní 90 % extra kreditů ZDARMA s promo kódem PREKVAPENI90. Zjisti více:
NOVINKA: Staň se datovým analytikem od 0 Kč a získej jistotu práce, lepší plat a nové kariérní možnosti. Více informací:
Avatar
j.tulacek
Člen
Avatar
j.tulacek:6.12.2014 7:55

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(sen­der As Object, e As EventArgs) Handles Button1.Click
Kod = 1
Command1_Click()
End Sub
Public Sub Button2_Click(sen­der As Object, e As EventArgs) Handles Button2.Click
Kod = 2
Command1_Click()
End Sub

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

 
Odpovědět
6.12.2014 7:55
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.

Zobrazeno 1 zpráv z 1.