一个奇怪的问题求教

Question

If MessageBox.Show("是否要保存文件？", "selina", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2, MessageBoxOptions.DefaultDesktopOnly) = DialogResult.Yes Then
                SFDialog.Filter = "Excel Files (*.xls)|*.xls|All files (*.*)|*.*"
                SFDialog.FilterIndex = 1
                'SFDialog.Title = ""
                SFDialog.ShowDialog()
                If SFDialog.ShowDialog() = DialogResult.OK Then
                    Dim sFile As String = SFDialog.FileName
                    ThisWorkBook.SaveAs(sFile)
                Else
                    ThisWorkBook.Saved = True
                End If
            Else
                ThisWorkBook.Saved = True
            End If
endif现在SFDialog.ShowDialog 出现不了SaveFileDialog了
原来用MessageBox在用msgbox时能行但会在旁边打开

Answer 1

原来用MessageBox在用msgbox时能行但“是否要保存文件？”会在旁边打开

Answer 2

If MessageBox.Show("是否要保存文件？", "selina", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2, MessageBoxOptions.DefaultDesktopOnly) = DialogResult.Yes Then
            SFDialog.Filter = "Excel Files (*.xls)|*.xls|All files (*.*)|*.*"
            SFDialog.FilterIndex = 1
            'SFDialog.Title = ""
            If SFDialog.ShowDialog() = DialogResult.OK Then
                Dim sFile As String = SFDialog.FileName
                '保存文件
            Else            End If
        Else        End If

Answer 3

SFDialog.ShowDialog()//感觉这里重复了，这行应该去掉
                If SFDialog.ShowDialog() = DialogResult.OK Then