dgv in welcher zeile sich der buton befindet

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    dgv in welcher zeile sich der buton befindet

    hallo, ich habe eine datagridview mit vielen zeilen und in jeder zeile ist ein button. ich möchte jedem button den namen geben, in welcher zeile er sich befindet. also button.name = current.row :> wie lkann ich also ruakriegen, in welche zeile sich der button befindet, weil die button mööchte ich nacher anprechenudn die dürfen nicht den gleichen namen haben. mfg
    Hier könnte meine Signatur stehen.

    VB.NET-Quellcode

    1. Dim dg As New DataGridView
    3. Private Sub dg_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles dg.CellClick
    5. If e.ColumnIndex = 1 Then
    6. MessageBox.Show("test")
    7. End If
    8. End Sub

    dg wird rot unterstrichen(compilierfehler): Die Handles-Klausel erfordert die withevents-variable.
    hab oben bei der variable auich public withevents probiert , der fehelr ist zwar wreg und das programm lässt sich debugen aber es passiert nix wenn ich in cell1 clicke.
    Hier könnte meine Signatur stehen.

    ich erstelle den datagridview während der runtime, das ist schon wichtig.. aber ich glaub ich habe den fehler, in der datagridview existiert garkeine cells deshalb passiert auch nix. die cellen sind datatables. deshlab passiert auch nix wenn man reinclickt. ich habe ja dg.DataSource = Datatable1 genommen. wie kann ich das also anders machen?
    Hier könnte meine Signatur stehen.

    VB.NET-Quellcode

    1. Public WithEvents dg As New DataGridView
    3. Private Sub btn_hinzuf_Click(sender As Object, e As EventArgs) Handles btn_hinzuf.Click
    5. Dim dt As New DataTable("dt_")
    7. dt.Columns.Add("Nummer")
    8. dt.Columns.Add("Bezeichnung")
    9. dt.Columns.Add("Preis 1")
    10. dt.Columns.Add("Preis 2")
    11. dt.Columns.Add("Preis 3")
    13. Form1.ds1.Tables.Add(dt)
    15. dg.Name = ("dg_")
    16. dg.Width = 700
    17. dg.DataSource = dt
    19. optionstab.SelectedTab.Controls.Add(dg)
    21. End If
    22. End Sub
    25. Private Sub dg_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles dg.CellClick
    27. If e.ColumnIndex = 1 Then
    28. MessageBox.Show("test")
    29. End If
    30. End Sub
    Hier könnte meine Signatur stehen.

    dein Code kompiliert nicht.

    meiner aber:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Public WithEvents dg As New DataGridView
    5. Private Sub btn_hinzuf_Click(sender As Object, e As EventArgs) Handles btn_hinzuf.Click
    6. Dim dt As New DataTable("dt_")
    7. dt.Columns.Add("Nummer")
    8. dt.Columns.Add("Bezeichnung")
    9. dt.Columns.Add("Preis 1")
    10. dt.Columns.Add("Preis 2")
    11. dt.Columns.Add("Preis 3")
    12. ds1.Tables.Add(dt)
    13. dg.Name = ("dg_")
    14. dg.Width = 700
    15. dg.DataSource = dt
    16. Controls.Add(dg)
    17. End Sub
    19. Private Sub dg_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles dg.CellClick
    20. If e.ColumnIndex = 1 Then
    21. MessageBox.Show("test")
    22. End If
    23. End Sub
    24. End Class
    und kein Problem

    klappt aber, ein problem ist da. beim 1. mal kalppt es aber wenn ich noch mal auf den button drücke also eine neue datagridview erstellt wird, verschwindet die alte. die dgv werden in tabs erstellt. also wie gesgat bei der 1. tab funktioniert es aber sobald ich erneut auf den button drücke un eine neue dgv erstellt wird verschwindet die alte.

    VB.NET-Quellcode

    1. Public WithEvents dg As New DataGridView
    3. Public Sub btn_hinzuf_Click(sender As Object, e As EventArgs) Handles btn_hinzuf.Click
    4. Dim dt As New DataTable("dt_" + TextBox1.Text)
    6. dt.Columns.Add("Nummer")
    7. dt.Columns.Add("Bezeichnung")
    8. dt.Columns.Add("Preis 1")
    9. dt.Columns.Add("Preis 2")
    10. dt.Columns.Add("Preis 3")
    11. dt.Columns.Add("Preis 4")
    12. Form1.ds1.Tables.Add(dt)
    15. dg.DataSource = dt
    16. dg.Name = ("dg_" + TextBox1.Text)
    17. dg.Width = 700
    19. optionstab.TabPages.Add(TextBox1.Text)
    20. optionstab.SelectTab(optionstab.TabCount - 1)
    21. optionstab.SelectedTab.Controls.Add(dg)
    22. TextBox1.Text = ""
    23. End If
    24. End Sub
    27. Private Sub Cellclick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles dg.CellClick
    29. If e.ColumnIndex = 1 Then
    30. MessageBox.Show("test")
    31. End If
    32. End Sub
    Hier könnte meine Signatur stehen.

    VB.NET-Quellcode

    1. Form1.ds1.Tables.Add(dt)


    Das ist falsch und solltest Du unbedingt richtig machen.

    vb-paradise.de/allgemeines/tip…-und-aufruf-von-dialogen/
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

Facebook
Telefonspende