MessageBoxes

[Piepje]

Hallo.
Ik had eens een vraagje over VB.net.
Wij hebben een project waarbij wij een bankterminal moeten ontwerpen
en heb nu een knop gemaakt overschrijving: met als code:
MessageBox.Show("Wilt u deze overschrijving definitief doen?", "Overschrijving", MessageBoxButtons.YesNo)
maar hoe kan ik hier nu zeggen van als het yes is dat die dan door moet gaan en als de persoon op no klikt dat het programma moet stoppen.
mijn gedachte was:
If MessageBox.Value = "Yes" Then
....
Else
(stop program)
End If
maar dit werkt niet, men kan alleen messageBox.Show doen
hopelijk kan er mij hier iemand mee helpen.

 

[beheer25]

dim result as integer
result = MessageBox.Show("Wilt u deze overschrijving definitief doen?", "Overschrijving", MessageBoxButtons.YesNo)

if result = 6 then
'wat moet er gebeuren bij yes
else
'Wat bij no
end if

 

[Chicken#oo1]

Hallo.
Ik had eens een vraagje over VB.net.
Wij hebben een project waarbij wij een bankterminal moeten ontwerpen
en heb nu een knop gemaakt overschrijving: met als code:
MessageBox.Show("Wilt u deze overschrijving definitief doen?", "Overschrijving", MessageBoxButtons.YesNo)
maar hoe kan ik hier nu zeggen van als het yes is dat die dan door moet gaan en als de persoon op no klikt dat het programma moet stoppen.
mijn gedachte was:
If MessageBox.Value = "Yes" Then
....
Else
(stop program)
End If
maar dit werkt niet, men kan alleen messageBox.Show doen
hopelijk kan er mij hier iemand mee helpen.

Het spijt me, jullie zijn allebei grandioos verkeerd.

Ik ben een Object-Pascal programmeur, dus mijn VB gaat misschien wel verkeerd zijn, maar mijn .NET zeker niet ...

Code:

' De variabele die MessageBox teruggeeft is van het type DialogResult
Dim resultaat As New DialogResult
resultaat = MessageBox.Show("Wilt u deze overschrijving definitief doen?", "Overschrijving", MessageBoxButtons.YesNo)

'Controleer resultaat, als het gelijk is aan ja (DialogResult.Yes) dan ...
If resultaat = DialogResult.Yes Then
MessageBox.Show("YES")
Else
'Anders is het gelijk aan nee (DialogResult.No)
MessageBox.Show("NO")
End If


Wat jullie hierboven bij elkaar prutsten is gewoon een schande tegenover de OO-principes ...
En is jezelf nog in moeilijkheden brengen ook wanneer je iets moet toevoegen ...

 

[miles]

Dim dlgRes As DialogResult
dlgRes = MessageBox.Show( _
"Meldingtekst?", _
"Tekst titelbalk", _
MessageBoxButtons.OKCancel, _
MessageBoxIcon.Question)
If dlgRes = DialogResult.OK Then
Procedure wanneer er op OK geklikt wordt