1

我目前有 3 个表格，表格 1 选择 4 条数据，表格 2 最多选择 10 个。

我想要它，所以当您转到表单 3 时，表单 2 上的所有选定字段都显示在第 3 个表单上......作为不可编辑的文本字段（我猜是标签）

我会附上一些图表以使这个 5000x 更容易解释，但我还不能。

我只需要知道如何让代码获取输入到组合框和文本框的值并将它们输出到表单 3 中。

编辑; 我没有合适的代码，因为我一直在尝试不同的技术，但一无所获

 Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
    Me.ComboBox1.FormattingEnabled = True
    Me.ComboBox1.Items.AddRange(New Object() {"ClaimCode", "PostCode", "AlgPremium", "Etc", "Etc", "Etc"})
    Me.ComboBox1.Location = New System.Drawing.Point(27, 33)
    Me.ComboBox1.Name = "ComboBox1"
    Me.ComboBox1.Size = New System.Drawing.Size(225, 21)
    Me.ComboBox1.TabIndex = 2
    '
    'ComboBox2
    '
    Me.ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
    Me.ComboBox2.FormattingEnabled = True
    Me.ComboBox2.Items.AddRange(New Object() {"Single", "Multi"})
    Me.ComboBox2.Location = New System.Drawing.Point(275, 33)
    Me.ComboBox2.Name = "ComboBox2"
    Me.ComboBox2.Size = New System.Drawing.Size(147, 21)
    Me.ComboBox2.TabIndex = 3
    '
    'Values
    '
    Me.Values.Location = New System.Drawing.Point(450, 34)
    Me.Values.Name = "Values"
    Me.Values.Size = New System.Drawing.Size(297, 20)
    Me.Values.TabIndex = 4

我想要上述值（从from 2）选择时，将其取出并放入form3 ...上的以下字段中

 'TextBox1
    '
    Me.TextBox1.Location = New System.Drawing.Point(11, 13)
    Me.TextBox1.Name = "TextBox1"
    Me.TextBox1.Size = New System.Drawing.Size(259, 20)
    Me.TextBox1.TabIndex = 0
    '
    'TextBox2
    '
    Me.TextBox2.Location = New System.Drawing.Point(9, 13)
    Me.TextBox2.Name = "TextBox2"
    Me.TextBox2.Size = New System.Drawing.Size(85, 20)
    Me.TextBox2.TabIndex = 1

什么都没有命名，因为我只需要了解如何做到这一点，除了传递到表单之外，还有更多的数据要做，但现在。这将使我对我的工作有基本的了解。

对于完整的描述，我将有各种 XML 模板，当您在 FORM1 上选择 4 个值时，将在后台选择一个特定的模板。然后在 FORM2 中，您将选择要在此模板上修改的值，这些值将在 XML 上进行修改，并将 XML 发布到测试工具中，其中将针对它运行各种过滤器/规则（流口水），然后在 form3 上列出您在 form2 上更改的所有字段、您在 FORM2 上输入的值以及在测试工具中的变形/过滤器后它们如何返回，并且生成的 XML 将被保存并通过 FORM3 链接到。

我是在这个阶段拥有该程序的 Lonnngggg 方式，但我只是想了解如何使用 GUI 以及如何将数据从一种形式传递到另一种形式。或将其导出到 XML 文件

4

2 回答 2

2

您可以通过在显示之前设置公共属性将数据传递给表单，如下所示：

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim f As New FormVb2()
        f.TextBox1Value = TextBox1.Text
        f.ShowDialog()
    End Sub
End Class

然后您可以在表单加载时使用公共属性中的值，如下所示：

Public Class Form2
    Public Property TextBox1Value As String

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles Me.Load
        TextBox1.Text = TextBox1Value
    End Sub
End Class
于 2013-04-04T12:50:48.380 回答
1

试试这个代码

val 是全局变量

Dim Val as string=string.empty



Private Sub ComboBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedValueChanged
        val = ComboBox1.SelectedItem
    End Sub



  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim xfrm As New Form3
        xfrm.TextBox1.Text = val 
        xfrm.ShowDialog()
    End Sub
于 2013-04-04T12:36:19.750 回答