Bild in PictureBox anzeigen

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von shadow01.

    Bild in PictureBox anzeigen

    Hallo Zusammen

    Ich bin seit einiger Zeit am Versuchen "mit Buch und Google" Bilder in einer PictureBox anzuzeigen welches sich aus einer DB zusammensetzt und hoffe Ihr könnt mir nun weiterhelfen.

    Ich hebe eine OleDB unter Access erstellt. Ich habe darin eine Tabelle mit Name tbKatalog. Den Katalog lade ich im ersten Schritt in ein DGV was Super funktioniert.
    Danach mache ich eine Abfrage um in einem zweiten DGV die Einzelteile aus der tbEinzelteil abzufragen welche verwendet wurden um den Artikel im Katalog zu fertigen. Das geht auch noch.

    Nun will ich aber das in meiner PictureBox wenn ich im DGV vom Katalog klicke sich die dazugehörigen Bilder angezeigt bekomme.

    das versuche ich über die DGV1.CellClick zu realisieren.

    ich habe nun das hier versucht nach einigem Suchen leider ohne erfolg

    VB.NET-Quellcode

    1. Dim res As String = da2.ToString()
    3. PictureBox1.Image = Image.FromFile(res, ".jpg")


    VB.NET-Quellcode

    1. Imports System.IO
    3. Imports System
    5. 　
    7. Public Class Form1
    9. 'Globale Variablen
    11. Dim con As New OleDbConnection
    13. Dim cmd As New OleDbCommand
    15. Public reader As OleDbDataReader
    17. Public cn As New OleDbConnection
    19. Public i As Integer
    21. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    23. Dim da As New OleDbDataAdapter
    25. Dim ds As New DataSet
    27. Dim dt As New DataTable
    29. con.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0;" &
    31. "Data Source = UHPC_DB_20161001.accdb"
    33. da = New OleDbDataAdapter("SELECT tbKatalog.ID, Nummer, Artikel, MassEH, Bedarf, Kunde, Ptouch FROM tbKatalog, tbKunde, tbEinheit WHERE tbKunde.ID = tbKatalog.KundeID AND tbEinheit.ID = tbKatalog.MassEhID ", con)
    35. da.Fill(dt)
    37. DataGridView1.BorderStyle = BorderStyle.None
    39. DataGridView1.ColumnHeadersVisible = True
    41. DataGridView1.ColumnHeadersDefaultCellStyle.BackColor = Color.Black 'LightGray
    43. DataGridView1.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
    45. DataGridView1.EnableHeadersVisualStyles = False
    47. DataGridView1.GridColor = Color.White 'LightGray
    49. DataGridView1.RowHeadersVisible = False
    51. DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
    53. DataGridView1.BackgroundColor = Color.White
    55. DataGridView1.RowsDefaultCellStyle.BackColor = Color.LightGray
    57. DataGridView1.AlternatingRowsDefaultCellStyle.BackColor = Color.White
    59. DataGridView1.DataSource = dt
    61. End Sub
    63. 'DataGridView anzeigen für alle artikel jedoch noch Probleme weill alle Instanzen aufgelistet werden daher ist die Listbox noch aktiv
    65. Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
    67. Dim da As New OleDbDataAdapter
    69. Dim ds As New DataSet
    71. Dim dt As New DataTable
    73. 　
    75. con.ConnectionString =
    77. "Provider=Microsoft.ACE.OLEDB.12.0;" &
    79. "Data Source = UHPC_DB_20161001.accdb"
    81. 　
    83. da = New OleDbDataAdapter("SELECT tbEinzelteil.ID, ArtNr, ArtNrAlt, Bez, Firma, VE, MassEH, PreisVE, AnLager, Soll, Regal, Etage, Fach " &
    85. "FROM tbKatalog, tbEinzelteil, tbArtikelDetail, tbLieferant, tbEinheit " &
    87. "WHERE tbKatalog.ID Like '" &
    89. DataGridView1.CurrentCell.RowIndex + 1 & "'AND tbKatalog.ID = tbArtikelDetail.KatalogID AND tbEinzelteil.ID = tbArtikelDetail.EinzelteilID " &
    91. "AND tbLieferant.ID = tbEinzelteil.FirmaID AND tbEinheit.ID = tbEinzelteil.MassEhID ", con)
    93. Dim da2 As New OleDbDataAdapter("SELECT Nummer " &
    95. "FROM tbKatalog" &
    97. "WHERE tbKatalog.ID LIKE " &
    99. DataGridView1.CurrentCell.RowIndex + 1, con)
    101. da.Fill(dt)
    103. DataGridView2.DataSource = dt
    105. InitializeDataGridView()
    107. Dim res As String = da2.ToString()
    109. PictureBox1.Image = Image.FromFile(res, ".jpg") ', IO.FileMode.Open)
    111. End Sub

    Willkommen im Forum. :thumbup:

    shadow01 schrieb:

    VB.NET-Quellcode

    1. Dim res As String = da2.ToString()
    2. PictureBox1.Image = Image.FromFile(res, ".jpg")
    Welchen Inhalt hat der String res?
    Wo hast Du den Befehl .FromFile(res, ".jpg") her? Diese Syntax gibt es nämlich nicht, gugst Du hier. Da gehört ein True oder False hin.
    Mach zunächst Option Strict On, damit Du verstehst, was ich meine.
    Wo ist das Bild gespeichert, das Du anzeigen willst?
    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!

    Hallo RodFrimGermany

    Danke für die schnelle Antwort.
    res "soll" den Inhalt der Artikelnummer erhalten welcher mit (siehe unten) abgefragt wird

    VB.NET-Quellcode

    1. Dim da2 As New OleDbDataAdapter("SELECT Nummer " &
    3. "FROM tbKatalog" &
    5. "WHERE tbKatalog.ID LIKE " &
    7. DataGridView1.CurrentCell.RowIndex + 1, con)


    Jupp du hast recht ich habe das nun so korrigiert:

    VB.NET-Quellcode

    1. Dim res As String = da2.ToString()
    3. 'Dim folder As String = ""
    5. 'Dim filename As String = System.IO.Path.Combine(folder, id & ".jpg")
    7. Dim filename As String = System.IO.Path.Combine(res & ".jpg") '(folder, id & "*jpg")
    9. PictureBox1.Image = Image.FromFile(filename)


    Das Bild ist im Ordner Debug gespeichert.

    Ich vermute der Fehler passiert bei der Übergabe von da2 zur Variablen res

    Danke und Gruss

    shadow01 schrieb:

    Ich vermute der Fehler passiert bei der Übergabe von da2 zur Variablen res
    Vermuten nützt da nix.
    Überzeuge Dich davon, dass Dein Code das tun, was er tun soll, z.B. so:

    VB.NET-Quellcode

    1. Dim res As String = "Test" ' das ist mein Dateiname!!!
    2. Dim filename As String = System.IO.Path.Combine(res & ".jpg")
    3. MessageBox.Show(filename)
    4. PictureBox1.Image = Image.FromFile(filename)
    Dieser Code läuft genau so.
    Öffne den Explorer und sieh nach, ob die Datei da ist und wie ganz genau sie heißt.
    Ansonsten setze einen Haltepunkt in die Prozedur und steppe sie zeilenweise durch.
    Überzeuge Dich davon, dass Dein Code das tut, was Du glaubst dass er tuen soll :!:
    Lerne zu debuggen. Gugst Du hier.
    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!

    Hallo
    Sorry war in den Ferien.. daher lange keine Antwort! :)
    Nun aber funktioniert die Bilddarstellung super. Ich habe das Problem so gelöst:

    VB.NET-Quellcode

    1. '----------------------------Bild Anzeigen---------------------------
    2. Dim i2 As Integer
    3. Dim AktuelleZeile2 As String
    5. i2 = DataGridView1.CurrentRow.Index
    6. AktuelleZeile2 = DataGridView1.Item(1, i).Value
    7. Dim ConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source = UHPC_DB_20161001.accdb"
    8. Dim sql As String = "SELECT Nummer FROM tbKatalog WHERE tbKatalog.Nummer Like " & AktuelleZeile2
    9. Dim conn As OleDbConnection = New OleDbConnection(ConnectionString)
    10. Dim file As String = sql
    11. Dim pfad As String = "Bilder"
    12. Dim filename As String = System.IO.Path.Combine(pfad, file.Remove(0, 57) & ".jpg")
    13. 'txtSearch.Text = filename
    15. If System.IO.File.Exists(filename) Then
    16. Try
    17. conn.Open()
    18. PictureBox1.Image = Image.FromFile(filename)
    19. PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
    20. PictureBox1.BorderStyle = BorderStyle.Fixed3D
    21. conn.Close()
    22. Catch ex As Exception
    23. MsgBox("FEHLER: Bitte Support kontaktieren: " & ex.ToString)
    24. End Try
    26. Else
    27. Try
    28. PictureBox1.Image = Image.FromFile("Bilder\no_image.jpg")
    29. Catch ex As Exception
    30. MsgBox("FEHLER: Bitte Support kontaktieren: " & ex.ToString)
    31. End Try
    32. End If
    34. conn.Close()


    eine Frage zum Posten habe ich noch immer wenn ich aus Visual Studio Express was hier in die VB.NET Klammer kommentiere werden Zeilenumbrüche erstellt. Wie kann ich den Code kopieren ohne das solche Zeilenumbrüche entstehen?

    Gruss und Danke nochmals

Facebook
Telefonspende