ImageList-Steuerelement in Userform
20.02.2005 17:22:45
ransi
Hallo
Ich habe ein Problem mit dem "ImageList" Steuerelement.
In einer Userform habe ich eins eingebaut.
nun wollte ich es mit diesem Code füllen:
Sub bilder_rein_in_Uf()
Dim i As Integer
On Error Resume Next
For i = 2 To 31181 'Es gibt 966 gifs im Verzeichniss wo die datei liegt
'durchnummeriert von 2 bis 31181 wobei nicht alle Zahlen vergeben sind
'dateiname ist z.B. 123.gif
UserForm1.ImageList1.ListImages.Add , Key:="ID:=" & i, Picture:=LoadPicture(CStr(i) & ".gif")
Next
MsgBox UserForm1.ImageList1.ListImages.Count
'Die box zeigt den Richtigen Wert.(966)
End Sub
Kontrolliere Ich jetzt Die ImageList ist sie leer. :-((
Sub test()
MsgBox UserForm1.ImageList1.ListImages.Count
'gibt auch 0
End Sub
Füge ich aber eine ImageList in ein tabellenblatt ein und fülle es mit dem gleichen angepassten code
ist alles in ordnung. Die bilder bleiben in der ImageList auch wenn ich die datei schliesse und wieder öffne.
Sub bilder_rein_in_Blatt()
Dim i As Integer
On Error Resume Next
For i = 2 To 31181 'Es gibt 966 gifs
ImageList1.ListImages.Add , Key:="ID:=" & i, Picture:=LoadPicture(CStr(i) & ".gif")
Next
MsgBox ImageList1.ListImages.Count
'gibt 966 was auch richtig ist
End Sub
Sub test()
MsgBox ImageList1.ListImages.Count
'gibt 966 also korrekt
End Sub
nun meine Frage:
Warum nimmt die imagelist in der userform nicht die angebotenen .gifs , bzw. wie
kann ich sie dazu bewegen sie doch anzunehmen ?
danke schon mal ins vorraus
ransi
Code eingefügt mit Syntaxhighlighter 3.0