VB messagebox yes / no Я хочу, чтобы 'no' закрывало окно сообщения, но закрытие формы я хочу открыть - PullRequest
Новая
       11

VB messagebox yes / no Я хочу, чтобы 'no' закрывало окно сообщения, но закрытие формы я хочу открыть

0 голосов
/ 04 мая 2018 
Private Sub btnMain_Click(sender As Object, e As EventArgs) Handles btnMain.Click
    Dim result As DialogResult = MessageBox.Show("Did you save customer info?", "Save Information", MessageBoxButtons.YesNo, MessageBoxIcon.Stop)
    If (result = DialogResult.Yes) Then
        'Me.Visible = False
        Me.Close()
        frmDuneTours.Visible = True
    ElseIf (result = DialogResult.No) Then
        frmDuneTours.Visible = False
        Me.Visible = True
    End If
End Sub

1 Ответ

0 голосов
/ 05 мая 2018

Когда вы размещаете Me.Close до frmDuneTours.Visible = True вторая строка никогда не выполняется, потому что когда вы закрываете текущую форму, приложение заканчивается. 

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim result As DialogResult = MessageBox.Show("Did you save customer info?", "Save Information", MessageBoxButtons.YesNo, MessageBoxIcon.Stop)
        If (result = DialogResult.Yes) Then
            frmSortedList.Visible = True
            Me.Close()
        ElseIf (result = DialogResult.No) Then
            frmSortedList.Visible = False
        End If
End Sub
...