4. Ein- und Ausgaben mit Msgbox

Nutzereingaben und -ausgaben erfolgen über Message-Boxen (Msgbox).Im folgenden werden die verschiedenen Varianten beschrieben.

Message-Boxen für Ausgaben

1. Anzeige eines Banners

Msgbox.Banner("c:\programme\esri\av_gis30\arcview\etc\banner".AsFilename,
              2, "Banner")



2. Einfache Ausgabe

MsgBox.Info("Hallo!", "Info")



3. Ausgabe von Fehlermeldungen

Msgbox.Error("Mit error können Sie Fehlermeldungen ausgeben.",
             "Error")



4. Lange Texte ausgeben

Msgbox.Report("Die Methode Report ermöglicht es, " +
              "einen beliebig langen Text anzuzeigen.", "Report")

Message-Boxen für Eingaben

1. Einfache Eingabe in ein Textfeld

' Eingabe einer Zahl: Msgbox.Input
defaultString = "1.2"
einText = Msgbox.Input ( "Geben Sie einen Text ein:", "Input", defaultString )
Msgbox.Info("Der von Ihnen eingegebene Text lautet: " +
            einText, "Rückgabewert")



2. Mehrfacheingaben in mehrere Textfelder

ListeMitBeschriftungen = {"Vorname:", "Nachname:",
                          "Ort:", "Geburtsdatum" }
ListeMitBisherigenKontaktangaben = {"Peter", "Mustermann",
                                    "Hamburg", "1970/01/01" }
ListeMitAktuellenKontaktangaben = MsgBox.MultiInput("Aktualisieren Sie Ihre " +
                                 "Kontaktangaben in dieser Multiinput-Msgbox:",
                                 "MultiInput", ListeMitBeschriftungen,
                                 ListeMitBisherigenKontaktangaben)
MsgBox.ListAsString(ListeMitAktuellenKontaktangaben,
                    "Das sind Ihre Eingaben:", "Ausgabe")



3. Passwort-Eingabe

Msgbox.Info("Für Passwörter können Sie die eingegebenen " +
            Texte auch maskieren.", "Hinweis")
strPasswort = Msgbox.Password
' Wurde Abbrechen gedrueckt?
If(strPasswort = Nil) Then
   Return Nil
End
Msgbox.Info("Das eingegebene Passwort lautet: " + strPasswort,
            "Rückgabewert")

Message-Boxen für Ja/Nein-Antworten etc.

1. Ja/Nein mit Abbruchmöglichkeit

blnAntwort = Msgbox.YesNoCancel ("Mit YesNoCancel können sie wählen " +
             "zwischen Ja, nein und Abbrechen!", "YesNoCancel",
             defaultIsYes )
Msgbox.Info("Der Rückgabewert für die gedrückte Taste lautet: " +
            blnAntwort.AsString, "Rückgabewert")



2. Ja/Nein-Auswahl ohne Abbruchmöglichkeit

blnAntwort = Msgbox.YesNo ("Abbrechen können Sie bei YesNo nicht!",
                           "YesNo", defaultIsYes )
Msgbox.Info(blnAntwort.AsString, "Rückgabewert")



3. Ja/Nein-Auswahl ohne Titel

blnAntwort = Msgbox.MiniYesNo("MiniYesNo hat keinen Titel",
                               defaultIsYes )
Msgbox.Info("Der Rückgabewert für die gedrückte Taste lautet: " +
            blnAntwort.AsString, "Rückgabewert")



4. Ja/Nein mit der Option Ja für alle

defaultIsYes = True
blnAntwort = Msgbox.AllYesNo("Wollen Sie weitermachen?", "AllYesNo",
                              defaultIsYes )
Msgbox.Info("Der gedrückte Button ergibt den Rückgabewert" ++
            blnAntwort.AsString, "Rückgabewert")
If ((blnAntwort <> Nil) And (blnAntwort = false)) Then
   Msgbox.Info("Das Skript wurde vom Anwender unterbrochen.", "Achtung")
   Return Nil
End



5. Ja/Nein-Auswahl bei längeren Texten

blnAntwort = Msgbox.LongYesNo("Mit Longyesno können Sie längere " +
             "Texte als Frage formulieren." ++
             " Benötigen Sie diese Funktion?",
             "LongYesNo", defaultIsYes )
Msgbox.Info("Der Rückgabewert für die gedrückte Taste lautet " +
            blnAntwort.AsString, "Rückgabewert")



6. Änderungen speichern

blnAntwort = Msgbox.SaveChanges("Wollen Sie wirklich speichern?",
                                 "SaveChanges", defaultIsYes )
Msgbox.Info("Der Rückgabewert für die gedrückte Taste lautet: " +
            blnAntwort.AsString, "Rückgabewert")

Mehrfachauswahl

1. Kombinationsfeld für Objekte

meineDokumentenListe = av.GetProject.GetDocs
meinDokument = Msgbox.Choice(meineDokumentenListe,
                             "Wählen Sie ein Dokument:", "Choice" )
Msgbox.Info("Sie haben folgendes Dokument ausgewählt: " +
            meinDokument.AsString, "Ausgewähltes Dokument")



2. Kombinationsfeld für einfache Datentypen (Number und String)

meineZahlen = {1, 2, 3}
meineLieblingszahl = Msgbox.ChoiceAsString(meineZahlen,
                     "Wählen Sie eine Zahl:", "ChoiceAsString" )
Msgbox.Info("Sie haben die Lieblingszahl " + meineLieblingszahl.AsString,
            "Rückgabewert")



3. Auswahlliste für Objekte

meineDokumentenListe = av.GetProject.GetDocs
meinDokument = Msgbox.List (meineDokumentenListe ,
                            "Wählen Sie ein Dokument aus:", "List" )
Msgbox.Info("Sie haben folgendes Dokument ausgewählt: " +
            meinDokument.AsString, "Rückgabewert")



4. Auswahlliste für einfache Datentypen (Number und String)

meineLieblingszahl = Msgbox.ListAsString (meineZahlen,
                     "Wählen Sie eine Zahl aus:", "ListAsString" )
Msgbox.Info("Sie haben die Lieblingszahl " + meineLieblingszahl.AsString,
            "Rückgabewert")



5. Mehrfachauswahl für Objekte

meineAusgewaehltenDokumente = Msgbox.MultiList(meineDokumentenListe,
                              "Wählen Sie mehrere Dokumente aus:",
                              "MultiList" )
If (meineAusgewaehltenDokumente <> Nil) Then
   Msgbox.Info("Sie haben " + meineAusgewaehltenDokumente.Count.AsString +
               " Dokumente ausgewählt.", "Rückgabewert")
Else
   Return Nil
End



6. Mehrfachauswahl für einfache Datentypen (Number und String)

meineLieblingszahlen = Msgbox.MultiListAsString(meineZahlen,
                       "Wählen Sie mehrere Zahlen aus:",
                       "MultiListAsString" )
If (meineLieblingszahlen <> Nil) Then
   Msgbox.Info("Sie haben " + meineLieblingszahlen.Count.AsString +
               " Dokumente ausgewählt.", "Rückgabewert")
End