OpenOffice.info

chemnitzer hat geschrieben:Hat jemand einen Tip, wie ich das Bild neu anzeigen lassen kann.

Funktioniert bei mir automatisch, wenn ich die ImageURL (per Schaltfläche) wechsle.


Allerdings setze ich diese auch in der URL-Notation,
also nicht: d:\pfad\bild.jpg,
sondern mit ConvertToURL( "/zentrale/testdata/image1.jpg" )

War es das schon?


Ansonsten ggfs. oForm.reload()

Hallo
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