|
Hallo Gemeinde,
ich habe ein komisches Verhalten.
Ich befülle eine Picturebox mit Links aus einer Tabelle:
Function ZeigeDatensatz(ByVal datensatz As Long)
'Zeigt einen Datensatz in der Form an
datensatz = datensatz + g_startzeileDatensatz - 1
tb_nummer.Text = Worksheets("Datenbank").Cells(datensatz, 2).Value
tb_name.Text = Worksheets("Datenbank").Cells(datensatz, 3).Value
ib_bild.Picture = Nothing
On Error GoTo eh
ib_bild.Picture = LoadPicture(Worksheets("Datenbank").Cells(datensatz, 4).Value)
Exit Function
eh:
MsgBox "Bildlink beschädigt oder nicht vorhanden"
End Function
und kann mit einem Klick auf das Bild die Datei aufrufen lassen:
Private Sub ib_bild_Click()
Dim a As Double
a = g_datensatzAuswahl
a = a + g_startzeileDatensatz - 1
On Error GoTo eh
If Worksheets("Datenbank").Cells(a, 4).Value <> "" Then
ThisWorkbook.FollowHyperlink Worksheets("Datenbank").Cells(a, 4).Value
Else
End If
Exit Sub
eh:
MsgBox "Bildaufruf nicht möglich"
End Sub
Es ergibt sich allerdings folgendes Verhalten.
Ich kann meine Datensätze wunderbar durchschalten und die Bilder passen sich in der Picture Box immer an.
Sobald ich allerdings einmal die Picture Box anklicke und damit die Datei öffne, kann ich das angezeigte Bild der Picture Box nicht mehr updaten.
Die Picture Box reagiert dann gar nicht mehr...
|