在VB

Question

形式之間共享屬性，我到二者之間傳遞的屬性forms.in窗體2：我已經創建了財產IsFilterEnabled和formmain

Public Property IsFilterEnabled() As Boolean 
     Get 
      Return mIsEnabled 
     End Get 
     Set(ByVal Value As Boolean) 
      mIsEnabled = Value 
     End Set 
    End Property 
    Public Sub FilterButton_Click() Handles FilterButton.Click 
     Dim currentRow As Data.DataRow 
     If vessel_NameComboBox.SelectedIndex > -1 Then 
      mIsEnabled = True 
      formMain.LoadData() 
     End If 
    End Sub 

Formmain

Dim frm2 As New Form2 
If frm2.IsFilterEnabled = True Then End 

數據訪問本在創建form2的新實例時，IsFilterEnabled屬性丟失。如何在formmain中獲取form2的同一實例以訪問該propery

Answer 1

給自己財產的全球範圍內，其他成員之間的共享，通過聲明時，它使用Shared關鍵字。

Public Class Form2 : Inherits Form 

    Public Shared Property MyProperty As Object 

End Class 

然後你就可以隨時隨地訪問共享值：

Public Class Form1 : Inherits Form 

    Form2.MyProperty = "1st Hello World!" 

    Dim f As New Form2 
    f.MyProperty = "2nd Hello World!" 
    f.Show() 
    f.Dispose() 

    MsgBox(Form2.MyProperty.ToString) 

End Class 

Answer 2

在Form2的構造函數中傳遞該屬性。

Public Sub New(enabled As Boolean) 
    InitializeComponent() 

    'Process using enabled arg 
End Sub