Probleme mit Image
Sophie
habe leider im Archiv nichts passendes dazu gefunden.
Habe eine Userform in der ich 6 Command Button plaziert habe. Diese habe ich mit einem jpg - Bild versehen.
Funktioniert eigentlich sehr gut, nur bekomme ich es nicht gebacken das Bild detailgetreu (werden verzerrt, länge zur Breite passt hier nicht) einzublenden. Nun habe ich mir gedacht ich verwende statt den Button Image, hier werden die Bilder detailgetreu eingeblendet, allerdings sind die Ladezeiten hierfür enorm lang, ca. 4 Sekunden. Bei den Command Button dauert es nicht einmal eine Sekunde.
Hier mein Programmcode dazu: (nicht überall sind Bilder vorhanden, deshalb prüfe ich dieses ab)
(Per Klick wird dann eine Ereignis ausgelöst. Deshalb deaktiviere ich diejenigen die kein Bild bekommen)
If Dir(Pfad & BauGrup & "Bild1.jpg") "" Then
Me.Image1.Enabled = True
Bearbeitungsmaske.Image1.Picture = _
LoadPicture(Pfad & BauGrup & "Bild1.jpg")
Me.Repaint
End If
If Dir(Pfad & BauGrup & "Bild2.jpg") "" Then
Me.Image2.Enabled = True
...usw
Vielen Dank für Eure Hilfe.
Gruß
Sophie