Domino 9 und frühere Versionen > ND8: Entwicklung

Edit Modus nur über Button ermöglichen

<< < (2/3) > >>

it898ur:
Man könnte die Abfrage auch über eine globale Script-Variable der Maske steuern - dann spart man sich den Umweg über Felder oder ini-Variablen und auch bei mehreren offenen Dokumenten gibt es keine Probleme.

Gruß

André

Sven Hasselbach:
Alternativ ganz ohne Environment-Variablen mit reinem Öffnen und Schließen des UI Docs per LS-Button


--- Code: ---Dim uiws As New NotesUIWorkspace
Dim uiDoc As NotesUIDocument
Dim doc As NotesDocument

' aktuelles UI Doc holen
Set uiDoc = uiws.CurrentDocument
Set doc = uiDoc.Document

' UI Doc schliessen & Feld löschen
uiDoc.Close
doc.Doppelklick = ""

' UI Doc erneut öffnen
uiws.EditDocument True, doc
Delete uiDoc

' Das X wieder setzen
Set uiDoc = uiws.CurrentDocument
Set doc = uiDoc.Document
doc.Doppelklick = "X"

--- Ende Code ---

snore:
..zu den Fragen:

1) Strg-B, fang ich über Queryopen ab...


Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
   If (Source.EditMode = True)  Then
      Source.EditMode = False
   End If
   If (IsNewDoc = True)  Then
      Source.EditMode = True
   End If
End Sub

..o.K. sieht blöd' aus - funktioniert aber !


2) im Querymodechange, steht der Rest wie bereits gepostet

3) beim Öffnen mehrerer Dokument gibt's keine Probleme (aktuell!)

Gruß
snore

manboo8000:
Hey Snore,

da mich diese Funktion auch interessiert, habe ich mal deine Funktionen eingebastelt, also im Queryopen:

Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
   If (Source.EditMode = True)  Then
      Source.EditMode = False
   End If
   If (IsNewDoc = True)  Then
      Source.EditMode = True
   End If
End Sub

und im Querymodchange

  m1 = session.Getenvironmentstring("SperreDoppelklick")
   Call session.setenvironmentvar("SperreDoppelklick","")
   If m1 <>"1" Then
      Messagebox "Doppelklick wurde deaktivert!" & Chr$ (10) & "Bitte w/ hinterlegten Formeln über den Button bearbeiten....." & Chr$ (10) & Chr$ (10) &_
      "Bei technischen Problemen, wenden Sie sich bitte an die IT-Orga"
      continue = False
   End If
End Sub


Dabei erhalte ich jedoch wenn ich das Dokument bearbeite den Fehler "Variant does not contain an object". Das Dokument wechselt anschließend übrigens trotz Doppelklick immer noch in den Bearbeitungsmodus. Oder habe ich was falsch verstanden?

Thomas Schulte:
Du solltest Session vielleicht auch füllen ....

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete