Mysql Datenbank Button erstellen

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von J.Herbrich.

    Mysql Datenbank Button erstellen

    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

    VB.NET-Quellcode

    1. Public Class Form1
    2. Public WithEvents newButton As Windows.Forms.Button
    3. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    5. Dim i As Integer
    6. Dim u1 As Integer
    7. Dim u2 As Integer
    8. Dim u3 As Integer
    9. For i = 1 To 15
    10. If i <= 5 Then
    11. u1 = u1 + 1
    12. newButton = New Windows.Forms.Button
    13. newButton.Name = "btnButton" & i
    14. newButton.Text = "Button " & i
    15. newButton.Top = 20 + u1 * 30
    16. newButton.Left = 40
    17. AddHandler newButton.Click, AddressOf ButtonClicked
    18. Me.Controls.Add(newButton)
    19. ElseIf i >= 5 And i <= 10 Then
    20. u2 = u2 + 1
    21. newButton = New Windows.Forms.Button
    22. newButton.Name = "btnButton" & i
    23. newButton.Text = "Button " & i
    24. newButton.Top = 20 + u2 * 30
    25. newButton.Left = 200
    26. AddHandler newButton.Click, AddressOf ButtonClicked
    27. Me.Controls.Add(newButton)
    28. ElseIf i > 10 Then
    29. u3 = u3 + 1
    30. newButton = New Windows.Forms.Button
    31. newButton.Name = "btnButton" & i
    32. newButton.Text = "Button " & i
    33. newButton.Top = 20 + u3 * 30
    34. newButton.Left = 400
    35. AddHandler newButton.Click, AddressOf ButtonClicked
    36. Me.Controls.Add(newButton)
    37. End If
    40. Next
    41. End Sub
    42. Private Sub ButtonClicked(ByVal sender As Object, ByVal e As EventArgs)
    43. MsgBox(newButton.Name)
    44. End Sub
    46. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    48. End Sub
    49. End Class


    Hat sich erledigt :)

    VB.NET-Quellcode

    1. ​ Private Sub ButtonClicked(ByVal sender As Object, ByVal e As EventArgs)
    2. Dim newbutton As Button
    3. newbutton = CType(sender, Button)
    4. Dim str As String = newbutton.Text
    5. TextBox1.Text = str
    7. End Sub

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „schnibli“ ()

    Hallo,

    Die MySQL Daten einfach Abfragen und dann einfach zur Laufzeit einfach den Button erstellen und der ControllsCollection hinzufügen.

    LG, J.Herbrich

Facebook
Telefonspende