Domino 9 und frühere Versionen > ND6: Entwicklung

Public is not allowed in this module

<< < (2/2)

Sabine:
Danke für den Hinweis mit den Konstanten, habe ich nun auch verstanden... dankeschön *freu* Es klappt auch!

Warum kann sollte das Resultat nicht ausgewertet werden?

ascabg:
Ich habe mir jetzt nochmals die Anforderung an Dein Script angesehen.

Dabei habe ich bemerkt, dass Du eine bereits vorhandene Notes-Funktionalitaet nachbilden moechtest.

==> Wieso?

Anderenfalls koennte Dir der folgende kleine Code ein wenig weiterhelfen:

zusaetzlich zu den beiden Konstanten noch die folgende Konstanten definieren.
Const ID_YES = 6


If Msgbox("Wollen Sie das Dokument ohne zu speichern schliessen?", MB_ICONQUESTION + MB_YESNO, "Dokument schliessen") = IDYES Then
  'hier den Code, wenn Dokument ohne Speichern geschlossen wird
Else
  'hier den Code fuer das Speichern
End If

Andreas

Sabine:
Ich habe das Problem nun so gelöst... danke für Eure Hilfe hat mir sehr geholfen :-)


--- Code: ---Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIdocument
Dim boxType As Long
Dim answer As Integer
Const MB_YESNO = 4
Const MB_ICONQUESTION = 32

Set uidoc = ws.CurrentDocument

If   uidoc.EditMode = True Then

boxType& = MB_YESNO + MB_ICONQUESTION
answer% = Messagebox("Wollen Sie das Dokument ohne zu speichern schließen?", boxType&, _
"Schließen?")

If answer%= 6 Then 'ja
Call uidoc.Close
Else 'nein
Exit Sub
End If
Else
Call uidoc.Close
Exit Sub
End If
--- Ende Code ---

Gregory.Engels:
und nun, nach Jahren (*grins*) mal ne richtige Erklärung, die nur auf das ursprüngliche Problem eingeht:

die Zeile "%INCLUDE "LSCONST.LSS" gehört in den (Declarations) Abschnitt des Codes, allerdings nicht in das der Schaltfläche (was die Fehlermelung verursacht, die der OP hatte), sondern in DAS DER MASKE unter (Globals). Da gibt es ebenfalls ein (Declarations) Abschnitt.

P.S: normalerweise würde ich das nicht schreiben, aber dank Randy's Comic "Wisdom of the Ancient" http://xkcd.com/979/ habe ich es mal getan ;-)

Navigation

[0] Themen-Index

[*] Vorherige Sete