Datagridview mit Button befüllen

  • VB.NET

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

    Datagridview mit Button befüllen

    Moin!

    bisher habe ich schon einige Tabellen nach folgendem Schema befüllt:

    VB.NET-Quellcode

    1. DataGridView.Rows.Clear()
    3. ' Zeile befüllen
    4. Dim row As ArrayList = New ArrayList
    5. row.Add(False) '0 - Öffnen
    6. row.Add(Icon4Status(ID_Doc)) '1 - Schreiben Dummy oder Brief
    7. row.Add(Icon4Status(ID_Source)) '2 - Quelle G, A oder später I
    8. row.Add(FristAngabe) '3 - OpenDialog - Grundstück nur Meldung
    9. row.Add(DatumEintrag.ToString("yyyy.MM.dd")) '4 - Datum
    10. row.Add(Historie) '5 - Eintrag der Historie
    11. row.Add(Bearbeiter) '6 - BearbeiterIn
    12. row.Add(FID_Historie.ToString) '7 - FID des Antrag - oder Leerstring
    14. DataGridView.Rows.Add(row.ToArray)


    Nun möche ich eine Zelle, die ich als Datagridviewbuttoncolumn definiert habe füllen.

    Aber wie?

    Für Haken macht man das mit dem Wert true / false für die Zelle.

    Hier habe ich aber keine Idee.

    Gruß Jan

    ArrayList? Die ist aber sowas von VB6!
    Nur DGV-Spalten können von einem Typ sein. In einer Zeile geht das nicht.
    Und was hat das mit Haken zu tun? Das wär ne CheckBox(Column), keine Button(Column)
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Moin!

    als ich angefangen habe eine DGV zu befüllen habe ich mit Eurer Hilfe unter anderem eine Funktion wie diese erstellt.

    VB.NET-Quellcode

    1. Private Sub SetPunkte2DVG()
    2. ' ++++++++++ http://ma22-wiki-001/eblwiki/index.php?title=DataGridView_(VB.net)#Beispiel-Code ++++++++++
    3. Dim Element As Autodesk.Map.IM.Data.Feature
    4. Dim MapData As New EBL.MapService.MapData(_Document)
    6. Dim sTmpId As String
    8. With DVG
    9. .Rows.Clear()
    10. Dim i As Integer
    11. ' die Checkbox kann geschrieben werden
    12. For i = 1 To 10
    13. .Columns(i).ReadOnly = True
    14. Next
    16. For Each Element In FP_ElementListe
    17. Dim row As ArrayList = New ArrayList
    18. row.Add(True) 'Filter setzen
    20. If Element.Attributes.Contains("PUNKTNUMMER") Then
    21. row.Add(Element.Attributes("PUNKTNUMMER").Value)
    22. Else
    23. row.Add("")
    24. End If
    25. ' amtliche Punktnummer
    26. If Element.Attributes.Contains("ALK_PKTNR") Then
    27. row.Add(Element.Attributes("ALK_PKTNR").Value)
    28. Else
    29. row.Add("")
    30. End If
    32. ' 2D-Koordinaten
    33. Dim ElementGeom As Autodesk.Map.IM.Graphic.Geometry
    34. Dim ElementPkt As Autodesk.Map.IM.Graphic.Point
    35. ElementGeom = CType(Element.Geometry, Autodesk.Map.IM.Graphic.Point)
    36. 'Typkonvertierung
    37. ElementPkt = CType(ElementGeom, Autodesk.Map.IM.Graphic.Point)
    38. row.Add(Math.Round(ElementPkt.X, 3).ToString("0.000"))
    39. row.Add(Math.Round(ElementPkt.Y, 3).ToString("0.000"))
    41. ' Höhe
    42. row.Add(MapData.GetFeatureAttribut(Element, "Z", "", EBL.MapService.MapData.Genauigkeit.Millimeter))
    44. ' Vermarkungsart
    45. sTmpId = MapData.GetFeatureAttribut(Element, "ID_VERMARKUNG", k_Vermarkung_Unbekannt.ToString, EBL.MapService.MapData.Genauigkeit.Zeichen)
    46. row.Add(MapData.GetVerm_Vermarkung_Short(CInt(sTmpId)))
    48. 'GPS-Fähigkeit - Sichtbarkeit
    49. sTmpId = MapData.GetFeatureAttribut(Element, "ID_SICHTBARKEIT", k_VermSichtbarkeit_Unbekannt.ToString, EBL.MapService.MapData.Genauigkeit.Zeichen)
    50. row.Add(MapData.GetVerm_Sichtbarkeit_Short(CInt(sTmpId)))
    52. ' Art des Punktes - Punkttyp
    53. sTmpId = MapData.GetFeatureAttribut(Element, "ID_PKTTYP", k_VermPktTyp_Unbekannt.ToString, EBL.MapService.MapData.Genauigkeit.Zeichen)
    54. row.Add(MapData.GetVerm_Punkttyp_Short(CInt(sTmpId)))
    56. ' FID
    57. row.Add(Element.FID)
    59. If Element.Attributes.Contains("Bem_Nigra") Then
    60. row.Add(Element.Attributes("Bem_Nigra").Value)
    61. Else
    62. row.Add("???")
    63. End If
    64. 'Dim picDim As Image = Image.FromFile(k_GlobalImageFolderMap & "1D-Punkt.png")
    65. 'row.Add(picDim)
    66. 'Dim picGPS As Image = Image.FromFile(k_GlobalImageFolderMap & "GPS_yes.png")
    67. 'row.Add(picGPS)
    69. .Rows.Add(row.ToArray)
    70. Next
    71. End With
    72. End Sub


    Hier wurden Bilder zugewiesen, wie auch Texte.

    Die Daten stammen stets nicht aus Datenbanken oder vergleichbares.

    Aber irgendwie muss an doch auch eine Schaltfläche über den Weg mit dem Array realisiert bekommen?!?!

    Das mit dem Haken war vielleicht mehr verwirrend als alles andere.

    Gruß Jan

    :huh: Das ist ein Vergleich zwischen Äpfeln und Glühbirnen. Zwischen Bild/Text und einem Control liegt ein relevanter Unterschied: Interaktivität.

    Sorry, aus dem Code kann ich keine relevanten Infos ziehen, da sind zu viele Unbekannte drin.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    hi !

    dann frage ich anders herum, wie müßte denn die Befüllung einer Zeile aussehen bei der es Buttons, Image und Text gibt?

    Wie gesagt es gibt nur Werte, die der Tabelle zugewiesen werden - keine Datenquelle wie DB oder ähnliches.

    Wie ich eine Zeile befüllle bis dato habe ich ja schon Eröffnungsbeitrag aufgezeigt - ohne vielm schückendes Beiwerk.

    Nachtrag:
    Ich habe testweise einmal folgendes gecodet:

    VB.NET-Quellcode

    1. row.Add("XXX") '0 - Öffnen


    Und dabei kommt zumindest eine Anzeige bei raus.



    gruß Jan

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „jan99“ ()

    Ah, erfolgreich seit Post#1 verlesen. Habe gelesen
    Nun möche ich eine Zeile, die ich als Datagridviewbuttoncolumn definiert habe füllen.
    aber da steht ja nicht Zeile, sondern Zelle.
    Aber wurscht.
    Du legst also für jede Spalte den Spaltentyp fest und … öhm. Ich glaub ich hab doch nicht verstanden, was Du willst.
    Wie man die Beschriftung einer Button-Zelle festlegt, weißt Du ja jetzt. Was brauchst Du noch? Denn das mit den Haken ist ja immer noch unklar. Willst Du noch ne CheckBoxColumn oder wie? Oder ImageColumn? Oder TextColumn? Kannst Du doch alles im DGV festlegen.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

Facebook
Telefonspende