probleem met msgbox

[help777]

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?

    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

 

[Pizara]

Je hebt 2 keer een If gebruikt in een zelfde vergelijking. Probeer het eens met een Else statement.

    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

 

[help777]

helpt niet

 

[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.

    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

 

[help777]

ja, dit was het

hartelijk bedankt!:thumb: