Listbox mit Nanem Bilddateien füllen jpg bmp gif

Roland · 2023-10-15T09:38:39+00:00

Schönen guten Morgen, ich habe eine Frage an die Profis unter euch! Wie man eine Listbox mit einem einzelnen Dateityp befüllt, habe ich bereits erfolgreich hinbekommen. Hier gibt es unzählige Infos darüber. Allerdings habe ich nirgendwo einen Hinweis gefunden, wie ich mehrere Dateitypen in einem Aufwasch eingelesen bekomme. Es geht darum, dass ich derzeit nur JPG Dateien in eine Listbox einlese. Jetzt möchte ich aber, dass er alle Bild-Dateien jedes Dateityps in einem speziellen Verzeichnis berücksichtigt. Toll wäre noch, wenn er mir als Eigenschaft Höhe und Breite ausliest und in die mehrspaltige Listbox einliest, ist aber kein muss. Kann mich hierbei jemand unterstützen? Lieben Dank

Erstmal vielen lieben Dank für den Code, der funktioniert perfekt!

Kann mir noch jemand auf die Sprünge helfen, wie ich die Höhe und Breite des Bildes übergeben bekomme ?
Bislang habe ich das hiermit gemacht, führte aber immer wieder zu Fehlinterpretationen.. Warum, keine Ahnung.
Insbesondere, wenn vorher die Bilder manuell im Ordner gedreht wurden, kam es zu Fehlern.
Kann es hierbei vl sein, dass die Exif Eigenschaften nicht mehr geändert werden, wenn man mit dem Foto von Windows gedreht hat ?

Private Function Bildgroesse_ermitteln(Quelldatei As String)

Dim objPicture As IPictureDisp

Dim Hoehe as Long

Dim Breite as Long



    Set objPicture = LoadPicture(ListBox1.List(ListBox1.ListIndex, 1))

    Breite = objPicture.Width

    Hoehe = objPicture.Height

    Set objPicture = Nothing



        If Hoehe / Breite > 1 Then Format = "QV"        'Querformat

        If Hoehe / Breite = 1 Then Format = "QT"        'Qudratformat

        If Hoehe / Breite  1 Then Format = "HV"        'Hochformat

                

End Function

Hallo Roland,

Der Fehler entsteht, weil die Variable in der Initialize Prozedur nur deklariert ist und nicht Klassenweit in dem Userform erreichbar ist.
Warum im Ganzen Modul erreichbar:
Du willst ja sicherlich so wie bei mir im Beispiel was mit HV, QV und QT machen (verarbeiten) und da braucht diese Variable in der ganzen Klasse (Modul des Userforms) verfügbar.
dann so:



Option Explicit

Dim Format As String



Private Sub ListBox1_Click()

    With Tabelle1

        Bildgroesse_ermitteln (ListBox1.List(ListBox1.ListIndex, 1))

        Cells(2, 2) = Format

    End With

End Sub



Private Sub Userform_initialize()

Call Listbox1_initialisieren



End Sub

Private Sub Listbox1_initialisieren()



Dim Datei As String

Dim A As Boolean

Dim i As Long

Dim strOrdner As Variant

Dim Aufloesung As String

Dim Breite As Long

Dim Hoehe As Long





    strOrdner = "D:"

 

    ListBox1.Clear

    Me.ListBox1.ColumnCount = 2

    Me.ListBox1.ColumnWidths = "50;50"

    

    Datei = Dir(strOrdner)

    Do While Datei > ""

        If Not InStr(1, Datei, ".jpg") = 0 Or Not InStr(1, Datei, ".gif") = 0 Or Not InStr(1, Datei, ".bmp") = 0 Then

            ListBox1.AddItem Datei

            ListBox1.List(ListBox1.ListCount - 1, 1) = strOrdner & Datei

        End If

        Datei = Dir()

    Loop

End Sub



Private Function Bildgroesse_ermitteln(Quelldatei As String)

Dim objPicture As IPictureDisp

Dim Hoehe As Long

Dim Breite As Long



    Set objPicture = LoadPicture(ListBox1.List(ListBox1.ListIndex, 1))

    Breite = objPicture.Width

    Hoehe = objPicture.Height

    Set objPicture = Nothing



        If Hoehe / Breite > 1 Then Format = "QV"        'Querformat

        If Hoehe / Breite = 1 Then Format = "QT"        'Qudratformat

        If Hoehe / Breite  1 Then Format = "HV"        'Hochformat

                

End Function

Gruß Uwe

Listbox mit Nanem Bilddateien füllen jpg bmp gif

Forumthread: Listbox mit Nanem Bilddateien füllen jpg bmp gif

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Listbox mit Nanem Bilddateien füllen jpg bmp gif

Forumthread: Listbox mit Nanem Bilddateien füllen jpg bmp gif

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread