Windows 窗体取消按钮不起作用

Question

我有一个 Visual Studio、Visual Basic 窗体，其中包含“确定”按钮和“取消”按钮。

我想要做的是让“确定”按钮保存用户选择的选项，当然“取消”按钮丢弃它们并将它们返回到之前的值。

但我注意到，当我调试表单时，无论我选择哪个按钮，这些值都会被保存。在表单的属性上，我已经声明 CancelBtn 确实是 CancelBtn，“确定”按钮是“确定”按钮，但无论如何，这些值仍然会被保存。

有没有更好的方法来完成我希望此表格执行的操作？

编辑：

这是到目前为止两个按钮的代码，两个按钮都被设置为关闭窗口。 AcceptOption 应保存值，CancelOption 应仅关闭表单。如果这做得不好，我很抱歉，但我发现的常见问题解答只提到更改每个按钮的属性，而没有提到代码：

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles AcceptOptionBtn.Click
    ' Save the Options
    Me.Close()
    ' Close the form
End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles CancelOptionBtn.Click
    ' Close the form
    Me.Close()
End Sub

Answer 1

在用户单击“保存”按钮之前不要更改“值”。

该表单应预加载您想要更新的值的副本。

取消按钮应该只是关闭表单。

“保存”按钮应该更新“值”，而不是表格副本。

编辑：-

关于这个问题，您发布的代码没有任何问题。是否为正确的按钮单击调用了正确的处理程序？表单的 AcceptButton 和 CancelButton 属性是否设置为正确的按钮？

如果有的话，您的编辑控件绑定到哪些数据？

Answer 2

“确定”和“取消”按钮没有什么神奇之处。它们只是...按钮。如果您每次进行更改时都保存数据，则“取消”按钮不会神奇地“取消保存”它们。但是，如果您在“确定”按钮的 Click 事件处理程序中保存更改，则单击“取消”按钮显然不会保存您的更改。为了进一步帮助您，我们需要知道您如何保存数据。

编辑：

通过查看您的代码，我认为您将数据直接传递到表单，而不执行对象的副本。因此，如果您修改此数据，父表单中的数据也会发生更改。通过使用此表单中的数据副本，任何未保存的更改都将被正确丢弃。

Answer 3

取消按钮的事件处理程序应如下所示：

Private Sub btnCancel_Click(sender As System.Object, e As System.EventArgs) Handles btnCancel.Click
    Me.Close()
End Sub

确定按钮的事件处理程序应如下所示：

Private Sub btnOK_Click(sender As System.Object, e As System.EventArgs) Handles btnOK.Click
    SaveSettings 'call a routine to save the settings the user has entered
    Me.Close()
End Sub

就这么简单！

Answer 4

如果您打开表单，就像

myForm.showdialog()

不必为关闭按钮单击事件定义处理程序一样，它会自动处理；只需为按钮设置 'DialogResult' 属性

btnCancel.DialogResult = DialogResult.Cancel

另外，如果您想在按下 ESC 时关闭表单，则设置 'CancelButton' 属性对于表单：

myForm.CancelButton = btnCancel

另一方面，如果您打开表单，

myForm.Show()

您确实需要指定对关闭按钮单击事件采取的操作，如下所示，即：

Private Sub BtnCancelClick(ByVal sender As System.Object, ByVal e As EventArgs) Handles btnCancel.Click
     Close()
End Sub

Answer 5

我也遇到了同样的问题。一旦我使用 My.Settings.Blabla = Blabla.value，即使我没有使用 My.Settings.Save() ，它也会被保存，据我所知，这使得 My.Settings.Save() 完全毫无意义。

我最终接受了乔德尔的建议：在用户单击“保存”按钮之前不要更改“值”，但我不太清楚如何去做。

我最终在所有设置子项中使用临时变量而不是用户 My.Settings.UserConfigs。仅当我在 OK 子目录中时，我才调用

My.Settings.UserConfigSetting = tempor_UserCofigValue

以下是我正在处理的代码中的一个示例：

Private Sub btnOptionsThemeLB_Back_Update_Click(sender As System.Object, e As System.EventArgs) Handles btnOptionsThemeLB_Back_Update.Click
    If (tempOptionsThemeLB_Back = Nothing) Then
        tempOptionsThemeLB_Back = Me.btnOptionsThemeLB_Back.BackColor
    End If
    tempOptionsThemeLB_Back = RGBToColor(txtbOptionsThemeLB_Back_Red.Text, txtbOptionsThemeLB_Back_Green.Text, txtbOptionsThemeLB_Back_Blue.Text, tempOptionsThemeLB_Back)
    Me.btnOptionsThemeLB_Back.BackColor = tempOptionsThemeLB_Back
End Sub

并且只有在 Ok 子目录中，我才调用 My.Settings。

'Theme Section
My.Settings.colorBtnBack = tempOptionsThemeLB_Back