vb.net - 如何在 VB 2012 中将 Tag 属性与表单和代码一起使用？

Question

我正在为客户和技术人员编写一个使用数据库的程序。主窗体 (CustomerIncidents) 有一个工具条按钮，它打开一个与 (SearchByState) 不同的窗体，用户在其中输入州代码并查找任何事件。

如果用户单击其中一个数据网格单元格，我希望将客户信息存储在 TAG 中，以便在使用 OK 按钮关闭表单时，它将显示在主表单 (CustomerIncidents) 中。

编辑于 2014 年 3 月 11 日下午 12:21

问题出在主窗体中。当我单击第二个表单中的确定按钮时，它会尝试将 DialogResult 按钮转换为字符串。我不知道如何修复它。

客户表格(主表格)打开副表格

Private Sub btnOpenState_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles btnOpenState.Click
        Dim frmSearchState As New FindCustomer
 ----->>Dim selectedButton As DialogResult = frmSearchState.ShowDialog()
        If selectedButton = Windows.Forms.DialogResult.OK Then
            CustomerIDToolStripTextBox.Text = frmSearchState.Tag.ToString
        End If'

按州表格(中学表格)或“ child 表格”搜索

Private Sub btnOk_Click(message As String, ByVal e As DataGridViewCellEventArgs) Handles btnOk.Click

    message = CustomersDataGridView.Rows(e.RowIndex).Cells(e.ColumnIndex).Value.ToString

    Me.Tag = message
    Me.DialogResult = DialogResult.OK
End Sub

Answer 1

按钮的点击事件没有 DataGridViewCellEventArgs 参数，当您尝试使用它时会抛出异常。

您不需要使用 Tag 属性，因为您可以创建自己的属性。

在您的子表单中，创建一个名为 GridValue 的属性:

Private Sub btnOk_Click(sender As Object, e As EventArgs) Handles btnOk.Click
  If dgv.CurrentCell Is Nothing OrElse dgv.CurrentCell.Value Is Nothing Then
    MessageBox.Show("A cell needs to be selected.")
  Else
    Me.DialogResult = DialogResult.OK
  End If
End Sub

Public ReadOnly Property GridValue As String
  Get
    Return dgv.CurrentCell.Value.ToString
  End Get
End Property

在您的父表单中，您现在可以访问您的信息:

Using frmSearchState As New FindCustomer
  If frmSearchState.ShowDialog(Me) = DialogResult.Ok Then
    CustomerIDToolStripTextBox.Text = frmSearchState.GridValue
  End If
End Using