如何将值从一种形式传递给另一种形式的动态创建的控件

Question

假设我有两种形式，即Form1和Form2。 Form1中包含动态创建DataGridView控制和Form2包含两个Textbox控件（Textbox1和Textbox2)和Button控制。

当我DoubleClick上DataGridView的细胞它将打开Form2和从当前选择的单元中的数据传递到Form2的Textbox1

下面是代码：

我添加了一个handlear到我的动态创建的DataGridView这样的：

 

    AddHandler dg.CellMouseDoubleClick, AddressOf dg_DataGridEdit 

 

    Private Sub dg_DataGridEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) 
       Dim dgView As DataGridView = DirectCast(sender, DataGridView) 
     Form2.TextBox1.Text = dgView.CurrentCell.Value.ToString() 
       Form2.ShowDialog() 
    End Sub 

当我点击从窗体2的按钮，当前选择的单元格的值将改变像TextBox2中从窗体2具有。但问题是我不能使用从From2 button1的代码，如

 

    Form1.dgView.CurrentCell.Value = TextBox2.Text 

如何将值从textbox2传递到当前选定的单元格？

Answer 1

好吧，我明白了。 起初，我创建了一个叫做

 

    Public UpdateData As String = "" 

然后，更改代码 -

 
    Private Sub dg_DataGridEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) 

       Dim dgView As DataGridView = DirectCast(sender, DataGridView) 
       Form2.TextBox1.Text = dgView.CurrentCell.Value.ToString() 
       Form2.ShowDialog() 
       dgView.CurrentCell.Value =UpdateData 
       UpdateData="" 
    End Sub 

在窗口2

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
     form1.UpdateData = TextBox2.Text 
     Me.Hide() 
    End Sub 

Answer 2

您可以通过Form2的构造函数将Form1的datagridview传递给Form2。然后，您可以像访问最后一段代码片段一样访问Form1的datagridview的CurrentCell。

你可以在Form2中有一个构造函数，它将datagridview作为参数。

Public Class Form2 

    Private dgView As New DataGridView 
    Public Sub New(ByRef _dgView As DataGridView) 
     dgView = _dgView 
    End Sub 

End Class 

当您创建的Form2在Form1的情况下，通过dgView到窗体2，如：

Public Class Form1 
    Dim Form2 As New Form2(dgView) 

End Class 

现在，当您单击Form2按钮，只需设置dgView的CurrentCell在按钮事件处理程序如：

dgView.CurrentCell.Value = TextBox2.Text 

Answer 3

尝试复制到剪贴板作为解决方法，因此您不必从一个文本传递方法下一

System.Windows.Forms.Clipboard.SetText(...) 

System.Windows.Forms.Clipboard.GetText(...) 

Answer 4

当您创建的DataGridView，存储对它的引用：

private _myDgv as DataGridView 

Sub Form_load 
    _myDgv = New dataGridView 
    Me.Controls.Add(_myDgv) 
    'etc. 
End Sub 

然后添加一个只读属性，从其他地方得到它的引用：

Public ReadOnly Property DynamicDgv As DataGridView 
    Get 
     Return _myDgv 
    End Get 
End Property 

然后你可以在Form2中做到这一点：

Form1.DynamicDgv.CurrentCell.Value = TextBox2.Text 

Answer 5

我不会用默认的情况下，一个公共变量。下面是每个窗体上使用一个文本框的一个示例：

Form1中

Public Class Form1 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     Dim f As New Form2(TextBox1F1) 'pass ref to form2 
     f.ShowDialog() 
    End Sub 
End Class 

窗口2

Public Class Form2 

    Dim txtbox As TextBox 

    Public Sub New(tb As TextBox) 

     ' This call is required by the designer. 
     InitializeComponent() 

     ' Add any initialization after the InitializeComponent() call. 
     txtbox = tb 'get ref from calling form 
    End Sub 

    Private Sub Form2_Shown(sender As Object, e As EventArgs) Handles Me.Shown 
     TextBox1F2.Text = txtbox.Text 
    End Sub 

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1F2.TextChanged 
     txtbox.Text = TextBox1F2.Text 
    End Sub 
End Class 

Form 2上以文本框的任何变化将反映在Form1中的文本框。