CustomDialog um HierKlicken Blöcke zu füllen
Dieses ist ein Beispiel für die Anwendung eines CustomDialog zur Eingabe von Text in HierKlicken Blöcke. Diesen Text mit den Scripten und dem Dialogfenster können sie hier herunterladen: dialog_customdialog.zip (© Copyright 2001 by Rainer Schmidt).
Ich habe drei HierKlicken Blöcke erstellt, ClickHere1, ClickHere2, ClickHere3. Das Dialog Fenster enthält entsprechend drei Texteingabefelder, eine 'OK'-Schaltfläche und eine 'Cancel'-Schaltfläche (Die Schaltflächen werden vom Dialogeditor automatisch erstellt).
ClickHere Block 1 : [Zum Eingeben des Texts hier klicken ]
ClickHere Block 2 : [Here2]
ClickHere Block 3 : [Click3]
Das Dialogfenster können Sie im oben erwähnten Beispiel 'bewundern', sicherlich kann man es optisch noch 'etwas' verfeinern.
Hier nun die Erklärungen zu den einzelnen Scripten:
Im Scipt 'Initialize' des Object '!Document' stehen die Zeilen:
Sub Initialize
'Öffnen des Dialog-Fensters 'dlgClickHeres'
DlgClickHeres.show
End Sub
Deshalb wird der Dialog 'dlgClickHere' gleich beim Öffnen des Dokuments aufgerufen.
Im Object 'dlgClickHeres' ist dem Object 'cmdOk' folgende Click-Ereignisprozedur zugeordnet:
Sub Click(Source As Lotuscommandbutton)
'Die Werte der Textfelder globalen Variablen zuweisen
ClickHere1 = dlgClickHeres.txtClickHere1.Text
ClickHere2 = dlgClickHeres.txtClickHere2.Text
ClickHere3 = dlgClickHeres.txtClickHere3.Text
'Den möglicherweise vorhandenen Inhalt der ClickHeres löschen
.Division.Foundry.ClickHeres("ClickHere1").DeleteContents
.Division.Foundry.ClickHeres("ClickHere2").DeleteContents
.Division.Foundry.ClickHeres("ClickHere3").DeleteContents
'Die globalen Variablen ClickHere1-3 in die ClickHeres einsetzen
.Division.Foundry.ClickHeres("ClickHere1").InsertText ClickHere1
.Division.Foundry.ClickHeres("ClickHere2").InsertText ClickHere2
.Division.Foundry.ClickHeres("ClickHere3").InsertText ClickHere3
'Cursor nach setzen der Werte in die HierKlicken Blöcke an den Dokumentanfang setzen
.Type "[CtrlHome]"
'Dialogfenster nach drücken der 'Ok'-Schaltfläche schließen
dlgClickHeres.Close
End Sub
Und dem Object 'cmdCancel' ist folgende Click-Ereignisprozedur zugeordnet:
Sub Click(Source As Lotuscommandbutton)
'Dialogfenster nach drücken der
'Cancel'-Schaltfläche schließen
dlgClickHeres.Close
End Sub
Mehr ist nicht nötig um mit einem Dialogfenster die Werte für die HierKlicken Blöcke vorher abzufragen und dann mit dem fertig ausgefüllten Dokument weiter zu arbeiten. Viel Spaß damit.
Über diesen Artikel | Artikelbewertung | |||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Stand: 07.12.2002 Autor(en): Rainer Schmidt |
|