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
