创建一个确认，该确认如果用户取消

Question

因此，我目前有一个我有4个团队的表格，每个团队都有4个队友。这不会改变。

我的表格GUI

最初在程序启动时，它会自动选择“当前值”广播按钮带有空白数据的标签，您可以选择“编辑值”，可以通过按“大绿色应用”按钮来保存。这将数据存储在名为stteamname的2D阵列下，每当您再次选择“当前值”时，标签引用。

有4个无线电按钮可让您在团队之间切换。

我的问题是，当我更改无线电按钮时，将删除尚未保存的文本标签中的任何数据将被删除。

我通过添加a

但是，我唯一的问题是，在取消此消息后，单个按钮停留在当前选择中，这无济于事。

我通过使用rbteamname1.checked = true（rbteamname 1至4为名为1-4的无线电按钮）解决此问题，以切换回上一个状态。

当然，无论如何，这都只能返回到rbteamname1，因此我使用了1D数组并选择案例来帮助解决此问题。

“”“

Dim RadioCounter(1) As Integer 

下面的代码仅在负载上给出默认的无线电按钮值。

Sub DeclareRadio(RadioButton)
RadioButton(1) = 1

'结束sub

“”“

每当成功选择一个无线电按钮时，RadioCounter（1）分别设置为数字1-4。每当选择一个新的广播按钮时，RadioCounter（1）的值就会移动到RadioCounter（0），并且当前的无线电按钮的值是RadioCounter（1）。

如果用户选择否，则引用RadioCounter（0）的值，并且选择案例选择“单选”按钮。

（请注意，radioteam（）用作存储团队名称和队友名称字符串变量在2D数组中正确的计数器：stteamname。我很可能会在解决此问题后立即将其与RadioCounter合并，一旦解决了此

）

问题 sub rbteamname1_checkedChanged（作为对象的发送者作为evensArgs）处理rbteamname1.CheckedChanged

    'note txtTeamName starts at 0, however RadioTeam starts at 1, RadioTeam = 0 has no team designated to it.

    'this function is for swapping teams via radio button, each time, a confirmation is given to make sure the user saves the current team, or risk deletion of the inputted data.

    RadioCounter(1) = RadioCounter(0)

    stTeamname(0, RadioTeam) = txtTeamName.Text
    stTeamname(1, RadioTeam) = txtMate1.Text
    stTeamname(2, RadioTeam) = txtMate2.Text
    stTeamname(3, RadioTeam) = txtMate3.Text
    stTeamname(4, RadioTeam) = txtMate4.Text



    Dim Dialog As DialogResult

    Dialog = MessageBox.Show("Are you sure you want to change team? Any unsaved changes will be lost. If this box shows on starting the program, just press no", "Change team?", MessageBoxButtons.YesNo)

    If Dialog = DialogResult.No Then

        'need to run function to check previous result of radio button'



        Select Case RadioCounter(0)
            Case 1
                rbTeamName1.Checked = True
            Case 2
                rbTeamName2.Checked = True
            Case 3
                rbTeamName3.Checked = True
            Case 4
                rbTeamName4.Checked = True
        End Select


    ElseIf Dialog = DialogResult.Yes Then

        RadioCounter(1) = 1 'this equals the respective number for each radio button'

        RadioTeam = 1

        txtTeamName.Text = stTeamname(0, RadioTeam)
        txtMate1.Text = stTeamname(1, RadioTeam)
        txtMate2.Text = stTeamname(2, RadioTeam)
        txtMate3.Text = stTeamname(3, RadioTeam)
        txtMate4.Text = stTeamname(4, RadioTeam)

        lblTeamName.Text = stTeamname(0, RadioTeam)
        lblMate1.Text = stTeamname(1, RadioTeam)
        lblMate2.Text = stTeamname(2, RadioTeam)
        lblMate3.Text = stTeamname(3, RadioTeam)
        lblMate4.Text = stTeamname(4, RadioTeam)

    End If


End Sub

“”“

....或应该这样做。但这不是。我不确定为什么，但是当我强迫它来检查特定的广播按钮时，通过删除选定案例，并且仅运行rbteamname4.checked = true它可以很好地工作根本不运行代码。

另外，尽管stteamname（0，radioteam）= txtteamname.text等。仍然不会保存这些参数，我觉得这很奇怪。

理想的解决方案是什么？

要澄清：

如果用户写下团队名称和队友，并且不按“应用按钮”保存，然后选择另一个广播按钮来更改团队，则应出现一个文本框，询问他们是否要切换团队并丢失数据（是）或停留在上一个广播按钮上进行编辑并应用数据（否）。

按下NO后，该程序会自动将当前的单调按钮切换到上一个选择，使其似乎首先选择了无线电按钮。

我不确定我是否必须使它变得明显，但我对Stackoverflow和VB.NET的新手很新。先感谢您。

Answer 1

本质上，您要的是肮脏的检查。基本原则是您需要将价值与以前的价值进行比较。

因此：例如：

1. 表单级别的布尔变量设置为trui
2. 当文本框值更改时，在转到切换团队或当前/编辑时，将
3. ，您将检查该级别级别的boolean变量是否为trui，如果变量为true，则您将显示提示 执行操作
4. ，否则，只需在操作之后

，重置全局级别布尔变量会有一些警告，例如，当您在电流/编辑之间切换/编辑时，更改的检查将两次开火：一次用于当前的单个单选按钮，一次进行编辑。但是您只需要解决这些边缘案例即可。

这是一个未经测试的示例，您可以摆脱：

Imports System.ComponentModel
Imports System.Runtime.CompilerServices

Public Class Form1

    Private _team1 As Team
    Private _team2 As Team
    Private _team3 As Team
    Private _team4 As Team
    Private _isFormDirty As Boolean = False
    Private _selectedTeamRadioButton = RadioButtonTeam1

    Private Sub RadioButtonCurrent_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButtonCurrent.CheckedChanged
        If (RadioButtonCurrent.Checked AndAlso _isFormDirty AndAlso MessageBox.Show("By doing this, you will lose all unsaved changes. Are you sure?", "Dirty Form", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.No) Then
            RadioButtonEdit.Checked = True
            Return
        End If
        If (Not RadioButtonCurrent.Checked) Then
            Return
        End If
        TextBoxTeamName.Enabled = False
        TextBoxTeammate1.Enabled = False
        TextBoxTeammate2.Enabled = False
        TextBoxTeammate3.Enabled = False
        TextBoxTeammate4.Enabled = False
        ResetTeam()
    End Sub

    Private Sub RadioButtonEdit_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButtonEdit.CheckedChanged
        TextBoxTeamName.Enabled = True
        TextBoxTeammate1.Enabled = True
        TextBoxTeammate2.Enabled = True
        TextBoxTeammate3.Enabled = True
        TextBoxTeammate4.Enabled = True
    End Sub

    Private Sub RadioButtonTeamChanged(sender As Object, e As EventArgs) Handles RadioButtonTeam1.CheckedChanged, RadioButtonTeam2.CheckedChanged, RadioButtonTeam3.CheckedChanged, RadioButtonTeam4.CheckedChanged
        If (_selectedTeamRadioButton IsNot DirectCast(sender, RadioButton) AndAlso _isFormDirty AndAlso MessageBox.Show("By doing this, you will lose all unsaved changes. Are you sure?", "Dirty Form", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.No) Then
            _selectedTeamRadioButton.Checked = True
            Return
        End If
        If (_selectedTeamRadioButton IsNot DirectCast(sender, RadioButton)) Then
            Return
        End If
        _selectedTeamRadioButton = DirectCast(sender, RadioButton)
        ResetTeam()
    End Sub

    Private Sub TextBoxTeamValueChanged(sender As Object, e As EventArgs) Handles TextBoxTeamName.TextChanged, TextBoxTeammate1.TextAlignChanged, TextBoxTeammate2.TextAlignChanged, TextBoxTeammate3.TextAlignChanged, TextBoxTeammate4.TextAlignChanged
        _isFormDirty = True
    End Sub

    Private Sub ButtonApply_Click(sender As Object, e As EventArgs) Handles ButtonApply.Click
        Select Case True
            Case RadioButtonTeam1.Checked
                _team1 = New Team() With {
                    .Name = TextBoxTeamName.Text,
                    .Teammate1 = TextBoxTeammate1.Text,
                    .Teammate2 = TextBoxTeammate2.Text,
                    .Teammate3 = TextBoxTeammate3.Text,
                    .Teammate4 = TextBoxTeammate4.Text
                }
            Case RadioButtonTeam2.Checked
                _team2 = New Team() With {
                    .Name = TextBoxTeamName.Text,
                    .Teammate1 = TextBoxTeammate1.Text,
                    .Teammate2 = TextBoxTeammate2.Text,
                    .Teammate3 = TextBoxTeammate3.Text,
                    .Teammate4 = TextBoxTeammate4.Text
                }
            Case RadioButtonTeam3.Checked
                _team3 = New Team() With {
                    .Name = TextBoxTeamName.Text,
                    .Teammate1 = TextBoxTeammate1.Text,
                    .Teammate2 = TextBoxTeammate2.Text,
                    .Teammate3 = TextBoxTeammate3.Text,
                    .Teammate4 = TextBoxTeammate4.Text
                }
            Case RadioButtonTeam4.Checked
                _team4 = New Team() With {
                    .Name = TextBoxTeamName.Text,
                    .Teammate1 = TextBoxTeammate1.Text,
                    .Teammate2 = TextBoxTeammate2.Text,
                    .Teammate3 = TextBoxTeammate3.Text,
                    .Teammate4 = TextBoxTeammate4.Text
                }
        End Select
        _isFormDirty = False
    End Sub

    Private Sub ButtonDeleteTeam_Click(sender As Object, e As EventArgs) Handles ButtonDeleteTeam.Click
        If (MessageBox.Show("Are you sure you want to delete this team?", "Delete", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.No) Then
            Return
        End If
        _isFormDirty = False
        Select Case True
            Case RadioButtonTeam1.Checked
                _team1 = New Team()
            Case RadioButtonTeam2.Checked
                _team2 = New Team()
            Case RadioButtonTeam3.Checked
                _team3 = New Team()
            Case RadioButtonTeam4.Checked
                _team4 = New Team()
        End Select
        ResetTeam()
    End Sub

    Private Sub ResetTeam()
        Dim selectedTeam As Team = Nothing
        Select Case True
            Case RadioButtonTeam1.Checked
                selectedTeam = _team1
            Case RadioButtonTeam2.Checked
                selectedTeam = _team2
            Case RadioButtonTeam3.Checked
                selectedTeam = _team3
            Case RadioButtonTeam4.Checked
                selectedTeam = _team4
        End Select

        If (selectedTeam IsNot Nothing) Then
            TextBoxTeamName.Text = selectedTeam.Name
            TextBoxTeammate1.Text = selectedTeam.Teammate1
            TextBoxTeammate2.Text = selectedTeam.Teammate2
            TextBoxTeammate3.Text = selectedTeam.Teammate3
            TextBoxTeammate4.Text = selectedTeam.Teammate4
        Else
            TextBoxTeamName.Clear()
            TextBoxTeammate1.Clear()
            TextBoxTeammate2.Clear()
            TextBoxTeammate3.Clear()
            TextBoxTeammate4.Clear()
        End If
    End Sub

End Class

Public Class Team
    Implements INotifyPropertyChanged

    Private _name As String
    Public Property Name As String
        Get
            Return _name
        End Get
        Set(value As String)
            If (_name <> value) Then
                _name = value
                NotifyPropertyChanged()
            End If
        End Set
    End Property

    Private _teammate1 As String
    Public Property Teammate1 As String
        Get
            Return _teammate1
        End Get
        Set(value As String)
            If (_teammate1 <> value) Then
                _teammate1 = value
                NotifyPropertyChanged()
            End If
        End Set
    End Property

    Private _teammate2 As String
    Public Property Teammate2 As String
        Get
            Return _teammate2
        End Get
        Set(value As String)
            If (_teammate2 <> value) Then
                _teammate2 = value
                NotifyPropertyChanged()
            End If
        End Set
    End Property

    Private _teammate3 As String
    Public Property Teammate3 As String
        Get
            Return _teammate3
        End Get
        Set(value As String)
            If (_teammate3 <> value) Then
                _teammate3 = value
                NotifyPropertyChanged()
            End If
        End Set
    End Property

    Private _teammate4 As String
    Public Property Teammate4 As String
        Get
            Return _teammate4
        End Get
        Set(value As String)
            If (_teammate4 <> value) Then
                _teammate4 = value
                NotifyPropertyChanged()
            End If
        End Set
    End Property

    Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged

    Private Sub NotifyPropertyChanged(<CallerMemberName()> Optional propertyName As String = Nothing)
        RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propertyName))
    End Sub

End Class