---

Hallo,

ich möchte gerne bei jedem Öffnen einer .idw deren
DisplayName abfragen, weil dieser die Info enthält,
ob die Zeichnung gesperrt oder Freigegeben ist.

Mit folgendem Code habe ich das im Moment gelöst:
---------------------------------------------------------------------
Public WithEvents oAE As ApplicationEvents
-----------------------
Public Sub AutoOpen_Test()
   
  Set oAE = ThisApplication.ApplicationEvents
 
End Sub
-----------------------
Private Sub oAE_OnActivateDocument(ByVal DocumentObject As Document, ByVal BeforeOrAfter As EventTimingEnum, ByVal Context As NameValueMap, HandlingCode As HandlingCodeEnum)

Dim Z As DrawingDocument                   
Set Z = ThisApplication.ActiveDocument     

If Z.DisplayName = "gesperrt" Then
    MsgBox ("Zeichnung zum Ändern gesperrt !" & Chr(10) &_
            "Drucken im gesperrten Zustand nicht zulässig !!")
End If

End Sub
----------------------------------------------------------------------
Problem Nr.1: Diese Methode funktioniert nur, wenn sich der Code
              im "ThisDocument" des Dokumentprojektes befindet.
              Das bedeutet, ich muß diesen Code in sämtliche
              Zeichnungen kopieren die bereits existieren.(Arbeit!!)
              Gibt es eine Lösung für das gesamte Anwendungsprojekt ?

Problem Nr.2: Das Event "OnActivateDocument" wird 2 mal ausgelöst,
              d.h. ich bekomme zwei Meldungen. Ich möchte aber, wenn
              es geht, nur eine.

Freue mich auf eure Hilfe, Danke.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

1. Vielleicht den Code in Template File kopieren. Ob das bei den bestehenden Zeichnungen hilft weiss ich nicht. Mal testen. Oder aber eine DLL kompilieren die dann auf jeden Fall funktioniert.

2. ByVal BeforeOrAfter As EventTimingEnum gibt an, ob Event zuvor oder danach ausgelöst werden soll. Mit einem einfachen:

Code:

---

If BeforeOrAfter = kAfter Then
    MsgBox "After"
ElseIf BeforeOrAfter = kBefore Then
    MsgBox "Before"
Else
    MsgBox "Abort"
End If

---

kannst du es steuern.

Bis dann...

€dit:

1. Du kannst natürlich auch ein Klassenmodul in dein Projekt einfügen. Dann funktioniert auch Public WithEvents oAE As ApplicationEvents

€dit2: Oder die Suchfunktion
------------------
Grüße daywa1k3r

    

[Diese Nachricht wurde von daywa1k3r am 15. Jun. 2004 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Wenn ich den Code ins Template File kompiere, dann ist er bei
allen neuen Zeichnungen da.

Gibt es vielleicht auch die Möglichkeit, daß wenn ich eine Zeichnung
sperre (der DisplayName wird verändert) automatisch der entsprechende
Code in "ThisDocument" kopiert wird ?
Da gäbe es doch bestimmt einen Weg, oder?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP