vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Mails senden, abrufen und decodieren - ganz easy ;-)  
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Bild in Datagridview laden (anzeigen) 
Autor: Erichbru
Datum: 20.01.23 13:56

Hallo ich versuche gerade in einer Testversion Bilder in eine DGV Spalte zu laden, warum zeigt er mir die Bilder nicht an?



 Private Sub Load_Data()
        Dim dt As New DataTable
 
        dt.Columns.Add("Bildpfad")
        dt.Rows.Add("D:\_Bildgalerie\blume.jpg")
        dt.Rows.Add("D:\_Bildgalerie\blume2.jpeg")
        dt.Rows.Add("D:\_Bildgalerie\blume3.jpg")
        dt.Rows.Add("D:\_Bildgalerie\minion.png")
        DataGridView2.DataSource = dt
 
        Dim colImage As New DataGridViewImageColumn
        DataGridView2.Columns.Add(colImage)
 
        Dim intI, intC As Integer
        intC = dt.Rows.Count
        For intI = 0 To intC - 1
            Dim cellImage As New DataGridViewImageCell
            cellImage.Value = Drawing.Image.FromFile(dt.Rows(intI).Item( _
              0).ToString)
            cellImage.ImageLayout = DataGridViewImageCellLayout.Zoom
            DataGridView2.Rows(intI).Cells(1) = cellImage
        Next
    End Sub
Hinzufügen dagegen funktioniert hiermit

 Private Sub btn_Browse_Image_Click(sender As Object, e As EventArgs) Handles _
   btn_Browse_Image.Click
        Dim ofd As New OpenFileDialog
        With ofd
            .Filter = "Choose Image(*.bmp)|*.bmp|jpe (*.jpe)|*.jpe|jpeg (" & _
              "*.jpeg)|*.jpeg|jpg (*.jpg)|*.jpg|jpeg2000 (" & _
              "*.jpeg2000)|*.jpeg2000|png (*.png)|*.png|gif (*.gif)|*.gif|Alle" & _
              "Dateien(*.*)|*.*"
            .FilterIndex = 8
            .FileName = ""
        End With
 
        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            PictureBox1.Image = Image.FromFile(ofd.FileName)
        End If
 
        TextBox1.Text = ofd.FileName.ToString
    End Sub
 
    Private Sub btn_Add_To_DataGridView_Click(sender As Object, e As EventArgs) _
      Handles btn_Add_To_DataGridView.Click
        Dim ms As New MemoryStream
 
        Try
            PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)
            Dim img As Byte()
            img = ms.ToArray()
            DataGridView1.Rows.Add(TextBox1.Text, img)
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString())
        End Try
    End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Bild in Datagridview laden (anzeigen)113Erichbru20.01.23 13:56
Re: Bild in Datagridview laden (anzeigen)69Manfred X21.01.23 07:24
Re: Bild in Datagridview laden (anzeigen)44Erichbru22.01.23 16:25

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2023 [email protected] Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel