Das Notes Forum

Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: Iron am 23.03.10 - 15:20:37

Titel: Einbinden von Grafiken im Pop-Up
Beitrag von: Iron am 23.03.10 - 15:20:37

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

Titel: Re: Einbinden von Grafiken im Pop-Up
Beitrag von: Dubidu am 23.03.10 - 17:26:02

Wieso bettest du das Bild nicht einfach statisch ein?

L. G.
Giordano

Titel: Re: Einbinden von Grafiken im Pop-Up
Beitrag von: Iron am 24.03.10 - 13:57:41

Statisch? Wie meinst du das?

Titel: Re: Einbinden von Grafiken im Pop-Up
Beitrag von: oxyd21 am 24.03.10 - 14:47:58

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

Titel: Re: Einbinden von Grafiken im Pop-Up
Beitrag von: Iron am 25.03.10 - 11:51:53

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

Titel: Re: Einbinden von Grafiken im Pop-Up
Beitrag von: oxyd21 am 25.03.10 - 11:58:08

Was sagt der Debugger bei deiner Lösung?

Titel: Re: Einbinden von Grafiken im Pop-Up
Beitrag von: oxyd21 am 25.03.10 - 13:13:34

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

Ein bissle mehr Code wäre hilfreich.

Titel: Re: Einbinden von Grafiken im Pop-Up
Beitrag von: Iron am 29.03.10 - 15:46:32

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

Titel: Re: Einbinden von Grafiken im Pop-Up
Beitrag von: Iron am 07.04.10 - 10:43:27

Hallo oxyd21?

Noch da?

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

Iron

Titel: Re: Einbinden von Grafiken im Pop-Up
Beitrag von: oxyd21 am 07.04.10 - 13:54:03

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.

Titel: Re: Einbinden von Grafiken im Pop-Up
Beitrag von: Axel am 07.04.10 - 14:29:56

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

Titel: Re: Einbinden von Grafiken im Pop-Up
Beitrag von: Iron am 09.04.10 - 12:06:40

SUPER
Das funktioniert.

DANKE SCHÖN!!!!!!! 

Iron