Also etwas konkreter:
Ich habe eine Liste (Private m_lstListe List as MeineKlasse), innerhalb einer Klasse (AndereKlasse) wiederrum, die ich in einem Agent ausführe:
Sub Initialize
Dim cMyClass as New AndereKlasse
Call cMyClass.DoSomething()
End Sub
DoSomething() füllt mir meine m_lstListe mit Daten z.B.
Dim cTemp as New MeineKlasse
Set cTemp.DritteKlasse = New DritteKlasse
cTemp.EinfacheProperty = True
'Schleife
Set m_lstListe("KeyX") = cTemp
'Ende Schleife
If ws.DialogBox("(Meine Form)",,,,,,,,,,ganz viele Parameter,,,,tempDocument,,,,,) Then
End If
Ich sortiere/filtere/aggregiere meine Daten also für die DialogBox. Und jetzt möchte ich meine Variable m_lstListe aber in Sub Click eines Buttons in der Form zur Verfügung haben.
Geht das so herum? (Sonst muss ich die Aufbereitung ins Init der Form verschieben oder sowas....)
Beste Grüße
ok, Vorhaben verstanden.
Ich leider nicht :-: :'(
Das Thema hört sich interessant an, aber ich verstehe im Moment nicht, was NICHT geht. So weit bin ich:
Button in Notesmaske:
Sub Initialize
Dim uiws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim res As Variant
Set db = session.Currentdatabase
Set doc = db.Createdocument()
res = Evaluate (|"eins":"zwei":"drei"|,doc)
doc.werte = res
If uiws.Dialogbox("atnotes1", True, True, False, False, False, False, "atnotes", doc, True, False, True) Then
Print "ausgewählt wurde " & doc.ergebnis(0)
End If
End Sub
Dazu eine Teilmaske mit Dialogliste "ergebnis", die die Vorgabewerte aus "werte" zieht.
Ich drücke den Button, die Teilmaske geht auf, aus der Liste wähle ich z.B. "zwei" aus, drücke OK und in der StatusBar meines Notes Clients steht, daß ich "zwei" ausgewählt habe.
@Gutierrez
Kannst Du nicht einfach genauso ein temporäres Dokument erzeugen mit Deiner Schlüsselwortliste und dann den Dialog aufrufen? Wo genau klemmt es?
Hilf mir mal bitte, Dein Problem genauer zu verstehen. Vielleicht fällt mir dazu ja dann was ein...
Verwirrte Grüße,
Th.