ich bin neu hier und habe ein kleines Problem: In einer MySql-DB stehen Pfade und Bildname drinn. Im Formular gibt einen Button "kleines Bild zeigen". In dem Makro wird der Pfad mit Bildname zusammen gebaut und der Kontrollfeld darüber "bildthumb" in der Eigenschaft Grafik zugewiesen. Wie kann ich ein "Refresh" der Anzeige auslösen.
Hier der Makroteil:
Sub zeige_kleinesBild()
Dim oForm as object
Dim oGrafik as object
Dim oCtrl1 as object
Dim oCtrl2 as object
Dim oCtrl3 as object
Dim oCtrl4 as object
Dim oBildGrid as object
Dim oTabelleView as Object
Dim oNavi as object
dim iNum as double
oForm = ThisComponent.drawpage.forms("bilder1")
' Textfelder aus der Tabelle
oCtrl1 = oForm.getByName("Bildpfad")
oCtrl2 = oForm.getByName("Bildname")
oCtrl3 = oForm.getByName("BildURL")
oCtrl4 = oForm.getByName("thumbspfad")
oBildGrid = oForm.getByName("Bilder1_Grid")
' oCtrl3.text = "file:\\SERVER\bilder\" & oCtrl1.text & "\" & oCtrl4.text & "\" & oCtrl2.text
' oCtrl3.text = "\\SERVER\bilder\" & oCtrl1.text & "\" & oCtrl4.text & "\" & oCtrl2.text
oCtrl3.text = "D:\bilder\" & oCtrl1.text & "\" & oCtrl4.text & "\" & oCtrl2.text
oGrafik = oForm.getbyName("bildthumb")
oGrafik.ImageURL = ""
oGrafik.ImageURL = oCtrl3.text
' oGrafik.redraw dieses gibt es nicht; aber hier soll die Grafik dann auch gezeigt werden
End Sub
Hat jemand einen Tip, wie ich das Bild neu anzeigen lassen kann. Schonmal im voraus vielen Dank.
MfG
Chemnitzer
- Formularbild
- webSQL-.jpg (64.88 KiB) 323 mal betrachtet
