返回第一个对话框

Question

我有一个 WinForm，用作仅带有 OK 和 Cancel 按钮的对话框。所以：

Dim sr As New SlideRangeDialog
Dim dr As Windows.Forms.DialogResult
dr = sr.ShowDialog

我有一个 If/Then 来查看用户是否按下了“确定”。如果他们按下“确定”并且出现验证错误，我需要他们返回对话框并修复它。

    If dr = Windows.Forms.DialogResult.OK Then
        Dim mr As Windows.Forms.DialogResult
        mr = MsgBox("Click Yes to fix, No to not fix or Cancel to go " + vbCrLf + _
                    " back to the dialog to fix.", MsgBoxStyle.YesNoCancel)
                Select Case mr
                    Case Windows.Forms.DialogResult.Yes
                        ''# something
                    Case Windows.Forms.DialogResult.No
                        ''# something more
                    Case Windows.Forms.DialogResult.Cancel
                        ''# RIGHT HERE is where I'm having the problem.
                        ''# I just want "Cancel" to return to the first dialog.
                        sr.DialogResult = Windows.Forms.DialogResult.None
                End Select
    Else
        ''#other thing
    End If

我应该在 Case Windows.Forms.DialogResult.Cancel 中放入什么才能将我直接带回第一个对话框，因为 sr.DialogResult = Windows.Forms.DialogResult.None 不会'似乎在工作？

我尝试再次引发事件子（这是从菜单项中单击），但这不适用于我正在使用的技术（VSTO Ribbon）。

Answer 1

尝试将验证逻辑移至对话框本身或对话框的 Closing 事件处理程序中。后者可能更容易。我的 VB.NET 技能几乎不存在，所以如果这不合时宜，请原谅我：

Dim sr As New SlideRangeDialog 
Dim dr As Windows.Forms.DialogResult 
AddHandler dr.Closing, AddressOf SlideRangeDialog_Closing
dr = sr.ShowDialog 

然后稍后：

Public Sub SlideRangeDialog_Closing(Sender As Object, e As CancelEventArgs)
    ' cast Sender as a SlideRangeDialog and check its 
    ' DialogResult property to see if they clicked OK.

    ' Your validation goes in here.
    ' If anything fails validation, set e.Cancel to True and the
    ' dialog won't close.
End Sub

Answer 2

我认为您需要处理“确定”（或“是，否”等）并在表单本身中取消，并且如果验证失败则不要关闭它。

在用作对话框的表单上，您需要处理单击按钮中的事件。然后在事件处理程序中运行测试来决定是否应关闭表单。如果是这样，那么您可以将 DialogResult 设置为您需要的任何内容并运行 Me.Close()

请参阅此处 举个例子

Private Sub OKCmd_Click( _
  ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles OKCmd.Click

    If Not ____do_your_test_here____ Then
      MsgBox("Cannot press OK because of blah blah blah . Try again.", MsgBoxStyle.Exclamation)
    Else
      Me.DialogResult = DialogResult.OK
      Me.Close()
    End If
End Sub

Answer 3

由于它是 VSTO 并且您在使用“正常”方式在屏幕之间进行通信时遇到问题，为什么不尝试使用 pInvoke 来代替：
如果您知道如何获取主题窗口的 hwnds，请使用以下代码：

    [DllImport("user32.dll")]
    public static extern bool SetFocus(IntPtr hwnd); 

Answer 4

正如 Preet 所建议的，恕我直言，处理按钮事件中的“Me.Close”语句是最直接的。

您还可以通过将其从按钮事件处理程序中删除并稍后关闭逻辑树中的表单来完成此操作。在我的示例中，我有两种形式。 Form1 有一个用于打开 Form2 的按钮，该按钮有两个按钮，分别是“确定”和“取消”按钮。因此，在第二种形式上，您可以使用以下内容：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Me.DialogResult = Windows.Forms.DialogResult.OK
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Me.DialogResult = Windows.Forms.DialogResult.Cancel
    Me.Dispose()
End Sub

您应该记住，在使用 ShowDialog 时，除非您特别要求，否则永远不会释放该形式。一个简单的是/否示例，询问用户是否确实要关闭。

   If Form2.ShowDialog = Windows.Forms.DialogResult.OK Then
        Select Case MessageBox.Show("Sure to close?", "Warning", MessageBoxButtons.YesNo)
            Case Windows.Forms.DialogResult.Yes
                Form2.Dispose()
            Case Windows.Forms.DialogResult.No
                Button2_Click(sender, e)
        End Select
    End If

只要在第二个表单中选择“确定”并在下面的消息框中选择“否”，就会递归调用 Button2_Click 子程序以保持显示。我希望这有帮助。