Einbinden von Grafiken im Pop-Up

[Iron]

Hallo zusammen,

ich möchte ein Pop-Up machen, dass dann eine Grafik "einbettet".
Das soll so aussehen, dass man in einem Dokument eine Schaltfläche hat. Man klickt drauf, es geht ein Pop-Up auf (mit Username und sowas). Dabei habe ich dann versucht mit diese Code das zu machen:


Sub Postopen(Source As Notesuidocument)
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   
   Set uidoc = workspace.CurrentDocument
   uidoc.EditMode = True
   Call uidoc.GotoField("Picture")
   
   Call uidoc.Import("GIF Image", "c:\\test.gif")
End Sub

Starte ich das diese Pop-Up Maske einfach so, funktioniert es und das Bild wird importiert.
Mach ich das über die Schaltfläche kommt scripttechnisch eine Fehlermeldung durch den Import:
"Dokumentenbefehl nicht verfügbar."
Dann öffnet sich das Pop-Up doch. Text wird befüllt (sind @Functions). Aber das Bild wird nicht geholt.

Wo hab ich denn da den Denkfehler? Geht das grundsätzlich ganz anders?

Gruß
Iron

[Dubidu]

Wieso bettest du das Bild nicht einfach statisch ein?

L. G.
Giordano

[Iron]

Statisch? Wie meinst du das?

[oxyd21]

- du erstellst ne Subform/Form
- legst auf dieses dein Bildchen
- öffnest ne Dialogbox und gibst dieser den Namen der Form als Parameter mit

[Iron]

Irgendwie versteh ich das noch nicht, was ihr mir das vorschlagen möchtet.

Ich soll eine Form erstellen, da das Bild reinladen und speichern.
Dann die Form als Pop-Up aufrufen?

Ich möchte allerdings das Bild nicht abspeichern. Das sind Fotos von Mitarbeitern, die auf ein Netzlaufwerk gespeichert sind.
Es soll für das Pop-Up "frisch" das aktuelle Bild von da geholt werden.

Gruß
Iron

[oxyd21]

Was sagt der Debugger bei deiner Lösung?

[oxyd21]

Habs mal ausprobiert. Der Code funktioniert in Postopen und als Button.

Ein bissle mehr Code wäre hilfreich.

[Iron]

Irgendwie kann ich da nicht folgen.

Mein Code steht oben, Fehlermeldung auch.
LS-Debugger geht irgendwie nicht durch das Pop-Up.

Ich habe einen Button mit diesen Code:
@Command([EditDocument]; "1");
@DialogBox( "(InfoCard)" ; [AutoHorzFit] : [AutoVertFit] : [NoCancel] : [NoNewFields] : [NoFieldUpdate] : [SizeToTable] :  [OkCancelAtBottom] ; "Info Card" )

Das Bild öffnet dann die Maske.
In der Maske (InfoCard) ist dann das Feld "Picture" (ein Richtext-Feld). Da soll das Bild reingeladen werden, was auf einen allgemein verfügbaren Netzlaufwerk liegt. Für Testzwecke habe ich C: genommen.

Zu deinem Wunsch mit mehr Code.
Das ist der gesamte Code. Mehr hab ich da nicht gemacht.
Es öffnet sich das Pop-Up mit nach der Meldung. Abbruch ist wohl bei dem Import (mit Msgbox rausgefunden).

Warum funktioniert das bei dir??? Wie?

Iron

[Iron]

Hallo oxyd21?

Noch da?

Als Code hab ich doch nur das bischen LotusScript...

Iron

[oxyd21]

Also bei mir geht's...

Eine Maske mit nem RT-Feld Picture und das im Postopen:

Code

Sub Postopen(Source As Notesuidocument)
	source.EditMode = True
	Call source.GotoField("Picture")
	Call source.Import("GIF Image", "c:\\Temp\\test.gif")
End Sub

Ein Button mit folgendem Code ruft die Dialogbox auf (123 ist der Name bei mir):

Code

@DialogBox( "123" ; [AutoHorzFit] : [AutoVertFit] : [NoCancel] : [NoNewFields] : [NoFieldUpdate] : [SizeToTable] :  [OkCancelAtBottom] ; "123" )

Die restlichen Sachen müsstest du dir halt anpassen.

[Axel]

Ich hab's auf die Schnelle mal getestet.

Mit dem Code von oxyd21 funktioniert's einwandfrei.

Mit diesem Code bekomme ich auch die besagte Fehlermeldung.

Code

Sub Postopen(Source As Notesuidocument)
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   
   Set uidoc = workspace.CurrentDocument
   uidoc.EditMode = True
   Call uidoc.GotoField("Picture")
   
   Call uidoc.Import("GIF Image", "c:\\test.gif")
End Sub

@Iron
Hast du oxyd21's code schon mal getestet?

Axel

[Iron]

SUPER
Das funktioniert.

DANKE SCHÖN!!!!!!! 

Iron