Hallo ich suche eine Möglichkeit Mehrere Privat Subs zusammenzufassen. sind insg 2x32 in dem jedesmal ein bisschen ein veränderter text steht aber im großen alles gleich.
habe 32 textboxen heissen von t1 bis t32 der rest bleibt gleich.
Hier ein beispiel:
habe 32 textboxen heissen von t1 bis t32 der rest bleibt gleich.
Hier ein beispiel:
VB.NET-Quellcode
- Public Class tnl
- Private Sub t1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles t1.Click
- If t1.Text = "Teilnehmername" Then
- t1.Clear()
- End If
- End Sub
- Private Sub t1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles t1.LostFocus
- If t1.Text = "" Then
- t1.Text = "Teilnehmername"
- End If
- End Sub
- Private Sub t2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles t2.Click
- If t2.Text = "Teilnehmername" Then
- t2.Clear()
- End If
- End Sub
- Private Sub t2_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles t2.LostFocus
- If t1.Text = "" Then
- t1.Text = "Teilnehmername"
- End If
- End Sub
- End Class