问康耐视洞察SetComment不持久化

EN

Private Sub ButtonSave_Click(sender As Object, e As EventArgs) Handles ButtonSave.Click
    ' Check if the name, username, password, pass, fail, total, reset, and results are all set
    Dim invalidFields As List(Of String) = New List(Of String)()
    For Each pair In _requiredFields
        If (String.IsNullOrWhiteSpace(DirectCast(Controls.Find(pair.Key, True).FirstOrDefault, TextBox).Text)) Then
            invalidFields.Add(pair.Value)
        End If
    Next

    If (invalidFields.Any()) Then
        MessageBox.Show($"The following required fields are missing a value: {String.Join(", ", invalidFields)}", "Invalid Form", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Return
    End If

    ' Set the returned object's values, set the dialog result, and then close the dialog
    CameraSettings = New CameraSettings() With {
        .FailCell = FailCellLocation.Text,
        .FocusCell = FocusCell.Text,
        .IsVisible = Visibility.Checked,
        .PassCell = PassCellLocation.Text,
        .ResetCell = ResetCellLocation.Text,
        .ResultsCell = ResultsCellLocation.Text,
        .TotalCell = TotalCellLocation.Text
    }
    DialogResult = DialogResult.OK
    Close()
End Sub

Private Sub Settings_Click(sender As Object, e As EventArgs) Handles Settings.Click
    Using cameraSettingsDialog As frmCameraSetting = New frmCameraSetting(InsightDisplay.InSight)
        With cameraSettingsDialog
            If (.ShowDialog = DialogResult.OK) Then
                InsightDisplay.InSight.SetComment(New CvsCellLocation(_focusCell), New CvsCellComment(.CameraSettings.FocusCell))
                InsightDisplay.InSight.SetComment(New CvsCellLocation(_passCell), New CvsCellComment(.CameraSettings.PassCell))
                InsightDisplay.InSight.SetComment(New CvsCellLocation(_failCell), New CvsCellComment(.CameraSettings.FailCell))
                InsightDisplay.InSight.SetComment(New CvsCellLocation(_totalCell), New CvsCellComment(.CameraSettings.TotalCell))
                InsightDisplay.InSight.SetComment(New CvsCellLocation(_resultCell), New CvsCellComment(.CameraSettings.ResultsCell))
                InsightDisplay.InSight.SetComment(New CvsCellLocation(_resetCell), New CvsCellComment(.CameraSettings.ResetCell))

                GetSettingCells()
            End If
        End With
    End Using
End Sub