VB.NET将变量传递给私有子中的另一种形式

Question

这是我的代码的一部分：

Private Sub LoginButton_Click(sender As Object, e As EventArgs) Handles LoginButton.Click
    If My.Computer.FileSystem.DirectoryExists(MyCityPath + LoginUsername.Text) Then
        'Some code here......
        'This is not completed
    End If
End Sub

部分未完成。我要做的是创建可以传递给另一个表单的变量。但是，这是私人子。

我可以使用公共课吗？如何将变量传递给另一种形式？

Answer 1

您有几种选择。这些示例假设您将字符串传递给另一个表单。如果没有，请将类型更改为您需要的任何类型。这里有一对可以帮助您完成所需的大部分工作：

在另一个表单上放置一个公共字段

此表格的代码：

Private Sub LoginButton_Click(sender As Object, e As EventArgs) Handles LoginButton.Click
    If My.Computer.FileSystem.DirectoryExists(MyCityPath + LoginUsername.Text) Then
        'Some code here......
        MySecondForm.Target = "Something special"
    End If
End Sub

另一种形式的代码（在上例中称为MySecondForm）：

'...
Public Target As String
'...

将值直接放入另一种形式的控件

Private Sub LoginButton_Click(sender As Object, e As EventArgs) Handles LoginButton.Click
    If My.Computer.FileSystem.DirectoryExists(MyCityPath + LoginUsername.Text) Then
        'Some code here......
        ' Assumes there is a Textbox named Textbox1 on a form named MySecondForm
        MySecondForm.Textbox1.Text = "Something special"
    End If
End Sub