probleem met msgbox

Status
Niet open voor verdere reacties.

help777

Gebruiker
Lid geworden
4 dec 2008
Berichten
6
hallo

ik heb een probleem met de msgbox in visual basic 2005
als ik op ja of nee klik gebeurt er hetzelfde
weet iemand misschien het probleem?

Code:
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("Weet u zeker dat u wilt stoppen?", MsgBoxStyle.YesNo + MsgBoxStyle.Information, "Stoppen")
        If MsgBoxResult.Yes Then
            Form1.Visible = True
            Me.Visible = False
            Form1.Close()
        End If
        If MsgBoxResult.No Then
            Me.Visible = True
        End If
    End Sub
 
Je hebt 2 keer een If gebruikt in een zelfde vergelijking. Probeer het eens met een Else statement.

Code:
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("Weet u zeker dat u wilt stoppen?", MsgBoxStyle.YesNo + MsgBoxStyle.Information, "Stoppen")
        If MsgBoxResult.Yes Then
            Form1.Visible = True
            Me.Visible = False
            Form1.Close()
         Else
            Me.Visible = True
        End If
    End Sub

Mvg Pizara
 
Ik heb m net even zelf geprobeerd. Je was de waarde van de msgbox vergeten in een variablele te stoppen. Ik had er zelf overheen gekeken.

Code:
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim result As MsgBoxResult = MsgBox("Weet u zeker dat u wilt stoppen?", MsgBoxStyle.YesNo + MsgBoxStyle.Information, "Stoppen")
        If Result = MsgBoxResult.Yes Then
            Form1.Visible = True
            Me.Visible = False
            Form1.Close()
         Else
            Me.Visible = True
        End If
    End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.

Nieuwste berichten

Terug
Bovenaan Onderaan