VB.Net將值傳遞到另一種形式

Question

我想知道如何將值從form1傳遞給另一個表單的public子。 問題在於它說：“在這種情況下，由於它是'Private'，因此無法使用。”

我嘗試將Form 1 Private Sub更改為Public Sub，但仍然存在相同的錯誤。 我該如何運作？

Public Class Form1
Dim test(), text1 As String
Const asd = "abcabc"

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    text1 = Space(LOF(1))
    test = Split(text1, asd)
    HOST = test(1)
End Sub

我想將HOST = test（1）值傳遞給另一種形式

Public Class Form2

Public Sub Check()
    'get the value to here
End Sub

Answer 1

您可以將其作為參數傳遞：

Public Sub Check(valueToCheck as String)
   'get the value to here
End Sub

或在form2上創建一個屬性以接收它：

private _HostOrSomething As String = ""
Friend Property HostOrSomething As String
   Get
        Return _HostOrSomething 
    End Get
    Set(ByVal value As String)
        _HostOrSomething = value
    End Set

在這種情況下，Sub Check可以使用_HostOrSomething，因為它是本地變量。 要使用這些：

HOST = Test(1)
frm2.Check(HOST)

要么

HOST = Test(1)
frm2.HostOrSomething = HOST
frm2.Check

Answer 2

您可以使用全局變量將數據從一個傳遞到另一個

        Dim A As New Integer= 10

在這里，您如何聲明全局類。可以在應用程序中的任何位置定義類。

Public Class GlobalVariables
Public Shared INTver As Integer
End Class

以及如何使用全局變量存儲答案

GlobalVariables.INTver= A

將這些行放在“ privet子”中，就可以訪問WINDOWS應用程序中任何窗體的變量。