Manipulierbare Liste

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Akanel.

    Manipulierbare Liste

    Hallo miteinander,

    Ich will aus daten eine liste erstellen lassen in welcher der Nutzer dann per ziehen mit der Maus die Positionen anpassen kann.
    Im besten Fall sind die einzelnen Zeilen noch an-/anwählbar.

    Gibt es dafür eine einfache Lösung?

    Checkboxlist hab ich schon versucht aber da bekomm ich das positionieren nicht hin.

    fiedel93felix schrieb:

    Ich will aus daten eine liste erstellen lassen
    Von welchem Datentyp reden wir?
    ====
    Element anklicken, rechte Maustaste => ContextMenu => Editieren
    => Dialog, das Element hineinreichen, editieren
    => OK => Element zurückschreiben
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Vollzitat des Startposts an dieser Stelle entfernt ~VaporiZed
    @fiedel93felix:
    Ich korrigiere/präzisiere mal deinen Post:
    1. Du hast eine Liste von Daten
    2. Die willst du in einem geeigneten SteuerElement anzeigen
      1. dort sollen sie an/abwählbar sein
      2. dort sollen sie mittels Drag/Drop in ihrer Reihenfolge verschiebbar sein

    fiedel93felix schrieb:

    Gibt es dafür eine einfache Lösung?
    Nein.
    Insbesondere DragnDrop ist innerhalb desselben Listen-Controls ist nie einfach

    fiedel93felix schrieb:

    Checkboxlist...
    Jo, da musss man sich grundsätzlich entscheiden - es gibt 3 Controls, die Listen anzeigen können, mit abwählbaren Elementen:
    • CheckedListbox
      unterstützt Databinding nur so halbwegs, da muss man tricksen.
    • ListView
      unterstützt überhaupt kein Databinding, da muss man lausig mit ListViewItem und ListviewSubItem herumfuchteln, reintun, raustun, konvertieren - ich verwende ListView garnimmer
    • DataGridview
      unterstützt Databinding. Da kann man die Elemente in gewünschter Reihenfolge anordnen - das DGV stellt das dann von selbst richtig dar
    Jo, aber Drag&Drop wird deswegen trotzdem nicht einfach.
    Es gibt einfachere Forms, mit denen eine Reihenfolge eingestellt werden kann:
    Ein ListenControl, und da wählt man ein Element an. Daneben gibts einen kleinen Button für rauf, und einen für runter.
    Etwa wenn du die Reihenfolge der Tabs in einem TabControl bestimmen willst - da kannst du so einen Reihenfolge-Bestimmungs-Dialog angucken.
    Ist vielfach einfacher zu programmieren als eine D&D - Lösung.

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

    Sowas dachte ich als Billig-Lösung:

    DGV mit DataSet als Source

    VB.NET-Quellcode

    1. Private start, stopp As Integer
    2. Private data As Integer() = {1, 2, 3, 4, 5, 6, 18}
    4. Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
    5. For Each d In data
    6. DS1.data.AdddataRow(d)
    7. Next
    8. End Sub
    10. Private Sub dgv_CellMouseDown(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgv.CellMouseDown
    11. start = e.RowIndex
    12. End Sub
    14. Private Sub dgv_CellMouseUp(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgv.CellMouseUp
    15. stopp = e.RowIndex
    16. If start = stopp Then Exit Sub
    17. Dim hold As Integer = DS1.data(start).Ints
    18. If start < stopp Then
    19. For i = 0 To stopp - start - 1
    20. DS1.data(start + i).Ints = DS1.data(start + i + 1).Ints
    21. Next
    22. Else
    23. For i = 0 To start - stopp - 1
    24. DS1.data(start - i).Ints = DS1.data(start - i - 1).Ints
    25. Next
    26. End If
    27. DS1.data(stopp).Ints = hold
    28. End Sub


    Man sieht Drag and Drop ja relativ häufig, aber wie man es richtig macht weiß ich auch nicht.

    Vielen Dank für die Antworten.

    an ein DataGridView hab gar nicht gedacht.
    Aber es jetzt darüber gelöst.

    VB.NET-Quellcode

    1. Private Sub dgv_CellMouseDown(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseDown
    2. start = e.RowIndex
    3. End Sub
    5. Private Sub dgv_CellMouseUp(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseUp
    6. Dim fehlerzeile As Double = 0
    8. Try
    9. stopp = e.RowIndex
    10. If start = stopp Then Exit Sub
    11. Dim Spalte1(DataGridView1.RowCount - 1) As Boolean
    12. Dim Spalte2(DataGridView1.RowCount - 1) As String
    13. Dim AnzahlZeilen As Integer = DataGridView1.RowCount
    14. fehlerzeile = 1
    15. If start < stopp Then
    16. fehlerzeile = 2
    17. For i = 0 To start - 1
    18. Spalte1(i) = DataGridView1.Rows.Item(i).Cells(0).Value
    19. Spalte2(i) = DataGridView1.Rows.Item(i).Cells(1).Value
    20. Next
    21. fehlerzeile = 2.1
    22. For i = start To stopp - 1
    23. Spalte1(i) = DataGridView1.Rows.Item(i + 1).Cells(0).Value
    24. Spalte2(i) = DataGridView1.Rows.Item(i + 1).Cells(1).Value
    25. Next
    26. fehlerzeile = 2.2
    27. Spalte1(stopp) = DataGridView1.Rows.Item(start).Cells(0).Value
    28. Spalte2(stopp) = DataGridView1.Rows.Item(start).Cells(1).Value
    29. fehlerzeile = 2.3
    30. If Not stopp = DataGridView1.RowCount Then
    31. For i = stopp + 1 To DataGridView1.RowCount - 1
    32. Spalte1(i) = DataGridView1.Rows.Item(i).Cells(0).Value
    33. Spalte2(i) = DataGridView1.Rows.Item(i).Cells(1).Value
    34. Next
    35. End If
    36. End If
    37. fehlerzeile = 3
    39. If start > stopp Then
    40. fehlerzeile = 4
    41. If Not stopp = 0 Then
    42. For i = 0 To stopp - 1
    43. Spalte1(i) = DataGridView1.Rows.Item(i).Cells(0).Value
    44. Spalte2(i) = DataGridView1.Rows.Item(i).Cells(1).Value
    45. Next
    46. End If
    47. fehlerzeile = 4.1
    48. Spalte1(stopp) = DataGridView1.Rows.Item(start).Cells(0).Value
    49. Spalte2(stopp) = DataGridView1.Rows.Item(start).Cells(1).Value
    50. fehlerzeile = 4.2
    51. For i = stopp + 1 To start
    52. Spalte1(i) = DataGridView1.Rows.Item(i - 1).Cells(0).Value
    53. Spalte2(i) = DataGridView1.Rows.Item(i - 1).Cells(1).Value
    54. Next
    55. fehlerzeile = 4.3
    56. For i = start + 1 To DataGridView1.RowCount - 1
    57. Spalte1(i) = DataGridView1.Rows.Item(i).Cells(0).Value
    58. Spalte2(i) = DataGridView1.Rows.Item(i).Cells(1).Value
    59. Next
    60. fehlerzeile = 4.4
    61. End If
    63. fehlerzeile = 5
    65. DataGridView1.Rows.Clear()
    66. For i = 0 To AnzahlZeilen - 1
    67. DataGridView1.Rows.Insert(i, Spalte1(i), Spalte2(i))
    68. Next
    70. Catch ex As Exception
    71. MsgBox("fehler " & fehlerzeile)
    72. End Try
    74. End Sub

    MsgBox? Ich glaube du hast noch den VisualBasic Namespace als Generalimport drin.
    Schau mal hier rein. Visual Studio – Empfohlene Einstellungen
    Rechtschreibfehler betonen den künstlerischen Charakter des Autors.

Facebook
Telefonspende