Gruppe
Grafik
Problem
Wie kann ich Bilder eines Verzeichnisses in einem UserFormDropDown-Feld auflisten und nach Auswahl in der UserForm anzeigen lassen. Die Bildgröße soll automatisch an die UserForm angepaßt werden.
ClassModule: frmBilderZeigen
Private Sub cbbBilder_Change()
imgBild.Picture = LoadPicture(cbobilder.Value)
End Sub
Private Sub cmdWeiter_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim iCounter As Integer
Dim sPath As String
sPath = Range("B1").Value
With Application.FileSearch
.LookIn = Range("B1").Value
.Filename = "*.gif"
.Execute
For iCounter = 1 To .FoundFiles.Count
cbobilder.AddItem .FoundFiles(iCounter)
Next iCounter
End With
If cbobilder.ListCount > 0 Then
cbobilder.ListIndex = 0
End If
End Sub
StandardModule: basMain
Sub CallForm()
frmBilderZeigen.Show
End Sub