So erstellt man einen MessageBoxCreator (Tutorial, Teil 1)

    • VB.NET

      So erstellt man einen MessageBoxCreator (Tutorial, Teil 1)

      Willkommen zu meinem Tutorial "So erstellt man einen MessageBoxCreator".
      Ein MessageBoxCreator ist eigentlich vollkommen überflüssig, aber man kann sich trotzdem mit ein paar Elementen und Begriffen vertraut machen.
      Und ich sage euch: Macht das Tutorial durch, nicht alles einfach kopieren, sonst lernt ihr nichts.

      1. Die Elemente

      Man benötigt:
      - 1x eine Picturebox
      - 4x Radiobuttons
      - 2x Buttons
      - 3x Textbox

      2. Beschriftigung und Namen der Elemente

      Damit der Benutzer sich in diesem Programm auskennt, müssen wir ein paar Objekte beschriften:
      - Die Radiobuttons jeweils mit "Info", "Warnung", "Fehler" und "Frage" (Das sind die Icons für die MessageBox, die zur Auswahl stehen)
      - Die Picturebox benötigt ein Bild einer MessageBox
      - Die zwei Buttons bekommen die Aufschrift "Quelltext aktualisieren" und "Test" (Müsste wohl klar sein)
      - Eine TextBox (die später etwas größere) bekommt den Namen "MessageBox_Text", der Rest behält den vergebenen Namen von Vb2008
      - Nochmal eine Textbox (Multilinie = True)
      - Und nochmal eine TextBox, die den Quelltext enthalten soll. Setzten wir dort die Schriftart auf "Courier New, 12".
      - Die Form bekommt den Namen "MessageBoxCreator by Tobiii"

      3. Position der Objekte

      Siehe Anhang Bild 1. (Muss natürlich nicht so sein)

      4. Funktionalität

      Damit das alles auch funktioniert, müssen wir in die Codeansicht wechseln (Doppelklick auf die Form)

      Nun beginnen wir mit der Programmierung.

      - Doppelklicken Sie auf den Button "Test"
      - Schreiben Sie unter "Public Sub Button1_Click 'usw..." eine If-Anweisung
      - Diese sieht wie folgt aus:

      VB.NET-Quellcode

      1. If RadioButton1.Checked = True Then
      2. Msg(MessageBox_Text.Text, MsgBoxStyle.Information, TextBox1.Text
      3. ElseIf RadioButton1.Checked


      - Das ganze führen Sie weiter, achten Sie aber darauf, dass Sie den MsgStyle. immer nach dem ausgewählten RadioButton anpassen.
      - Noch vor dem "End if" schreiben wir

      VB.NET-Quellcode

      1. Else MsgBox("Bitte ein MessageBoxIcon auswählen", MsgBoxStyle.Exclamation, "Fehler"

      - Das heißt also, wenn kein MessageBoxIcon ausgewählt ist, dann eine Fehlernachricht öffnen.

      Ok. Somit haben wir das Ereigniss von "Test" festgelgt. Der Text von TextBox1 (die Überschrift) wird als Titel in der Test-MessageBox ausgegeben und
      der Text in MessageBox_Text ist der Standard-Text.

      Nun, legen wir die Eigenschaft von "Quelltext aktualisieren" an:

      - Doppelklicken Sie auf den Button.
      - Kopieren Sie ihren If-Anweisungsblock von "Test" heraus
      - Fügen Sie diesen in der Anweisung von "Quelltext aktualisieren" ein.
      - Nun verändern wir den Quelltext:
      Statt "Msg(MessageBox_Text.Text, MsgBoxStyle.Information, TextBox1.Text" schreiben wir

      VB.NET-Quellcode

      1. TextBox2.Text = "MsgBox(" & """" & MessageBox_Text & """" & ", MsgBoxStyle.Information & """" & TextBox1.Text & """" & ")"

      - Diesen Code wieder an die entsprechenden RadioButtons anpassen

      5. Schlusswort

      Nun können Sie das Programm einmal ausprobieren. Wenn Sie alles richtig gemacht haben, müsste es wie in Bild 2 aussehen.

      Ich hoffe, ihnen hat das Tutorial gefallen. Im nächsten Teil (kommt bald) werden wir uns mit der Auswahl der Buttons beschäftigen (wie OK oder OK ABBRECHEN)


      Viel Glück weiterhin mit VisualBasic,

      Gruß
      Tobias Schweiger

      PS: Es könnte sein das der Quelltext fehler enthält. Meldet die dann einfach bitte.
      Bilder
      • Bild1.jpg

        19,16 kB, 304×220, 418 mal angesehen
      • Bild2.jpg

        28,45 kB, 306×219, 435 mal angesehen