![]() |
|
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
|
|
|
|
|
|
|
| Windows-Version |
| 98/SE |
 |
|
| ME |
|
|
| NT |
|
|
| 2000 |
|
|
| XP |
|
|
| Vista |
|
|
| Win
7 |
|
|
|
|
Download (10,5 kB)
|
Downloads bisher: [ 797 ]
|
|
|
Vorheriger Tipp
Zum Seitenanfang 