Das Notes Forum
Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: Sandra St. am 08.01.09 - 13:44:23
-
Hallo zusammen,
bin neu hier im Forum und muss für Lotus 1-2-3 ein plugin programmieren. Leider sind dafür fast keine Dokumente mehr zu finden. Aber die Skriptsprache ist die gleiche, nämlich LotusScript. Deshalb versuch ichs mal hier.
Und zwar bin ich z.B. gerade dabei, einen Weg zu finden, wie man einen Dialog zum "Datei durchsuchen bzw. Datei speichern" öffnen kann. Dies ist auch als Anhang beigefügt.
Grüsse,
Sandra
-
In Notes kannst gibt's dafür in der Klasse NotesUIWorkspace die Methode SaveFileDialog. Ob es das auch für 1-2-3 gibt kann ich dir nicht sagen.
Axel
-
Hi,
also unter 'http://www.atnotes.de/index.php?topic=19919.0' stand die erläuterung zu diesem Problem, das ich folgendermaßen umgesetzt hab.
Declare Function NEMPutFile Lib "nnotesws" ( wHandle As Integer, Byval szFileName As String, Byval szFilter As String, Byval szTitle As String ) As Integer
Sub Click(Source As Lotuscommandbutton)
Dim szFileName As String*256
Dim szTitle As String
Dim szFilter As String
'Needs to be a NULL before calling the function
szFilename = Chr(0)
szTitle = "Lotus 1-2-3 Datei auswählen."
szFilter = "1-2-3 Arbeitsmappen*.123|All Files|*.*|" 'Use this format for ANY file type
If NEMPutFile( 0, szFileName, szFilter, szTitle) <> 0 Then
' We need to do this because the return is a NULL terminated string.
szFileName = szFileName & |"|
Messagebox szFileName, 64, "File Selected"
End If
End Sub
Die rot markierten Stellen sind die Problemstellen, wo die Keywords von Lotus 1-2-3 rein müssen. Wenn ich doch nur den Ulrich Krause erreichen könnte. Von dem stammt nämlich die Lösung. Scheint jemand von IBM zu sein.
Grüsse,
Sandra
-
Scheint jemand von IBM zu sein.
Nein, der arbeitet nicht bei der IBM.
Schreib ihm doch einfach eine PM.
Oder guckst du unter www.eknori.de (http://www.eknori.de).