Thema Datum  Von Nutzer Rating
Antwort
15.05.2014 14:44:32 Marco C. B.
NotSolved
Blau Bilder aus einem Ordner in einem Userform anzeigen
15.05.2014 15:21:44 Gast90507
NotSolved
15.05.2014 15:50:43 Marco C. B.
NotSolved
15.05.2014 16:00:53 Gast64754
NotSolved
15.05.2014 19:24:56 Marco C. B.
Solved
17.05.2014 21:33:49 Marco C. B.
Solved

Ansicht des Beitrags:
Von:
Gast90507
Datum:
15.05.2014 15:21:44
Views:
854
Rating: Antwort:
  Ja
Thema:
Bilder aus einem Ordner in einem Userform anzeigen

In einem Userform bestehend aus einer Multipage mit mehrern Tabs sollen auf einem der Tabs alle Bilder angezeigt werden, die sich in einem bestimmten Ordner befinden. Die benötigten Bilder sollen ausgewählt werden können.

Verstehe ich folgendermaßen (allgemeines Beispiel):

Option Explicit

Private Sub ListBox1_Change()
  If ListBox1.ListIndex < 0 Then Exit Sub
  Call MsgBox(ListBox1.List(ListBox1.ListIndex, 1))
End Sub

Private Sub UserForm_Initialize()
 
  With ListBox1
    .ColumnCount = 1
    .ColumnHeads = False
    .ListStyle = fmListStyleOption
    .MultiSelect = fmMultiSelectMulti
  End With
 
  Call FillListBox(ListBox1, "X:\Images\")
 
End Sub


Private Sub FillListBox(ListBox As MSForms.ListBox, ByVal ImagePath As String)
 
  If Right$(ImagePath, 1) <> "\" _
    Then ImagePath = ImagePath & "\"
 
  Call ListBox.Clear
 
  Dim strFile As String
  Dim strFileExtension As String
 
  strFile = Dir$(ImagePath) 'erste Datei
  Do Until strFile = ""
    
    If InStrRev(strFile, ".") > 0 Then
      'Dateiendung extrahieren
      strFileExtension = Right$(strFile, Len(strFile) - InStrRev(strFile, "."))
    Else
      strFileExtension = ""
    End If
    
    Select Case LCase$(strFileExtension)
      Case "bmp", "jpg", "png" '< erlaubte Dateiendungen
        Call ListBox.AddItem(strFile)
        'schreibe vollständigen Dateipfad in die zweite Spalte
        ListBox.List(ListBox.ListCount - 1, 1) = ImagePath & strFile
      Case Else
        'alles andere
    End Select
    
    strFile = Dir$() 'nächste Datei
  Loop
 
End Sub

Ob ein Element (Item) ausgewählt wurde, kann man mit

ListBox1.Selected(0) 'erstes Element ausgewählt worden?
ListBox1.Selected(1) 'zweites Element ausgewählt worden?
'...
ListBox1.Selected(ListBox1.ListCount - 1) 'letztes Element ausgewählt worden?

abfragen.

Beim Einsetzen der Daten aus dem Userform in eine Datei sollen die ausgewählten Bilder mit eingefügt werden.

Verstehe nicht was damit gemeint ist.


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
15.05.2014 14:44:32 Marco C. B.
NotSolved
Blau Bilder aus einem Ordner in einem Userform anzeigen
15.05.2014 15:21:44 Gast90507
NotSolved
15.05.2014 15:50:43 Marco C. B.
NotSolved
15.05.2014 16:00:53 Gast64754
NotSolved
15.05.2014 19:24:56 Marco C. B.
Solved
17.05.2014 21:33:49 Marco C. B.
Solved