
Crew .NET |
|
Wat je dus wil zeggen is: een waarde terugsturen vanuit het extra venstertje naar het gewone formulier! 
Heel eenvoudig, voeg aan je project een "Dialog" toe. Hier in staan al standaard 2 knoppen, voeg enkel een tekstvak toe. En dit in de code, er staat al wat code maar dit zet je er gewoon onder:
Private Sub dialogTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dialogTextBox.TextChanged
'Als er niets is ingevuld, de OK-knop disablen
If String.IsNullOrEmpty(dialogTextBox.Text) Then
OK_Button.Enabled = False
Else
OK_Button.Enabled = True
End If
End Sub
Private Sub myDialog_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Standaard de OK-knop disablen
OK_Button.Enabled = False
End Sub
Private Sub dialogTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dialogTextBox.TextChanged 'Als er niets is ingevuld, de OK-knop disablen If String.IsNullOrEmpty(dialogTextBox.Text) Then OK_Button.Enabled = False Else OK_Button.Enabled = True End If End Sub Private Sub myDialog_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Standaard de OK-knop disablen OK_Button.Enabled = False End Sub
En in je MainForm plaats je dit in de code:
Private value As String
Private Sub btnShowDialog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowDialog.Click
'Als de dialoog getoond wordt en er wordt op OK geklikt
If myDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
'De variabele "value" de waarde van de textbox meegeven
value = myDialog.dialogTextBox.Text
End If
'Simpelweg de waarde tonen
MessageBox.Show(value)
End Sub
Private value As String Private Sub btnShowDialog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowDialog.Click 'Als de dialoog getoond wordt en er wordt op OK geklikt If myDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then 'De variabele "value" de waarde van de textbox meegeven value = myDialog.dialogTextBox.Text End If 'Simpelweg de waarde tonen MessageBox.Show(value) End Sub
Dit is maar een simpel voorbeeld om aan te tonen hoe je wel verder kan met dit principe! Hopelijk begrijp je alles, succes ermee! |