Передача параметров между двумя формами в VB.Net

Question

В настоящее время в моем приложении имеется около 5 форм. Я создаю 6-ю форму - frmSummary, однако, я хотел бы иметь доступ к ней из всех форм. В frmSummary я планирую добавить DataGridView, где я буду показывать данные, относящиеся к этой форме. Я имею в виду, что я должен либо создать глобальную переменную, такие как

dim FrmName as String 

В каждой форме я бы кнопку cmdSummary так, что на click_event, я хотел бы сделать что-то вроде

frmName ="CustomerInfo" 

В настоящее время путь мое приложение устанавливается, что я в MDIForm ВПО и в ней, каждая форма является ребенком так открывать новые формы я сделать что-то вроде ...

Private Sub cmdSummary_Click(sender As Object, e As EventArgs) Handles cmdSummary.Click 
    Dim NewMDIChild As New frmClientEligibilityReferral() 

    frmName = "CustomerInfo" --since this will be comeing from frmCustomerInfo 
    NewMDIChild.MdiParent = MDIform1 
    NewMDIChild.Show() 
    MDIForm1.Show() 

End Sub 

так что я сделать что-то подобное, что на открытии моего пе w форма. Мой вопрос, как я могу передать параметр в моей форме frmSummary .... вот в настоящее время то, что я пытаюсь выполнить ....

Private Sub FrmSummary_Load(sender As Object, e As EventArgs) Handles Me.Load 

    Me.MdiParent = MDIForm1 

    InitializeComponent() 

'Here I want to call a function to load the datagridView(with g_frmName)see below... 
    call LoadDataGrid(frmName) 
End Sub 

Это что-то вроде этого смарт-идея? Или мне/я могу напрямую вызвать функцию из предыдущей формы? Просто пытаясь понять, нахожусь ли я на правильном пути, если нет, как я могу сделать это по-хорошему?

Answer 1

Если есть только один frmSummary, вы можете сделать это singleton.

В frmSummary, поместите следующий код:

Private Shared _instance As frmSummary 

Private Sub New() 
    ' This call is required by the designer. 
    InitializeComponent() 
    ' Add any initialization after the InitializeComponent() call. 
End Sub 

Public Shared Function GetInstance() As frmSummary 
    If _instance Is Nothing Then 
     _instance = New frmSummary() 
    End If 
    Return _instance 
End Function 

Public Sub PutDataInGrid(data As Object) 
    Me.DataGridView1.' put data in it 
End Sub 

И вы сможете получить доступ от других форм, как этот

Dim myFrmSummary = frmSummary.GetInstance() 
myFrmSummary.PutDataInGrid(myData) 

Answer 2

Если я правильно понял вопрос правильно ....

Вы можете просто установить необходимые параметры в подписи объявления New (где должно быть InitializeComponent()). В вашей форме объявите переменные и установите по одному для каждого из значений параметров и настройте форму таким образом.

Примером может быть;

Public Class frmSummary 

Dim var1 as String = "" 
Dim var2 as Boolean = True 

Public Sub New(ByVal parameter1 as String, ByVal parameter2 As Boolean) 

    var1 = parameter1 
    var2 = parameter2 

InitializeComponent() 


End Sub 

Private Sub frmSummary_Load(sender as Object, e As EventArgs) Handles MyBase.Load 

    If var1 = "This String" Then 
    If var2 = False Then 
    sql = "SELECT * FROM myTable" 
     ' Rest of your code to get the DGV data 
    DataGridView1.DataSource = Dt 
    Else 
    End If 
    End If 

End Sub 

Опять же, возможно, я неправильно понял вопрос, поэтому извиняюсь, если это так.