Bild in ein Dokument per LS einfügen und anzeigen lassen

[Katja_S]

Hallo zusammen,

habe jetzt ein neues Problem...;-)...Ich möchte ein Bild per LS in ein Dokument einfügen (RichText-Feld) und dort soll es dann direkt angezeigt werden. Dazu nutze ich bisher

Code

Set object = ritem.EmbedObject(EMBED_OBJECT,"","test.jpg")

aber dabei muss ich erst auf das Objekt doppelklicken und erst dann wird das Bild in dem dafür vorgesehenen Programm geöffnet. Wie krieg ich es hin, dass das Bild aber sofort angezeigt wird?

Danke und Gruß
Katja

[robertpp]

Hast du dir diese Function schon mal angesehen:

'Declaration

Declare Function NEMGetFile Lib "nnotesws" ( wHandle As Integer, Byval szFileName As String, Byval szFilter As String, Byval szTitle As String ) As Integer


Sub Click(Source As Button)
    'Declare variables...
     Dim workspace As New NotesUIWorkspace
     Dim uidoc As NotesUIDocument
     Dim szFileName As String*256
     Dim szTitle As String
     Dim szFilter As String
     
     Dim szSelectedFile As String
     
'Set values...
     
     szFilename = Chr(0)
     szTitle = "Open File"
     szFilter = "All Files |*.*|JEPG|*.jpg|GIF|*.gif|" 
     If NEMGetFile( 0, szFileName, szFilter, szTitle) <> 0 Then
           
           szSelectedFile = szFileName
           
           Set uidoc = workspace.CurrentDocument
           Call uidoc.GotoField( "Picture" )
           Call uidoc.Import("JPEG Image",szSelectedFile)
           
     End If
End Sub

Dann ist das Bild gleich sichtbar.

[Katja_S]

An die Import-Funktion hab ich auch schon gedacht, aber es dürfen keine UI-Klassen verwendet werden. Gibts noch andere Möglichkeiten?

[Thomas Schulte]

In den Best Practices gibt es dazu einen kompletten Artikel