Tipp 0090 Eingabeformular mit ShowDialog aufrufen
Autor/Einsender:
Datum:
  Michael Werner
24.10.2005
Entwicklungsumgebung:   VB.Net 2003
Framework:   1.1
Die oft für Einsteiger so schwierige formübergreifende Übergabe von Werten von einer Form in eine andere wird hier per modaler Dialogbox gelöst, und demonstriert, wie mit extrem wenig Code ein modales Eingabeformular, aufgerufen per ShowDialog, eingegebene Werte in das aufrufende Formular übergeben kann. Im Eingabeformular wird ein Rückgabewert per DialogResult.OK die Textbox-Werte übernehmen.
Dazu muss im Eingabeformular die Button-Eigenschaft DialogResult gesetzt werden:
Für den Button 'Übernehmen':
 
Button1.DialogResult = DialogResult.OK
 
Für den Button 'Abbrechen':
 
Button2.DialogResult = DialogResult.Cancel
 
Und das war es auch schon.
Code im Codebereich von Form1
 
  Dim Eingabe As New EingabeFormular

  Private Sub Form1_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
    If Eingabe.ShowDialog = DialogResult.OK Then
      Label1.Text = Eingabe.TextBox1.Text
      Label2.Text = Eingabe.TextBox2.Text
      Label3.Text = Eingabe.TextBox3.Text
    End If
  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click
    If Eingabe.ShowDialog = DialogResult.OK Then
      Label1.Text = Eingabe.TextBox1.Text
      Label2.Text = Eingabe.TextBox2.Text
      Label3.Text = Eingabe.TextBox3.Text
    End If
  End Sub
 
Code im Codebereich von EingabeFormular
 
  Private Sub EingabeFormular_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
    Button1.DialogResult = DialogResult.OK
    Button2.DialogResult = DialogResult.Cancel
  End Sub
 
Weitere Links zum Thema
Form ein- und ausblenden
Formszugriff mit überladenem Konstruktor

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (10,5 kB) Downloads bisher: [ 692 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Montag, 23. Januar 2012