Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: manuel am 17.07.02 - 09:04:58
-
Hallo
Ich bin gerade am erstellen einer neuen Datenbank, bei der u.a. auch eine Personaldatenmaske vorhanden ist. In dieser Maske soll es nun möglich sein auch ein Bild der Person einzufügen. Derzeit habe ich dazu ein RichText-Feld. Um das Bild in das Feld einfügen zu können, muss man es erst in einem beliebigen Bildbearbeitungsprogramm in den Zwischenspeicher holen, und dann in das Feld einfügen.
Gibt's denn nicht eine Möglichkeit, ein Bild aus dem Filesystem heraus zu erstellen? Also der User klickt auf einen Button, ein Dateiauswahldialog erscheint und man wählt sich das Bild aus das eingefügt werden soll.
Ich hab's mal mit folgenden Code probiert:
Dim ws As New NotesUIWorkspace
Dim doc As NotesUIDocument
Dim fpath As Variant
Set doc = ws.CurrentDocument
fpath = ws.openfiledialog(False, "Wählen Sie eine Datei:", , "c:\")
If Not Isempty(fpath) Then
If Not fpath(0) = "" Then
doc.gotofield("Bild")
Call doc.CreateObject("Bild", "", fpath(0))
End If
End If
Beim Versuch nun ein Bild (gif, jpg, bmp) einzufügen, kommt folgende Meldung: "Die Anwendung oder Klasse des Objekt ist nicht verfügbar." Warscheinlich kann ich als OLE-Objekt nur so Sachen wie Worddokumente, Excelsheets und dergleichen erstellen.
Hat jemand von euch nun einen Vorschlag wie ich das machen könnte?
Manuel
-
Guckst du hier
http://www.atnotes.de/index.php?board=6;action=display;threadid=880;start=0#bot
und dann zum Seitenende
;D
-
Jawoll, funzt!! Hab' mir schon fast gedacht von wem die Antwort kommen wird ;D
Schönen Dank eknori!
Nur eins musst du mir erklären. In der Zeile
Dim szFileName As String*256
Was gibt hier die Zahl 256 an. Wird der String auf 256 Zeichen begrenzt?
Manuel
-
Yip
-
eknori,
sorry, aber jetzt hab ich mal wirklich eine saubloede frage:
warum machst du nicht einfach im menu:
create / picture ?
nicht hauen ! nur erklaeren !
gruss,
dani
-
Ganz einfach, weil unsere Fraggles vom Empfang die Bilder in das Orgaverzeichnis einpflegen. Die wollen einfach nicht begreifen, dass man den cursor zunächst in das für das Bild vorgesehene Feld bringen muß, bevor man da was einfügt.
Der Code erledigt diese Aufgabe selbsttätig.
Deshalb ;D ;D
-
das hoert sich doch richtig gut an. ich heb mir das auf jeden fall mal auf. kann ich sicherlich mal gut gebrauchen.
danke fuer die erklaerung. ;D ;D
gruss,
dani
p.s.: hat das gestimmt, dass ich den declare teil in das declare der maske gestellt hab (global) ???
-
Wenn du noch mehrere Schaltflächen in deiner Maske haben willst, die den Dateidialog darstellen ist das richtig. Normalerweise sollte der Teil in das declare des Buttons
-
"document command is not available"
???
nachdem ich das bild ausgewaehlt habe.