Hallo zusammen,
Ich habe ein kleines Problem:
Ich würde gerne für jeden Datensatz den ich in einer Tabelle habe, einen Button erstellen.
Dieser Button soll den Text der ersten Spalte in der Tabelle haben.
Wenn ich den Button anklicke soll genau dieser Text in eine Textbox geschrieben werden.
Kann mir jemand helfen'
das erstellen der Buttons habe ich nun.
Wie kann ich bei einem click erfahren welcher Button geklickt wurde?
Wenn ich mit dem folgenden Programm die Buttons anklicke steht immer Button15
Hat sich erledigt
Ich habe ein kleines Problem:
Ich würde gerne für jeden Datensatz den ich in einer Tabelle habe, einen Button erstellen.
Dieser Button soll den Text der ersten Spalte in der Tabelle haben.
Wenn ich den Button anklicke soll genau dieser Text in eine Textbox geschrieben werden.
Kann mir jemand helfen'
das erstellen der Buttons habe ich nun.
Wie kann ich bei einem click erfahren welcher Button geklickt wurde?
Wenn ich mit dem folgenden Programm die Buttons anklicke steht immer Button15
VB.NET-Quellcode
- Public Class Form1
- Public WithEvents newButton As Windows.Forms.Button
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim i As Integer
- Dim u1 As Integer
- Dim u2 As Integer
- Dim u3 As Integer
- For i = 1 To 15
- If i <= 5 Then
- u1 = u1 + 1
- newButton = New Windows.Forms.Button
- newButton.Name = "btnButton" & i
- newButton.Text = "Button " & i
- newButton.Top = 20 + u1 * 30
- newButton.Left = 40
- AddHandler newButton.Click, AddressOf ButtonClicked
- Me.Controls.Add(newButton)
- ElseIf i >= 5 And i <= 10 Then
- u2 = u2 + 1
- newButton = New Windows.Forms.Button
- newButton.Name = "btnButton" & i
- newButton.Text = "Button " & i
- newButton.Top = 20 + u2 * 30
- newButton.Left = 200
- AddHandler newButton.Click, AddressOf ButtonClicked
- Me.Controls.Add(newButton)
- ElseIf i > 10 Then
- u3 = u3 + 1
- newButton = New Windows.Forms.Button
- newButton.Name = "btnButton" & i
- newButton.Text = "Button " & i
- newButton.Top = 20 + u3 * 30
- newButton.Left = 400
- AddHandler newButton.Click, AddressOf ButtonClicked
- Me.Controls.Add(newButton)
- End If
- Next
- End Sub
- Private Sub ButtonClicked(ByVal sender As Object, ByVal e As EventArgs)
- MsgBox(newButton.Name)
- End Sub
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- End Sub
- End Class
Hat sich erledigt
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „schnibli“ ()