Bilder in Datagridview hinzufügen

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Bilder in Datagridview hinzufügen

    Hallo liebe Gemeinde,

    bisher bin ich mit der Einarbeitung von Items von Datagridview vertraut und wollte mit Bildern experimentieren.
    Ich nutze ganz gewöhnliche Datatables, die an eine DGB gebindet werden:

    VB.NET-Quellcode

    1. ​
    2. With lister
    3. .Columns.Add("Index", GetType(System.Int32))
    4. .Columns.Add("A", GetType(System.String))
    5. .Columns.Add("B", GetType(System.String))
    6. End
    8. ...
    10. Datagridview1.DataSource = lister


    Mittels eines Buttons füge ich Rows zur Datatable hinzu. Die ersten beiden Textboxen besitzen einen Stringinhalt.

    Ich habe bisher mit folgendem Ansatz versucht, Bilder hinzuzufügen:

    VB.NET-Quellcode

    1. ​
    2. Dim imgcol As DataGridViewImageColumn = New DataGridViewImageColumn()
    3. Dim counter as integer = 1
    5. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    6. Dim tClient As WebClient = New WebClient
    7. Dim tImage As Bitmap = Bitmap.FromStream(New MemoryStream(tClient.DownloadData(serverlist+ counter )))
    8. Dim a As Image = New Bitmap(tImage)
    9. imgcol.image = a
    10. imgcol.HeaderText = "Image"
    11. imgcol.Name = "Image"
    12. DataGridView1.Columns.Add(imgcol)
    14. lister.rows.add(counter, textbox1.text, textbox2.text, imgcol)
    15. counter +=1



    Dies führt zu einer Fehlermeldung. Die Datagridview wird somit gar nicht gefüllt.

    Ich bedanke mich recht herzlich im voraus und verbleibe mit freundlichen Grüßen

    Du mußt die entsprechende Column als DataGridViewImageColumn deklarieren.
    msdn.microsoft.com/de-de/libra…magecolumn(v=vs.110).aspx
    msdn.microsoft.com/de-de/libra…lumn.image(v=vs.110).aspx

    Ach Quatsch, ich habe mich verguckt, du hast ja korrekt deklariert. :whistling:

    Mir ist nicht ganz klar, wie du das DataGridView befüllst, ist es nun gebunden, oder befüllst du es anderweitig ?
    Bist du dir sicher, daß die Bilddateien aus dem Netz, auch in der Variable ankommen ?

    Arrrgg, ich sehe den Wald vor lauter Bäumen nicht (Ganze Methoden wären übersichtlicher!).

    lister.Rows.Add(imgcol) Einer Zeile, ein Spalte hinzufügen kann aber schon mal nicht gehen, zumal imgcol vom Typ DataGridViewImageColumn ist und lister vom Typ DataTable.

    edit5:
    Habe mir nen Kaffe in Kopp gekippt, nun arbeitet das Hirn wieder einigermaßen. :D

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim lister As New DataTable
    5. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    6. With lister
    7. .Columns.Add("Index", GetType(System.Int32))
    8. .Columns.Add("A", GetType(System.String))
    9. .Columns.Add("B", GetType(System.String))
    10. .Columns.Add("Image", GetType(System.Drawing.Bitmap)) ' <---- !!!
    11. End With
    12. DataGridView1.DataSource = lister
    13. End Sub
    15. Dim counter As Integer = 1
    16. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    17. Dim tImage As Bitmap = CType(Image.FromFile("C:\...\...\test.png", True), Bitmap)
    18. Dim a As Image = New Bitmap(tImage)
    19. lister.Rows.Add(counter, "bla", "blub", a)
    20. counter += 1
    21. End Sub
    23. End Class

    Damit solltest du was anfangen können.

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „Pasta“ ()

    @Pasta Jou. Und nun mit DataTable:
    .@Semiconductor Es geht auch mit Image. Form mit Button umd leerem DGV, alle PNG-Dateien im Pfad c:\Temp werden angezeigt:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    2. Dim table As New System.Data.DataTable()
    3. table.Columns.Add("Icon", GetType(Image))
    4. table.Columns.Add("Path", GetType(String))
    6. Dim fis() = New IO.DirectoryInfo("c:\temp\").GetFiles("*.png", IO.SearchOption.TopDirectoryOnly)
    8. For Each fi In fis
    9. table.Rows.Add(New Bitmap(fi.FullName), fi.FullName)
    10. Next
    12. With Me.DataGridView1.RowTemplate
    13. .DefaultCellStyle.BackColor = Color.Bisque
    14. .Height = 100
    15. .MinimumHeight = 20
    16. End With
    18. Me.DataGridView1.DataSource = table
    20. Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
    21. DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    22. Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle1
    23. Me.DataGridView1.Columns(0).Width = 200
    24. Me.DataGridView1.Columns(1).Width = 300
    25. End Sub
    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!

Facebook
Telefonspende