Listbox mit Nanem Bilddateien füllen jpg bmp gif

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

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

Beliebteste Forumthreads (12 Monate)

Listbox mit Nanem Bilddateien füllen jpg bmp gif

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Listbox mit Nanem Bilddateien füllen jpg bmp gif

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread