Domino 9 und frühere Versionen > Entwicklung

Importieren durch "Button"

(1/6) > >>

lainin:
Hallo....

Wie ist es möglich, durch einen Button die Funktion "Importieren" auszuführen?!?

Gruß Lainen

koehlerbv:
Meinst Du @Command ([FileImport]) ?

lainin:
Genau,das meine ich.
TMC hat eine Anleitung  in der Rubrik "Best Parctise" erstellt, nur die funktioniert nicht so ganz.

Der Button ruft zwar die File-Box auf, nur kannn ich leider keine Dateien mit den entsprechenden Endungen auswählen. Anstatt gif, jpg oder bmp wird mit

%§$&
"!//
"§$(/"
0815

angezeigt.


Zitat:
6. Praxis

Hier ein Beispiel-Script, welches für eine Aktion in einer Maske gedacht ist:

Code:Sub Click(Source As Button)
  Dim uiws As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument    
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim doc As NotesDocument
  Dim vFilepath As Variant
  Dim szFilepath As String  
  Dim szEndung As String
 
  Set db = session.CurrentDatabase
  Set uidoc = uiws.CurrentDocument
  Set doc = uidoc.Document
 
  vFilepath = uiws.OpenFileDialog( True, db.Title, "Supported Images|*.cgm;*.jpg;*.bmp;*.gif;*.jpeg", "D:\")
 
 
  If Isempty(vFilepath) Then Exit Sub      ' Script verlassen falls User keine Datei auswählt
 
 
 
  Forall ImageList In vFilepath ' Durch die ausgewählten Dateien loopen
     
      szFilepath = ImageList
     
      'Holt die Dateiendung in den String, dabei mit LowerCase auf Kleinschreibung umgestellt
      szEndung = Lcase$(Right$(szFilepath, 3))
     
      Select Case szEndung
      Case "gif":
        Call uidoc.Import("GIF Image",szFilepath)
      Case "jpg":
        Call uidoc.Import("JPEG Image",szFilepath)
      Case "cgm":
        Call uidoc.Import("CGM Image",szFilepath)      
      Case "peg":
        Call uidoc.Import("JPEG Image",szFilepath)      
      Case "pcx":
        Call uidoc.Import("PCX Image",szFilepath)      
      Case "bmp":
        Call uidoc.Import("BMP Image",szFilepath)            
      End Select
     
  End Forall
 
End Sub

TMC:
Als, ich hab mir das nochmal angesehen.

Es klappt genau so wie beschrieben, es werden im Filerequester alle Bildformate angezeigt die im Script so definiert sind.

Was hier nicht geht, ist eine bestimmte Auswahl (z.B. nur bmp anzeigen) und war auch nicht gewollt (siehe Beschreibung in Best Practices).

Getestet gerade nochmal mit R5.0.11 und 6.5.1.

Etwas unschön ist nur, wenn man die Dateiauswahl aufklappt in R5:


In R6 wird das (vernünftigerweise) gar nicht mehr angeboten.

Welche Version setzt Du ein lainin?

Ich habe das ganze in einer DB zum testen erstellt, siehe Anhang.

Matthias

lainin:
Genau so sieht das aus.     R5.0.10

Die Auswahl der einzelnen Dateitypen ist nicht eindeutig.
Und wenn ich die Auswahl auf "Supported Images" stehen lasse und ein bild einfügen möchte, kommt die Fehlermeldung:

"Document command is not available"

 ???

Navigation

[0] Themen-Index

[#] Nächste Seite