Hallo zusammen
Ich habe folgendes Problem:
Gemäss dem Vortrag von Bernd Hort im EntwicklerCamp 2006 hab ich eine Klasse erstellt für meine Ansichten. Diese Klasse instanziere ich beim QueryOpen Event in einer Ansicht. In meiner Klasse möchte ich nun alles View-spezifische programmieren. So sieht die Klasse aus:
Public Class ProUIView As ProUIMultiLanguage
Public Sub new (Source As NotesUIView, Continue As Variant), ProUIMultiLanguage()
'Define the Events
Dim sAlias As String
sAlias=Source.View.Aliases(0)
If (sAlias="$L-KeywordOwnerOf") Or (sAlias="$L-KeywordOwner") Or (sAlias="$L-Keyword") Or (sAlias="$L-KeywordObject") Or (sAlias="$L-KeywordLanguage") Or (sAlias="$L-Translation") Then
On Event QueryOpenDocument From Source Call queryOpenDocumentNotAllowed
End If
End Sub
und der Sub:
Public Sub queryOpenDocumentNotAllowed(Source As Notesuiview, Continue As Variant)
Continue=False
End Sub
Im QueryOpen Event der Ansicht mache ich nun:
Set pView = New ProUIView (Source, Continue)
Nun das Problem: Wenn ich debugge, funktioniert das Ganze wunderbar und der queryOpenDocumentNotAllowed wird aufgerufen. Sobald ich den Debugger ausstelle wird es nicht mehr aufgerufen, sprich das Forumlar wird geöffnet.
:-?
Ich habs auf Notes 6.5 und Notes 7 ausprobiert. Bei beiden derselbe Effekt.
Gruss
Patrick