Menü

Dialog: Report.GetOptionsDlg (iScript)

Zurück | Ebene zurück

Diese Methode hat noch einen vorläufigen Status und dienst nur dem Evaluierungszweck.. Änderungen sowohl an den Methoden-Parametern, als auch an den Eigenschaften und Methoden der Verschiedenen Dialogklassen sind noch möglich.  Die Freigabe dieser Funktion ist für EULANDA Version 3.0 geplant.

Dieser Dialog ist identisch mit dem Dialogfenster, welches im Berichtswesen über die Funktion GetOptionsDlg aufgerufen wird. Die Anzahl der möglichen Optionen ist auf sechs beschränkt. werden mehr als sechs Optionen benötigt, so verwendet Sie die MultiSelect-Dialogklasse.

Methoden

  • function Execute: Boolean - Anzeige des Dialogfenster

Eigenschaften

  • property Info: string angezeigter Informationstext, der im oberen Teil des Fensters angezeigt wird - auch mehrzeilig
  • property Caption: string - Fenstertitel
  • property Label1: string - Beschreibung des ersten Auswahlelements
  • property Value1: Boolean - Schalterzustand des ersten Auswahlelements
  • property Label2 bis Label6 - weitere Auswahlelemente
  • property Value2 bis Value6 - weitere Auswahlelemente

Beispiele

A. Ein "Öffnen" Dialog

Das nachfolgende Beispiel zeigt eine Auswahl an Pizza-Belegen an. Die gemachten Angaben werden am Schluss als Messagebox angezeigt. Da dieses Beispielskript keinen Datenbezu enthält kann es an jeder Stelle im Hauptfenster im iScript-Editor ausgeführt werdem (STRG+UMSCH+F6).

.

VBScript

option explicit
dim s
With Client.CreateDialog("Report.GetOptionsDlg")
.Caption = "Pizza-Zusammenstellung"
.Info = "Bitte wählen Sie die Pizzabelege aus"
.Value1 = True
.Label1 = "Mozarella (ohne Aufpreis)"
.Label2 = "Champignons"
.Label3 = "Schinken"
.Label4 = "Sardellen"

If .Execute Then
s = ""
if .Value1 then s = s & .Label1 & ", "
if .Value2 then s = s & .Label2 & ", "
if .Value3 then s = s & .Label3 & ", "
if .Value4 then s = s & .Label4 & ", "

if s = "" Then s = "keinen Extrabelag" else s = Left(s, Len(s)-2)

MsgBox "Sie wählten " & vbCrLf & s
Else
MsgBox "Die Eingabe wurde abgebrochen"
End If

End With