Application.EnterScope-Ereignis (Visio)

Wird in die Warteschlange aufgenommen, wenn ein interner Befehl eingeleitet wird oder wenn ein Automatisierungsclient mit der BeginUndoScope-Methode einen Bereich öffnet.

Syntax

Ausdruck. EnterScope (app, nScopeID, bstrDescription)

expression Eine Variable, die ein Application-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
App	Erforderlich	[IVAPPLICATION]	Die Instanz von Microsoft Visio, die den Bereich enthält.
nScopeID	Erforderlich	Long	Eine sprachunabhängige Nummer, die den soeben beendeten Vorgang beschreibt, oder die Bereichs-ID, die von der BeginUndoScope-Methode zurückgegeben wird.
bstrDescription	Erforderlich	String	Eine Textbeschreibung des Vorgangs, die in verschiedenen Sprachversionen variiert. Enthält die Benutzeroberflächen-Beschreibung eines Visio-Vorgangs oder die Beschreibung, die an die BeginUndoScope-Methode übergeben wird.

HinwBemerkungeneise

Der im Fall eines Visio-Vorgangs zurückgegebene nScopeID-Wert entspricht den befehlsbezogenen Konstanten, die mit visCmd beginnen.

Wenn Sie Microsoft Visual Basic oder Visual Basic für Applikationen (VBA) verwenden, beschreibt die Syntax in diesem Thema eine gängige und effiziente Methode zum Verarbeiten von Ereignissen.

Wenn Sie eigene Event-Objekte erstellen möchten, verwenden Sie die Add- oder AddAdvise-Methode .

Verwenden Sie zum Erstellen eines Event-Objekts, das ein Add-On ausführt, die Add-Methode der EventList-Auflistung.

Verwenden Sie zum Erstellen eines Event-Objekts, das eine Benachrichtigung empfängt, die AddAdvise-Methode.

Informationen zum Suchen eines Ereigniscodes für das Ereignis, das Sie erstellen möchten, finden Sie unter Ereigniscodes.

Wenn Sie das Ereignis in einem Programm verarbeiten, das eine Benachrichtigung über eine mithilfe der AddAdvise-Methode erstellte Verbindung empfängt, gehört das EnterScope-Ereignis zu einer Gruppe ausgewählter Ereignisse, die zusätzliche Informationen in der EventInfo-Eigenschaft des Application-Objekts aufzeichnen.

Die EventInfo-Eigenschaft gibt bstrDescription zurück, wie weiter oben beschrieben. Darüber hinaus enthält das varMoreInfo-Argument für VisEventProc eine Zeichenfolge, die wie folgt formatiert ist: [<nScopeID>;<bErrOrCancelled>;<bstrDescription>;<nHwndContext>], wobei nHwndContext das Fensterhandle (HWND) des Fensters ist, das den Kontext für den Befehl darstellt; nHwndContext könnte 0 sein.

bErrOrCancelled ist bei EnterScope immer gleich Null.

Beispiel

Dieses Beispiel zeigt die Verwendung des EnterScope-Ereignisses. Das Beispiel bestimmt, ob sich ein Aufruf einer Prozedur, die das CellChanged-Ereignis behandelt, in einem bestimmten Bereich befindet. Das heißt, ob der Aufruf zwischen den Ereignissen EnterScope und ExitScope für diesen Bereich erfolgt.

Private WithEvents vsoApplication As Visio.Application 
 
Private lngScopeID As Long 
 
Public Sub Scope_Example() 
 
 Dim vsoShape As Visio.Shape 
 
 'Set the module-level application variable to 
 'trap application-level events. 
 Set vsoApplication = Application 
 
 'Begin a scope. 
 lngScopeID = Application.BeginUndoScope("Draw Shapes") 
 
 'Draw three shapes. 
 Set vsoShape = ActivePage.DrawRectangle(1, 2, 2, 1) 
 ActivePage.DrawOval 3, 4, 4, 3 
 ActivePage.DrawLine 4, 5, 5, 4 
 
 'Change a cell (to trigger a CellChanged event). 
 vsoShape.Cells("Width").Formula = 5 
 
 'End and commit this scope. 
 Application.EndUndoScope lngScopeID, True 
 
End Sub 
 
Private Sub vsoApplication_CellChanged(ByVal Cell As IVCell) 
 
 'Check to see if this cell change is the result of something 
 'happening within the scope. 
 If vsoApplication.IsInScope(lngScopeID) Then 
 Debug.Print Cell.Name & " changed in scope "; lngScopeID 
 End If 
 
End Sub 
 
Private Sub vsoApplication_EnterScope(ByVal app As IVApplication, _ 
 ByVal nScopeID As Long, _ 
 ByVal bstrDescription As String) 
 
 If vsoApplication.CurrentScope = lngScopeID Then 
 Debug.Print "Entering my scope " & nScopeID 
 Else 
 Debug.Print "Enter Scope " & bstrDescription & "(" & nScopeID & ")" 
 End If 
 
End Sub 
 
Private Sub vsoApplication_ExitScope(ByVal app As IVApplication, _ 
 ByVal nScopeID As Long, _ 
 ByVal bstrDescription As String, _ 
 ByVal bErrOrCancelled As Boolean) 
 
 If vsoApplication.CurrentScope = lngScopeID Then 
 Debug.Print "Exiting my scope " & nScopeID 
 Else 
 Debug.Print "Exit Scope " & bstrDescription & "(" & nScopeID & ")" 
 End If 
 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.