VB DialogResult不工作

Question

我想要这样做，所以当用户按OK按钮时，会执行一段代码--这里是我如何尝试的。

没有执行代码foodItemslst.Items.Add(staffForm.TheStaff.ToString)。

      Private Sub AddStaffbtn_Click(sender As Object, e As EventArgs) Handles AddStaffbtn.Click
            Dim staffForm As StaffForm = New StaffForm
            If (staffForm.ShowDialog = System.Windows.Forms.DialogResult.OK) Then
                foodItemslst.Items.Add(staffForm.TheStaff.ToString)
                   'the above code IS not executed.
            End If
        End Sub

但是，此代码工作如下：

  Private Sub AddStaffbtn_Click(sender As Object, e As EventArgs) Handles AddStaffbtn.Click
        Dim staffForm As StaffForm = New StaffForm
        If (staffForm.ShowDialog = System.Windows.Forms.DialogResult.OK) Then
        End If
        foodItemslst.Items.Add(staffForm.TheStaff.ToString)
         'The above code is executed
    End Sub

代码有问题：

If (staffForm.ShowDialog = System.Windows.Forms.DialogResult.OK) 

但我不知道问题是什么

OK按钮被标记为OK并命名为OKbtn。

有人知道为什么DialogResult不能工作吗？

更新：

OK按钮的代码，

Private Sub OKbtn_Click(sender As Object, e As EventArgs) Handles OKbtn.Click
        ReadValues(m_staff)
        Me.Close()
    End Sub

Answer 1

只需设置DialogResult，不需要也需要Close()调用：

如果窗体显示为对话框，则使用DialogResult枚举中的值设置此属性将设置窗体的对话框结果值，隐藏模式对话框，并将控件返回给调用窗体。

所以就这么做吧：

Me.DialogResult = DialogResult.Ok