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