1

我有一项将单元格位置存储为特定单元格中的注释的工作，但我遇到了 CvsInsight::SetComment 方法不持久的情况。

我将表单显示为对话框，其中用户可以更改存储在注释单元格中的单元格位置，当用户单击保存按钮时，我正在创建自定义类的新实例，将属性设置为新的单元格位置（由用户设置），将 DialogResult 设置为 OK，然后关闭表单。然后在我调用 ShowDialog 的表单中，我为各自单元格上的自定义类中的每个属性调用 SetComment 方法。

这就是我在对话框的保存按钮中所做的：

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

发生的情况是代码执行时没有抛出任何异常，但未设置注释。令人沮丧的是，我无法调试，因为每当我在设置评论的过程中尝试访问结果时，CvsInsightDisplay 的 Insight 都会设置为 null。但是，我可以验证 CameraSettings 的属性是否符合我的预期，因为如果我设置 aConsole.WriteLine来打印各种属性，它们是正确的。

查看 SDK，我找不到任何文档说明为什么它不会在不引发异常的情况下设置值。

4

1 回答 1

1

对于那些遇到同样问题的人，问题解决了我试图设置一个超过作业中最大行的单元格这一事实。要解决此问题，我必须将设置注释的单元格更改为具有较低行索引的单元格。

不幸的是，康耐视的任何文档中都没有记录这种行为。

于 2020-05-28T04:27:59.840 回答