Sub Bilder_laden()
On Error Resume Next
 
 
   ImageList3.ImageHeight = 246
   ImageList3.ImageWidth = 164
 
 
   ImageList4.ImageHeight = 70
   ImageList4.ImageWidth = 55
 
 
   Dim file As String, Path As String
 
   'Pfad mit JPG-Bilddateien
   Path = "C:\Dokumente und Einstellungen\Sophus\Desktop\Bilder\"
 
   'Bilder in Imagelist laden
   file = Dir(Path & "*.jpg")
   Do While file <> ""
     Image1 = LoadPicture(Path & file)
     ImageList3.ListImages.Add , Path & file, Image1
     ImageList4.ListImages.Add , Path & file, Picture2
 
     file = Dir
 
   Loop
 
 
   'Filenamen ins Listview eintragen und per Schlüssel
   'auf die ImageList verweisen
   ListView1.Icons = ImageList3
   ListView1.SmallIcons = ImageList4
 
 
   file = Dir(Path & "*.jpg")
   Do While file <> ""
        Image1 = LoadPicture(Path & file)
        file = mid(file, 1, Len(file) - 4)
        ImageList3.ListImages.Add , "x" & file, Image1
        file = Dir
    Loop
 
 
Call movie_Laden_Daten
 
End Sub

 Sub movie_Laden_Daten()
 On Error Resume Next
 Dim dy2 As Recordset
 Dim mdbdbfile As Database
 
'Dim DefaultKey As String, imagekey As String
'DefaultKey = "default"
 
    Set mdbdbfile = OpenDatabase(midi.sKeyNames1.Text)
    Set dy2 = mdbdbfile.OpenRecordset("film", dbOpenTable)
    With StatusBar1.Panels(1)
    .Text = "Anzahl der gespeicherten Filme: " & dy2.RecordCount
 
 ListView1.ColumnHeaders.Add , "Col0", "ID" 
 ListView1.ColumnHeaders.Add , "Col1", "Filmtitel" 
 ListView1.ColumnHeaders.Add , "Col2", "Originaltitel" 
 ListView1.ColumnHeaders.Add , "Col3", "Regie" 
 ListView1.ColumnHeaders.Add , "Col4", "Genre" 
 ListView1.ColumnHeaders.Add , "Col5", "Jahr"
 
 Dim itmX As ListItem
 
        ListView1.ListItems.Clear
 
   While Not dy2.EOF
 
         Set itmX = ListView1.ListItems.Add(, "x" & CStr(dy2!Id), CStr(dy2( _
           "[ID]") & " " & "  " & (dy2("[Title]") & "  (" & (dy2( _
           "[originaltitle]") & ")"))), "x" & CStr(dy2!Id))
 
           Dim ti As String
           Dim I As String
             I = dy2!Title
             If IsNull(n) Then ti = "." Else ti = I
 
          Dim org As String
          Dim og As String
            og = dy2!originaltitle
             If IsNull(n) Then org = "." Else org = og
 
          Dim reg As String
          Dim nvv As String
            nvv = dy2!regie
              If IsNull(n) Then reg = "." Else reg = nvv
 
         Dim genr As String
         Dim M As String
            M = dy2!genre
             If IsNull(M) Then genr = "." Else genr = M
 
        Dim yr As String
        Dim g As String
           g = dy2!Year
            If IsNull(n) Then yr = "." Else yr = g
 
         itmX.SubItems(1) = ti
         itmX.SubItems(2) = org
         itmX.SubItems(3) = reg
         itmX.SubItems(4) = genr
         itmX.SubItems(5) = yr
 
         dy2.MoveNext
 
            Wend
 
         dy2.MoveFirst
 
     dy2.Close
 
  End With
 
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Zitat:

Deine Aussage, man solle keine Bilder in die Access Datenbank abspeichern. Diese Aussage klang irgendwie allgemeingültig oder bezog es auf meinem Fall?

Zitat:

... ich ein sehr visueller Mensch bin und weniger lese, sondern eher nach dem Cover-Bild handel. Und da wollte ich generell wissen, ob es möglich ist.

Zitat:

Aber wenn wir schon beim Thema Code sind. Gibt es hier in diesem Portal verständnishalber ein kleines Beispiel zu diesem Fall?

Option Explicit
 
Private Sub Form_Load()
 
   ListView1.ColumnHeaders.Add , "Bild", "bild", 3000
 
   Image1.Visible = False
   ImageList1.ImageHeight = 200
   ImageList1.ImageWidth = 200
 
   Dim file As String, path As String
 
   'Pfad mit JPG-Bilddateien
   path = "F:\Daten\"
 
   'Bilder in Imagelist laden
   file = Dir(path & "*.jpg")
   Do While file <> ""
     Image1 = LoadPicture(path & file)
     ImageList1.ListImages.Add , path & file, Image1
     file = Dir
   Loop
 
   'Filenamen ins Listview eintragen und per Schlüssel
   'auf die ImageList verweisen
   ListView1.Icons = ImageList1
   file = Dir(path & "*.jpg")
   Do While file <> ""
     ListView1.ListItems.Add , path & file, path & file, path & file
     file = Dir 
   Loop
 
End Sub

On Error Resume Next

Zitat:

der Code scheint nicht zu funktionieren. Ich habe ein neues Projekt aufgemacht, eine Form erstelt, eine Listview hinzugefügt,

Zitat:

und ich habe noch diesen Code mit: On Error Resume Next bestückt, damit nicht sämtliche Probleme aukreuzen.

Zitat:

Und wenn ich das Projekt dann starte, dann passiert nichts...

On Error Resume Next

Option Explicit
 
Private Sub Form_Load()
 
   ListView1.ColumnHeaders.Add , "Bild", "bild", 3000
 
   Image1.Visible = False
   ImageList1.ImageHeight = 200
   ImageList1.ImageWidth = 200
 
   Dim file As String, path As String
 
   'Pfad mit JPG-Bilddateien
   path = "F:\Daten\"
 
   'Bilder in Imagelist laden
   file = Dir(path & "*.jpg")
   Do While file <> ""
     Image1 = LoadPicture(path & file)
     ImageList1.ListImages.Add , path & file, Image1
     file = Dir
   Loop
 
   'Filenamen ins Listview eintragen und per Schlüssel
   'auf die ImageList verweisen
   ListView1.Icons = ImageList1 '<<<<<<< hier wird es dann gelb markiert...
   file = Dir(path & "*.jpg")
   Do While file <> ""
     ListView1.ListItems.Add , path & file, path & file, path & file
     file = Dir 
   Loop
 
End Sub

Private Sub Form_Load()
 
ListView1.ColumnHeaders.Add , "Bild", "bild", 3000
 
Image1.Visible = False
 
ImageList1.ImageHeight = 200
ImageList1.ImageWidth = 200
 
ImageList2.ImageHeight = 32
ImageList2.ImageWidth = 32
 
Dim file As String, path As String
path = "F:\Daten\"
 
file = Dir(path & "*.jpg")
Do While file <> ""
  Image1 = LoadPicture(path & file)
  ImageList1.ListImages.Add , path & file, Image1
  ImageList2.ListImages.Add , path & file, Image1
  file = Dir
Loop
 
ListView1.Icons = ImageList1
ListView1.SmallIcons = ImageList2
file = Dir(path & "*.jpg")
Do While file <> ""
  '4 x !! 
  ListView1.ListItems.Add , path & file, path & file, path & file, path & file
  file = Dir
Loop
 
ListView1.View = lvwReport
 
End Sub

Sub movie_laden()
On Error Resume Next
Dim dy2 As Recordset
Dim mdbdbfile As Database
Dim itmX As ListItem
Dim ti As String
Dim I As String
Dim org As String
Dim og As String
Dim Vn As String
Dim nvv As String
Dim gn As String
Dim g As String
Dim Nachname As String
Dim M As String
 
 
    Set mdbdbfile = OpenDatabase(midi.sKeyNames1.Text)
    Set dy2 = mdbdbfile.OpenRecordset("film", dbOpenTable)
    With StatusBar1.Panels(1)
    .Text = "Anzahl der gespeicherten Adressen: " & dy2.RecordCount
 
             Me.MousePointer = vbHourglass
 
                 ListView1.ColumnHeaders.Add , "Col0", "ID" 
                 ListView1.ColumnHeaders.Add , "Col1", "Filmtitel" 
                 ListView1.ColumnHeaders.Add , "Col2", "Originaltitel" 
                 ListView1.ColumnHeaders.Add , "Col3", "Regie" 'Vorname
                 ListView1.ColumnHeaders.Add , "Col4", "Genre" 'Nachname
                 ListView1.ColumnHeaders.Add , "Col5", "Jahr"
 
       Call GetColumnHeader 'Dies liegt im Modul
 
       ListView1.ListItems.Clear
 
If dy2.EOF And dy2.BOF Then
    MDIForm1.mnubearbeiten.Enabled = False
 Exit Sub
End If
 
While Not dy2.EOF
    Set itmX = ListView1.ListItems.Add(, "x" & CStr(dy2!Id), CStr(dy2("[ID]")))
 
 
I = dy2!Title
If IsNull(n) Then ti = "." Else ti = I
 
og = dy2!originaltitle
If IsNull(n) Then org = "." Else org = og
 
 
nvv = dy2!regie
If IsNull(n) Then Vn = "." Else Vn = nvv
 
M = dy2!genre
If IsNull(M) Then Nachname = "." Else Nachname = M
 
g = dy2!Year
If IsNull(n) Then gn = "." Else gn = g
 
itmX.SubItems(1) = ti 'Titel
itmX.SubItems(2) = org 'Originaltitel
itmX.SubItems(3) = Vn 'Regie
itmX.SubItems(4) = Nachname ' Genre
itmX.SubItems(5) = gn 'Jahre
 
 
dy2.MoveNext
Wend
dy2.MoveFirst
 
dy2.Close
 
Call Prz_Bilder_Laden
 
Me.MousePointer = vbNormal
End With
 
End Sub

Sub Prz_Bilder_Laden()
 
   ListView1.ColumnHeaders.Add , "Bild", "bild", 3000
 
   Image1.Visible = False
   ImageList1.ImageHeight = 200
   ImageList1.ImageWidth = 200
 
   ImageList2.ImageHeight = 32
   ImageList2.ImageWidth = 32
 
   Dim file As String, path As String
 
   'Pfad mit JPG-Bilddateien
   path = "F:\Daten\"
 
   'Bilder in Imagelist laden
   file = Dir(path & "*.jpg")
   Do While file <> ""
     Image1 = LoadPicture(path & file)
     ImageList1.ListImages.Add , path & file, Image1
     ImageList2.ListImages.Add , path & file, Image1
     file = Dir
   Loop
 
   'Filenamen ins Listview eintragen und per Schlüssel
   'auf die ImageList verweisen
   ListView1.Icons = ImageList1
   ListView1.SmallIcons = ImageList2
   file = Dir(path & "*.jpg")
   Do While file <> ""
      ListView1.ListItems.Add , path & file, path & file, path & file, path & _
        file
     file = Dir 
   Loop
 
End Sub

On Error Resume Next

ListView.View = lvwIcons

Sub movie_laden()
 
   Image1.Visible = False
   ImageList1.ImageHeight = 200
   ImageList1.ImageWidth = 200
 
   ImageList2.ImageHeight = 32
   ImageList2.ImageWidth = 32
 
   Dim file As String, path As String
 
   'Pfad mit JPG-Bilddateien
   path = "F:\Daten\"
 
   'Bilder in Imagelist laden
   file = Dir(path & "*.jpg")
   Do While file <> ""
     Image1 = LoadPicture(path & file)
     ImageList1.ListImages.Add , path & file, Image1
     ImageList2.ListImages.Add , path & file, Image1
     file = Dir
   Loop
 
   'Filenamen ins Listview eintragen und per Schlüssel
   'auf die ImageList verweisen
   ListView1.Icons = ImageList1
   ListView1.SmallIcons = ImageList2
   file = Dir(path & "*.jpg")
   Do While file <> ""
        Image1 = LoadPicture(Path & file)
        file = mid(file, 1, Len(file) - 4)
        ImageList1.ListImages.Add , "x" & file, Image1
        file = Dir
    Loop
     Call movie_Laden_Daten
End Sub

Sub movie_Laden_Daten()
On Error Resume Next
Dim dy2 As Recordset
Dim mdbdbfile As Database
Dim itmX As ListItem
Dim ti As String
Dim I As String
Dim org As String
Dim og As String
Dim Vn As String
Dim nvv As String
Dim gn As String
Dim g As String
Dim Nachname As String
Dim M As String
 
 
    Set mdbdbfile = OpenDatabase(midi.sKeyNames1.Text)
    Set dy2 = mdbdbfile.OpenRecordset("film", dbOpenTable)
    With StatusBar1.Panels(1)
    .Text = "Anzahl der gespeicherten Adressen: " & dy2.RecordCount
 
             Me.MousePointer = vbHourglass
 
                 ListView1.ColumnHeaders.Add , "Col0", "ID" 
                 ListView1.ColumnHeaders.Add , "Col1", "Filmtitel" 
                 ListView1.ColumnHeaders.Add , "Col2", "Originaltitel" 
                 ListView1.ColumnHeaders.Add , "Col3", "Regie" 'Vorname
                 ListView1.ColumnHeaders.Add , "Col4", "Genre" 'Nachname
                 ListView1.ColumnHeaders.Add , "Col5", "Jahr"
 
       Call GetColumnHeader 'Dies liegt im Modul
 
       ListView1.ListItems.Clear
 
If dy2.EOF And dy2.BOF Then
    MDIForm1.mnubearbeiten.Enabled = False
 Exit Sub
End If
 
While Not dy2.EOF
    Set itmX = ListView1.ListItems.Add(, "x" & CStr(dy2!Id), CStr(dy2("[ID]")), _
      "x" & CStr(dy2!Id)) 
 
 
I = dy2!Title
If IsNull(n) Then ti = "." Else ti = I
 
og = dy2!originaltitle
If IsNull(n) Then org = "." Else org = og
 
 
nvv = dy2!regie
If IsNull(n) Then Vn = "." Else Vn = nvv
 
M = dy2!genre
If IsNull(M) Then Nachname = "." Else Nachname = M
 
g = dy2!Year
If IsNull(n) Then gn = "." Else gn = g
 
itmX.SubItems(1) = ti 'Titel
itmX.SubItems(2) = org 'Originaltitel
itmX.SubItems(3) = Vn 'Regie
itmX.SubItems(4) = Nachname ' Genre
itmX.SubItems(5) = gn 'Jahre
 
 
dy2.MoveNext
Wend
dy2.MoveFirst
 
dy2.Close
 
Me.MousePointer = vbNormal
End With
 
End Sub

Private Function FindImageKey _
      (ByVal imglist As ImageList, ByVal keytofind As String, _
       Optional ByVal defaultkey As String = "") As String
 
    Dim i%
    For i = 1 To imglist.ListImages.Count
       If ucase(keytofind) = ucase(imglist.ListImages(i).Key) Then
          FindImageKey = keytofind: Exit Function
       End If
    Next i
    FindImageKey = defaultkey
End Function

Dim DefaultKey as string, imagekey as string
DefaultKey = "default"
 
While Not dy2.EOF
    imagekey = FindImageKey(ImageList1, "x" & cstr(d2!ID), defaultkey)
    Set itmX = ListView1.ListItems.Add(, "x" & cstr(d2!ID), dy2!Title, imagekey)
 
    .......

Private Function FindImageKey _
      (ByVal imglist As ImageList, ByVal keytofind As String, _
       Optional ByVal defaultkey As String = "") As String
 
    Dim i%
    For i = 1 To imglist.ListImages.Count
       If ucase(keytofind) = ucase(imglist.ListImages(i).Key) Then
          FindImageKey = keytofind: Exit Function
       End If
    Next i
    FindImageKey = defaultkey
End Function

Sub movie_Laden_Daten()
On Error Resume Next
Dim dy2 As Recordset
Dim mdbdbfile As Database
Dim itmX As ListItem
Dim ti As String
Dim I As String
Dim org As String
Dim og As String
Dim Vn As String
Dim nvv As String
Dim gn As String
Dim g As String
Dim Nachname As String
Dim M As String
Dim DefaultKey as string, imagekey as string
DefaultKey = "default"
 
 
    Set mdbdbfile = OpenDatabase(midi.sKeyNames1.Text)
    Set dy2 = mdbdbfile.OpenRecordset("film", dbOpenTable)
    With StatusBar1.Panels(1)
    .Text = "Anzahl der gespeicherten Adressen: " & dy2.RecordCount
 
             Me.MousePointer = vbHourglass
 
                 ListView1.ColumnHeaders.Add , "Col0", "ID" 
                 ListView1.ColumnHeaders.Add , "Col1", "Filmtitel" 
                 ListView1.ColumnHeaders.Add , "Col2", "Originaltitel" 
                 ListView1.ColumnHeaders.Add , "Col3", "Regie" 'Vorname
                 ListView1.ColumnHeaders.Add , "Col4", "Genre" 'Nachname
                 ListView1.ColumnHeaders.Add , "Col5", "Jahr"
 
       Call GetColumnHeader 'Dies liegt im Modul
 
       ListView1.ListItems.Clear
 
If dy2.EOF And dy2.BOF Then
    MDIForm1.mnubearbeiten.Enabled = False
 Exit Sub
End If
 
While Not dy2.EOF
 
    imagekey = FindImageKey(ImageList1, "x" & cstr(d2!ID), defaultkey)
    Set itmX = ListView1.ListItems.Add(, "x" & cstr(d2!ID), dy2!Title, imagekey)
 
    Set itmX = ListView1.ListItems.Add(, "x" & CStr(dy2!Id), CStr(dy2("[ID]")), _
      "x" & CStr(dy2!Id)) 'Auf wenn ich dieses Set itmX entferne, funktioniert 
      ' es nicht ganz.
 
 
I = dy2!Title
If IsNull(n) Then ti = "." Else ti = I
 
og = dy2!originaltitle
If IsNull(n) Then org = "." Else org = og
 
 
nvv = dy2!regie
If IsNull(n) Then Vn = "." Else Vn = nvv
 
M = dy2!genre
If IsNull(M) Then Nachname = "." Else Nachname = M
 
g = dy2!Year
If IsNull(n) Then gn = "." Else gn = g
 
itmX.SubItems(1) = ti 'Titel
itmX.SubItems(2) = org 'Originaltitel
itmX.SubItems(3) = Vn 'Regie
itmX.SubItems(4) = Nachname ' Genre
itmX.SubItems(5) = gn 'Jahre
 
 
dy2.MoveNext
Wend
dy2.MoveFirst
 
dy2.Close
 
Me.MousePointer = vbNormal
End With
 
End Sub

Zitat:

Bezüglich des Problem habe ich nun die Datei online hochgeladen. Eines vorweg. Nicht wundern, wenn es so "unordentlich" - um nicht zu sagen chaotisch - auf der Form aussieht. Ich habe zum Verständnis einen Bruchteil aus meinem Programm-Projekt entnommen.

Zitat:

Folgende Probleme - um es nochmal zusammen zu fassen: [u]In Version 1: - Es funktioniert alles, ABER: - ich hätte die Möglichkeit: sobald einem Datensatz mittels ID kein Bild zugewiesen werden kann, dass ich dann ein DeFault-Bild verwenden kann

Zitat:

- Sobald mehr als 300 Bilder im Ordner sind, lassen sich die Bilder nicht mehr in die ListView laden

Zitat:

Hast du denn diesen Bruchteil selbst mal gestestet? Nach dem Entpacken deiner rar Datei habe ich zwei VB Projekte mit unterschiedlichem Inhalt. Welches ist denn das richtige?

Zitat:

In deinen Projekten bzw. Programmcode verweist du auf absolute Pfade auf deinem Rechner die niemand sonst hat. Da gibt es natürlich Fehler beim laden des Projekts und auch beim ausführen.

Zitat:

Was hat die Anzahl der Bilder im Ordner zu sagen? Entscheidend ist doch die Anzahl der Filme in der DB. Wenn du in der DB 100 Filme hast müssen auch nur 100 Bilder im ListView angezeigt werden auch wenn 1000 im Ordner sind.

Zitat:

Wie machst du denn überhaupt die Zuordnung von Bildnamen und dem Feld ID in deiner DB? Du hast ca. 700 Filme in der DB, die höchste ID liegt bei knapp 1000 und die Bildnamen gehen über 9000.

Zitat:

Es sind zwei Projekte in diesem verpackten Ordner? Dann muss mir ein Fehler unterlaufen sein. Auf jeden Fall sollte es das Projekt sein, wo insgesamt 3 Formen vorhanden sind. Sobal dann das Projekt gestartet wird, bekommt man die Form, auf welcher zwei CommandButton vorhanden sind, einmal Version 1 und Version 2.

Zitat:

Ja, die Pfade müssen erst angepasst werden. Da dieser Bruchteil auf meinem Rechner lief, ergibt sich auch ganz andere Pfade. Aber ich dachte, es versteht sich bei Datenbankanwenundgen von selbst?

Zitat:

In der ersten Version ist es ja noch sichtbar, in Call_Laden.

Zitat:

Hmm, was soll uns das jetzt sagen? In jedem deiner beiden Projekte sind drei Formulare vorhanden und bei jedem der beiden kommt das Fenster mit den Command Buttons welche Version gestartet werden soll.

Zitat:

Auch hier hast du einen Gedankenfehler da du mit absoluten Pfaden arbeitest. Grade bei Datenbankanwendungen ist das nicht notwendig und du hast die absoluten Pfade auch für die Bilder und Module in deinem Programmcode. Und nein, ich könnte das zwar alles von Hand anpassen, aber diese Arbeit habe ich mir nicht angetan. Mache doch mal ein Setup von deinem Projekt, installiere es auf einem anderen Rechner, wenn es dann läuft sehen wir weiter.

Zitat:

Das Beispiel von ManfredX ist ja schön und gut, es beschreibt auch wie man so etwas machen kann, aber es ist nicht abgestimmt auf dein Problem deinen Programmcode und deine Datenbank. Du hast ja vorher wichtige Details verschwiegen und so konnte ManfredX auch nur dahingehend antworten war er bzw. wir hier für Informationen hatten.

Zitat:

Hallo Sophus, SQL Abfrage auf die DB, Recordset durchlaufen und dort prüfen, ob es in der DB ein Bild zum jeweiligen Datensatz gibt (Dann hast du auch gleich die ID) und dort die ImageList und das ListView füllen. Am Anfang oder Ende lädst du dein Dummy-Bild in die Imagelist, und wenn im Datesatz des Recordsets zum Film kein Bild eingetragen ist, weist du das Dummy-Bild im ListView zu.

Zitat:

Und warum überhaupt zwei ImageLists? In der einen lädst du ja die Bilder sowieso in der Originalgröße wie sie auch im Dateisystem sind. Die werden ja im Listview eh nicht angezeigt, bzw. sollten es nicht sondern nur die kleineren Vorschaubilder. Das was du da machst, macht die Sache natürlich extrem langsam.

Zitat:

Schreib mir mal ein PM, am Wochenende kann ich dir vielleicht eine kleine Demo aus einem alten Projekt von mir raus ziehen.

Dim con As ADODB.Connection
Dim rec As ADODB.Recordset
Dim Bildverzeichnis As String
Dim BildID As String
Dim x As Integer

Private Sub Form_Load()
    Set con = New ADODB.Connection
    With con
        .CursorLocation = adUseClient
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Properties("Data Source") = App.Path & "\Films.mdb"
        .Open
    End With
    Bildverzeichnis = App.Path & "\Bilder\"
    Me.ImageList1.ImageHeight = 70
    Me.ImageList1.ImageWidth = 46
    Me.Picture1.ScaleHeight = 70
    Me.Picture1.ScaleWidth = 46
    Me.Picture1.Visible = False
    BilderLaden   
End Sub

Private Sub BilderLaden()
    Me.ImageList1.ListImages.Clear
    Set ListView1.Icons = Nothing
    ListView1.ListItems.Clear
    Set rec = New ADODB.Recordset
'     Sql = "Select * From film Where ID > 0 Order by ID"
    ' bzw. für den Test
    Sql = "Select * From film Where ID >= 207 And ID <= 220 Order By ID"
    ' Die Bilder gibt es alle, benenne für deinen Test z.B. ein oder zwei 
    ' Bilder um damit das Dummybild greift.
    rec.Open Sql, con, adOpenKeyset, adLockReadOnly
    MsgBox "Filme in der DB: " & rec.RecordCount
    If Not rec.EOF Then
        ' Es gibt Filme, also zuerst Dummybild zuweisen
        Picture1.Picture = LoadPicture(Bildverzeichnis & "Default.jpg")
        Me.ImageList1.ListImages.Add 1, "Dummybild", Picture1.Image
        x = 1
        Me.ListView1.Icons = Me.ImageList1
        While Not rec.EOF
            BildID = CStr(rec.Fields("ID"))
            Filmtitel = rec.Fields("Title")    
            Picture1.Cls
            On Error Resume Next
            Picture1.Picture = LoadPicture(Bildverzeichnis & BildID & ".jpg")
            If Err = 0 Then
                Me.ImageList1.ListImages.Add , Chr(34) & BildID & Chr(34), _
                  Me.Picture1.Image
                Set litem = ListView1.ListItems.Add(x, Chr(34) & BildID & Chr( _
                34), Filmtitel, Chr(34) & BildID & Chr(34))
            Else
                ' Dummybild zuweisen
                Set litem = ListView1.ListItems.Add(x, Chr(34) & BildID & Chr( _
                  34), Filmtitel, "Dummybild")
                Err.Clear
            End If
            x = x + 1
            rec.MoveNext
        Wend
        MsgBox "Filme mit Bild: " & Me.ImageList1.ListImages.Count - 1
        ' -1 weil das Dummybild ja auch in der Imagelist ist, aber nicht zählt
    Else
        MsgBox "Keine Filme gefunden"
    End If
    rec.Close
    Set rec = Nothing
End Sub

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    Anzeigetext = "Film hat in der DB die ID: " & Replace( _
      Me.ListView1.SelectedItem.Key, Chr(34), "") & vbCrLf
    If Me.ListView1.SelectedItem.Icon = "Dummybild" Then
        Anzeigetext = Anzeigetext & "Film ohne Bild"
    Else
        Anzeigetext = Anzeigetext & "Bild unter: " & Bildverzeichnis & Replace( _
          Me.ListView1.SelectedItem.Key, Chr(34), "") & ".jpg"
    End If
    MsgBox Anzeigetext
End Sub

Private Sub Beenden_Click()
    Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
    con.Close
    Set con = Nothing
End Sub

Zitat:

nun melde ich mich wieder zurück. Noch einmal ein dickes Dankeschön. Zunächst die guten Nachrichten. Es funktioniert soweit alles. Ich bin dank dir endlich einen Schritt weiter gekommen.

Zitat:

Nun, ich habe es soweit hinbekommen, dass die geladenen Bilder skaliert werden, sprich, die Seitenverhältnisse werden an die Picturebox angepasst.

Zitat:

Aber diese vorgegebene Bildgröße werden irgendwie nicht in die ListView übertragen - die Bilder werden viel zu groß ausgegeben. Ich habe auch schon an der ImageList rumprobiert - erfolglos.

Zitat:

Dadurch leidet die Bildqualität enorm.

Zitat:

Des Weiteren ist mir aufgefallen, im Bildordner sind 176 Bilder (inkl. Default.jpg), die zugeordnet werden können.

Zitat:

Beim durchlaufen werden aber nur 126 Bilder geladen. Die restlichen Datensätze bekommen ein Default-Bild.