Die Debug.Print<\/b>-Anweisung gibt den zurückgelieferten Wert im Direktfenster des VBA-Editors aus. Wie Sie sehen, verwenden wir hier drei Parameter:<\/p>\n Die InputBox selbst sieht dann wie in Bild 1 aus. Hier gibt es vier Steuerelemente: das Bezeichnungsfeld für den Text aus dem Parameter Prompt<\/b>, das Textfeld zur Eingabe des gesuchten Wertes durch den Benutzer, das gegebenenfalls den Wert aus Default <\/b>anzeigt, sowie die beiden Schaltflächen OK <\/b>und Abbrechen<\/b>.<\/p>\n Bild 1: InputBox unter VBA<\/span><\/b><\/p>\n Wenn der Benutzer die OK<\/b>-Schaltfläche betätigt, soll die Funktion InputBox <\/b>den aktuell im Textfeld befindlichen Text zurückliefern, bei Betätigung der Abbrechen<\/b>-Schaltfläche soll eine leere Zeichenfolge zurückgegeben werden.<\/p>\n Wenn der Benutzer die Eingabetaste drückt, löst er die Funktion der OK<\/b>-Schaltfläche aus, die Escape<\/b>-Taste bewirkt selbiges für die Abbrechen<\/b>-Schaltfläche.<\/p>\n Um ein Projekt mit einem Fenster auszustatten, das als InputBox dient, fügen Sie diesem einfach ein normales Objekt des Typs Fenster (WPF) <\/b>hinzu. Nennen Sie das Fenster im Dialog Neues Element hinzufügen <\/b>schlicht InputBox<\/b>. Das Fenster statten Sie mit den Steuerelementen aus Bild 2 aus (das Bezeichnungsfeld haben wir markiert, damit man es überhaupt erkennt).<\/p>\n Bild 2: Fenster zur Anzeige einer InputBox im Entwurf<\/span><\/b><\/p>\n Der XAML-Code des Fensters sieht wie in Listing 1 aus.<\/p>\n Listing 1: Code des WPF-Fensters, das als InputBox dienen soll<\/span><\/b><\/p>\n Hier stecken einige Besonderheiten: Das Fenster soll zentriert erscheinen, also erhält das Window<\/b>-Element den Wert CenterScreen <\/b>für die Eigenschaft WindowStartupLocation<\/b>.<\/p>\n Die Steuerelemente haben wir in einem Grid arrangiert. In der letzten Zeile des Grids haben wir außerdem ein StackPanel <\/b>mit dem Wert Horizontal <\/b>für das Attribut Orientation <\/b>eingebaut, damit wir darin die Schaltflächen nebeneinander anordnen können. Die Schaltfläche cmdOK <\/b>erhält für die Eigenschaft IsDefault <\/b>den Wert true<\/b>, damit sie beim Betätigen der Eingabetaste ausgelöst wird. cmdAbbrechen <\/b>statten wir mit dem Wert true <\/b>für das Attribut IsCancel <\/b>aus, so löst das Betätigen der Taste Escape <\/b>diese Schaltfläche aus.<\/p>\n Die Code behind-Datei zu unserer InputBox finden Sie in Listing 2. Die Konstruktor-Methode namens InputBox <\/b>erwartet die Übergabe dreier Parameter namens Titel<\/b>, Bezeichnung <\/b>und Standardwert<\/b>. Sie initialisiert das Fenster und trägt dann den Wert des Parameters Bezeichnung <\/b>für das Attribut Content <\/b>des Elements lblBezeichnung <\/b>ein. Der Wert des Parameters Titel <\/b>wird zunächst überprüft. Wenn der Aufruf diesen Parameter nicht enthält, erhält dieser zunächst als Standardwert eine leere Zeichenfolge. Die Methode prüft dann, ob Titel <\/b>leer ist, und ersetzt diesen Wert dann durch den aktuellen Anwendungstitel, der mit System.AppDomain.CurrentDomain.FriendlyName<\/b> ermittelt wird. Danach landet der Inhalt von Titel <\/b>im Attribut Title <\/b>des Window<\/b>-Elements, das mit this <\/b>referenziert wird. Der Wert des Parameters Standardwert <\/b>wird schließlich in die Eigenschaft Text <\/b>des Textfeldes txtEingabe <\/b>eingesetzt.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>\n
![\"InputBox](\"..\/fileadmin\/_temp_\/2016_05\/pic_54_003.png\")
<\/p>\nInputBox als Fenster<\/h2>\n
![\"Fenster](\"..\/fileadmin\/_temp_\/2016_05\/pic_54_001.png\")
<\/p>\n<Window x:Class=\"InputBoxImEigenbau.InputBox\"\r\n xmlns=\"http:\/\/schemas.microsoft.com\/winfx\/2006\/xaml\/presentation\"\r\n xmlns:x=\"http:\/\/schemas.microsoft.com\/winfx\/2006\/xaml\"\r\n xmlns:d=\"http:\/\/schemas.microsoft.com\/expression\/blend\/2008\"\r\n xmlns:mc=\"http:\/\/schemas.openxmlformats.org\/markup-compatibility\/2006\"\r\n xmlns:local=\"clr-namespace:InputBoxImEigenbau\"\r\n mc:Ignorable=\"d\"\r\n Title=\"{Binding Titel}\" Height=\"136\" Width=\"300\" WindowStartupLocation=\"CenterScreen\">\r\n <Grid>\r\n <Grid.ColumnDefinitions>\r\n <ColumnDefinition><\/ColumnDefinition>\r\n <\/Grid.ColumnDefinitions>\r\n <Grid.RowDefinitions>\r\n <RowDefinition Height=\"33\"><\/RowDefinition>\r\n <RowDefinition Height=\"33\"><\/RowDefinition>\r\n <RowDefinition Height=\"33\"><\/RowDefinition>\r\n <\/Grid.RowDefinitions>\r\n <Label x:Name=\"lblBezeichnung\" Grid.Row=\"0\" Margin=\"3\"><\/Label>\r\n <TextBox x:Name=\"txtEingabe\" Grid.Row=\"1\" Margin=\"3\" Height=\"25\"><\/TextBox>\r\n <StackPanel Orientation=\"Horizontal\" Grid.Row=\"2\" HorizontalAlignment=\"Right\">\r\n <Button x:Name=\"btnOK\" Height=\"22\" Padding=\"5,2,5,2\" Margin=\"3\" Content=\"OK\" Click=\"btnOK_Click\" \r\n IsDefault=\"True\"><\/Button>\r\n <Button x:Name=\"btnCancel\" Height=\"22\" Padding=\"5,2,5,2\" Margin=\"3\" Content=\"Abbrechen\" \r\n Click=\"btnCancel_Click\" IsCancel=\"True\"><\/Button>\r\n <\/StackPanel>\r\n <\/Grid>\r\n<\/Window><\/pre>\nCode hinter dem InputBox-Fenster<\/h2>\n
using System.Windows;\r\nnamespace InputBoxImEigenbau {\r\n public partial class InputBox : Window {\r\n string eingabe;\r\n public InputBox(string Bezeichnung, string Titel = \"\", string Standardwert=\"\") {\r\n InitializeComponent();\r\n this.lblBezeichnung.Content = Bezeichnung;\r\n if (Titel==\"\") {\r\n Titel = System.AppDomain.CurrentDomain.FriendlyName;\r\n }\r\n this.Title = Titel;\r\n this.txtEingabe.Text = Standardwert;\r\n this.txtEingabe.SelectAll();\r\n this.txtEingabe.Focus();\r\n }\r\n public string Eingabe\r\n {\r\n set { eingabe = value; }\r\n get { return eingabe; }\r\n }\r\n private void btnCancel_Click(object sender, RoutedEventArgs e) {\r\n eingabe = \"\";\r\n this.Visibility = Visibility.Hidden;\r\n }\r\n private void btnOK_Click(object sender, RoutedEventArgs e) {\r\n eingabe = this.txtEingabe.Text;\r\n this.Visibility = Visibility.Hidden;\r\n }\r\n }\r\n}<\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Visual Basic Entwickler<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 200 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t