Image-Element wird nicht immer aktualisiert...
kle
ich nutze in einer Userform ein Image-Element zur Anzeige von Artikelbildern, welche auf dem Server liegen.
Ein klick darauf, öffnet eine weitere Userform, welche ein Webbrowser-Element enhält, welches die Bilddatei in Groß (ca. 1200x600) anzeigt.
Problem: Nach dem schließen der 2'ten Userform, aktualisiert sich das Bild in der ersten Userform nicht mehr. Der Code wird mit einem Klick auf eine Listbox (Auswahl der Artikelbelege) ausgelöst. Woran kann es liegen ?
Der Code zum Bild laden:
Private Sub Bildladen()
Pfad = TBPfad.Text ' Pfad zum Artikel-Beleg-Bild
On Error Resume Next
If Dir(Pfad, vbDirectory) = "" Or Pfad = "" Then GoTo errorhandler ' Wenn kein Pfad _
vorhanden, bzw. Dateipfad nicht erreichbar
INoBeleg.Visible = False ' Blende NOBeleg (Bild: Kein Artikel-Bild vorhanden) aus
IBeleg.Picture = LoadPicture(Pfad, , , Color) ' Lade das Bild
Exit Sub ' verlasse die Sub
errorhandler:
INoBeleg.Visible = True ' Wenn der Pfad nicht korrekt ist, Image "NoBeleg" zeigen
UFStamm.Repaint ' Userform - Anzeige neu aufbauen
End Sub
Die 2'te Userform mit dem Webbrowser-Element verlasse ich per: Me.hideGruß und Danke
Kay