Galileo Computing < openbook > Galileo Computing - Professionelle Bücher. Auch für Einsteiger.
Professionelle Bücher. Auch für Einsteiger.

Inhaltsverzeichnis
1 Einführung
2 Grundlagen
3 Fehlerbehandlung
4 Erweiterte Grundlagen
5 Objektorientierte Programmierung
6 Wichtige Klassen in .NET
7 Weitere Elemente eines Windows-Programms
8 Datenbank-Anwendungen mit ADO.NET
9 Internet-Anwendungen mit ASP.NET
10 Zeichnen mit GDI+
11 Beispielprojekte
A Installation und technische Hinweise
B Lösungen der Übungsaufgaben
Stichwort

Download:
- ZIP, ca. 7,8 MB
Buch bestellen
Ihre Meinung?

Spacer
<< zurück
Einstieg in Visual Basic 2010 von Thomas Theis
Inkl. Visual Studio Express Editions
Buch: Einstieg in Visual Basic 2010

Einstieg in Visual Basic 2010
2., akt. und erw. Aufl., Klappbroschur, mit DVD
467 S., 24,90 Euro
Galileo Computing
ISBN 978-3-8362-1541-1
Pfeil 7 Weitere Elemente eines Windows-Programms
Pfeil 7.1 Hauptmenü
Pfeil 7.1.1 Erstellung des Hauptmenüs
Pfeil 7.1.2 Code des Hauptmenüs
Pfeil 7.1.3 Klasse Font
Pfeil 7.1.4 Schriftart
Pfeil 7.1.5 Schriftgröße
Pfeil 7.1.6 Schriftstil
Pfeil 7.2 Kontextmenü
Pfeil 7.2.1 Erstellung des Kontextmenüs
Pfeil 7.2.2 Code des Kontextmenüs
Pfeil 7.3 Symbolleiste
Pfeil 7.3.1 Erstellung der Symbolleiste
Pfeil 7.3.2 Code der Symbolleiste
Pfeil 7.4 Statusleiste
Pfeil 7.4.1 Erstellung der Statusleiste
Pfeil 7.4.2 Code der Statusleiste
Pfeil 7.5 Eingabe-Dialogfeld
Pfeil 7.6 Ausgabe-Dialogfeld
Pfeil 7.7 Standard-Dialogfelder
Pfeil 7.7.1 Datei öffnen
Pfeil 7.7.2 Datei speichern unter
Pfeil 7.7.3 Verzeichnis auswählen
Pfeil 7.7.4 Farbe auswählen
Pfeil 7.7.5 Schrifteigenschaften auswählen
Pfeil 7.8 Steuerelement DataGridView


Galileo Computing - Zum Seitenanfang

7.6 Ausgabe-Dialogfeld topZur vorigen Überschrift

MessageBox

Zur Darstellung einfacher Anzeigen oder Warnungen sowie für Benutzer-Abfragen müssen Sie kein aufwändiges Dialogfeld erzeugen und programmieren. Die Methode Show() der Klasse MessageBox, die wir in ihrer einfachen Version bereits kennengelernt haben, bietet eine Reihe von vorgefertigten Dialogfeldern, mit denen Sie bereits viele alltägliche Aufgaben erledigen können. Ein erstes Beispiel finden Sie im Projekt EingabeAusgabe, siehe Abbildung 7.19.

Private Sub cmdMsgBoxOkOnly_Click(...) Handles ...
    MessageBox.Show("Gelesen? Dann bitte Ok drücken",
        "Ok", MessageBoxButtons.OK)
End Sub

Listing 7.11 Projekt »EingabeAusgabe«, Einfache Ausgabe

Abbildung 7.19 Einfache Ausgabe mit Ok

Zur Erläuterung:

  • Den ersten Parameter kennen wir schon, dabei handelt es sich um die eigentliche Nachricht des Ausgabe-Dialogfelds.
  • Beim zweiten Parameter kann man den Text der Titelzeile des Ausgabe-Dialogfelds angeben.

MessageBoxButtons

  • Beim dritten Parameter kann man auswählen, welcher Button bzw. welche Kombination aus Buttons im Ausgabe-Dialogfeld erscheinen soll. Dabei handelt es sich um eine Konstante aus der Enumeration MessageBoxButtons.

MessageBoxIcon

  • Der vierte Parameter kann zur Auswahl eines Icons dienen, das im Ausgabe-Dialogfeld dargestellt wird und die Textnachricht visuell unterstützt. Dabei handelt es sich um eine Konstante aus der Enumeration MessageBoxIcon.

Button OK DialogResult

  • Falls mehr als ein Button eingeblendet wird, dann sollte der Rückgabewert der Methode Show() untersucht werden. Dieser Rückgabewert ist eine Konstante aus der Enumeration DialogResult.

Abbildung 7.20 zeigt die Ausgabe mit dem Info-Zeichen (ebenfalls im Projekt EingabeAusgabe).

Abbildung 7.20 Ausgabe mit Info-Zeichen

Der zugehörige Code lautet:

Private Sub cmdMsgBoxInformation_Click(...) Handles ...
    MessageBox.Show("Das ist eine Information",
        "Info", MessageBoxButtons.OK,
        MessageBoxIcon.Information)
End Sub

Listing 7.12 Projekt »EingabeAusgabe«, Info-Zeichen

Zur Erläuterung:

Information

  • Zusätzlich zum Button OK wird das Info-Zeichen angezeigt.

Ein Beispiel mit Buttons für Ja und Nein sehen Sie in Abbildung 7.21.

Abbildung 7.21 Zwei Buttons zur Auswahl

Der zugehörige Code lautet:

Private Sub cmdMsgBoxYesNo_Click(...) Handles ...
    Dim dr As DialogResult
    dr = MessageBox.Show(
        "Soll die Datei gesichert werden?",
        "Sicherung", MessageBoxButtons.YesNo,
        MessageBoxIcon.Question)

    If dr = DialogResult.Yes Then
        lblA.Text = "Sichern"
    Else
        lblA.Text = "Nicht sichern"
    End If
End Sub

Listing 7.13 Projekt »EingabeAusgabe«, Ja / Nein

Zur Erläuterung:

Ja, Nein

  • Die beiden Buttons Ja und Nein werden mit dem Fragezeichen verknüpft.
  • Der Benutzer muss die Frage beantworten. Die Antwort wird gespeichert und mithilfe einer If...Else-Verzweigung ausgewertet.
  • Im vorliegenden Programm werden nur zwei unterschiedliche Meldungen im Label ausgegeben. In der Realität würden zwei unterschiedliche Abläufe beginnen.

Nach Betätigung des Buttons Nein sieht es aus wie in Abbildung 7.22.

Ein Beispiel mit Buttons für Ja, Nein und Abbrechen (siehe Abbildung 7.23).

Abbildung 7.22 Antwort nach Button »Nein«

Abbildung 7.23 Drei Buttons zur Auswahl

Der zugehörige Code:

Private Sub cmdMsgBoxYesNoCancel_Click(...) Handles ...
    Dim dr As DialogResult
    dr = MessageBox.Show(
        "Soll die Datei gesichert werden?",
        "Sicherung",
        MessageBoxButtons.YesNoCancel,
        MessageBoxIcon.Question)

    If dr = DialogResult.Yes Then
        lblA.Text = "Sichern"
    ElseIf dr = DialogResult.No Then
        lblA.Text = "Nicht sichern"
    Else
        lblA.Text = "Abbrechen"
    End If
End Sub

Listing 7.14 Projekt »EingabeAusgabe«, Ja / Nein / Abbrechen

Zur Erläuterung:

Ja, Nein, Abbrechen

  • Der Benutzer hat drei Möglichkeiten. Die Antwort wird mithilfe einer verschachtelten If...Else-Verzweigung ausgewertet.

Ein Beispiel mit Buttons für Wiederholen und Abbrechen, sowie dem Zeichen für Kritische Warnung sehen Sie in Abbildung 7.24.

Abbildung 7.24 Kritische Warnung plus zwei Möglichkeiten

Der zugehörige Code lautet:

Private Sub cmdMsgBoxRetryCancel_Click(...) Handles ...
    Dim dr As DialogResult
    dr = MessageBox.Show("Beim " +
        "Sichern der Datei trat ein Fehler auf." &
        vbCrLf &
        "Wollen Sie es noch einmal probieren?" &
        vbCrLf &
        "Wollen Sie den Vorgang abbrechen?",
        "Fehler bei Sicherung",
        MessageBoxButtons.RetryCancel,
        MessageBoxIcon.Error)

    If dr = DialogResult.Retry Then
        lblA.Text = "Noch einmal"
    Else
        lblA.Text = "Abbrechen"
    End If
End Sub

Listing 7.15 Projekt »EingabeAusgabe«, Wiederholen / Abbrechen

Zur Erläuterung:

Fehler

  • Die beiden Buttons Wiederholen und Abbrechen werden mit dem Zeichen für Fehler verknüpft.

Ein Beispiel mit drei Buttons für Abbrechen, Wiederholen und Ignorieren sowie dem Zeichen für Achtung sehen Sie in Abbildung 7.25.

Abbildung 7.25 »Achtung« mit drei Möglichkeiten

Der zugehörige Code lautet:

Private Sub cmdMsgBoxAbortRetryIgnore_Click(...
        ) Handles ...
    Dim dr As DialogResult
    dr = MessageBox.Show("Beim " &
        "Sichern der Datei trat ein Fehler auf." &
        vbCrLf &
        "Wollen Sie den Vorgang abbrechen?" &
        vbCrLf &
        "Wollen Sie es noch einmal probieren?" &
        vbCrLf &
        "Wollen Sie diese Nachricht ignorieren?",
        "Fehler bei Sicherung",
        MessageBoxButtons.AbortRetryIgnore,
        MessageBoxIcon.Warning)

    If dr = DialogResult.Abort Then
        lblA.Text = "Abbrechen"
    ElseIf dr = DialogResult.Retry Then
        lblA.Text = "Noch einmal"
    Else
        lblA.Text = "Ignorieren"
    End If
End Sub

Listing 7.16 Projekt »EingabeAusgabe«, Abbrechen / Wiederholen / Ignorieren

Zur Erläuterung:

Abbrechen, Wiederholen, Ignorieren

  • Die drei Buttons Abbrechen, Wiederholen und Ignorieren werden mit dem Zeichen Warnung verknüpft.


Ihr Kommentar

Wie hat Ihnen das <openbook> gefallen? Wir freuen uns immer über Ihre freundlichen und kritischen Rückmeldungen.






<< zurück
  Zum Katalog
Zum Katalog: Einstieg in Visual Basic 2010

Einstieg in Visual Basic 2010
Jetzt bestellen


 Ihre Meinung?
Wie hat Ihnen das <openbook> gefallen?
Ihre Meinung

 Buchempfehlungen
Zum Katalog: Visual Basic 2010






 Visual Basic 2010


Zum Katalog: Windows Presentation Foundation






 Windows Presentation
 Foundation


Zum Katalog: Silverlight 4






 Silverlight 4


Zum Katalog: Einstieg in Visual C# 2010






 Einstieg in
 Visual C# 2010


Zum Katalog: Visual C# 2010






 Visual C# 2010


Zum Katalog: Einstieg in PHP 5.3 und MySQL 5.4






 Einstieg in PHP 5.3
 und MySQL 5.4


Zum Katalog: PHP 5.3 und MySQL 5.4






 PHP 5.3 und
 MySQL 5.4


 Shopping
Versandkostenfrei bestellen in Deutschland und Österreich
InfoInfo




Copyright © Galileo Press 2010
Für Ihren privaten Gebrauch dürfen Sie die Online-Version natürlich ausdrucken. Ansonsten unterliegt das <openbook> denselben Bestimmungen, wie die gebundene Ausgabe: Das Werk einschließlich aller seiner Teile ist urheberrechtlich geschützt. Alle Rechte vorbehalten einschließlich der Vervielfältigung, Übersetzung, Mikroverfilmung sowie Einspeicherung und Verarbeitung in elektronischen Systemen.


[Galileo Computing]

Galileo Press, Rheinwerkallee 4, 53227 Bonn, Tel.: 0228.42150.0, Fax 0228.42150.77, info@galileo-press.de