Führen Sie ein Sub auf einem anderen Multi-Instanz-Formular VB.net

Question

Ich habe eine Registerkarte Formular-Layout-Anwendung (VB.net), die ein bestimmtes Formular eine Datagridview, die einen bestimmten Datensatz in einem anderen Formular öffnet. Die Formulare werden wie folgt geöffnet;

public sub OpenRecord() 'Reference. Part of a bigger routine (On Orgional form) 
    Dim NewSnagWindow As New Maint_SnagCard 
    NewSnagWindow.SentFrom = Me 
    MaintraxTabFunctions.TAB_OpenNewTabedForm(Main, NewSnagWindow) 

End Sub 

Public Sub RefreshDGV() 
    'Refresh the DGV here 
End sub 

Public Shared Function TAB_OpenNewTabedForm(sender As System.Object, NewForm As Windows.Forms.Form, Optional AsTab As Boolean = True) As Form 

    If AsTab Then 
     Dim NewTab As New TabPage 
     NewForm.TopLevel = False 
     NewForm.FormBorderStyle = FormBorderStyle.None 
     NewForm.Parent = NewTab 
     NewForm.Dock = DockStyle.Fill 
     NewForm.Visible = True 
     NewTab.Text = NewForm.Text 
     NewTab.Name = NewForm.Name 
     sender.TabPlane.TabPages.Add(NewTab) 
     sender.TabPlane.SelectedTab = NewTab 
    Else 
     NewForm.Show() 
    End If 
    Return NewForm 
End Function 

Ich möchte; Schließen des neuen Formulars (NewSnagWindow) zum Auslösen des RefreshDGV() Sub auf dem ursprünglichen Formular (MaintRecords.Frm). Ich habe mehrere Wege ausprobiert, dies zu nennen. ZB: Ich suche nach allen Instanzen von MaintRecords (dem Browser-Formular) und versuche, es auszulösen usw., und ich kann es einfach nicht zum Laufen bringen.

Der neueste Versuch auf der NewSnagForm war:

Public SentFrom As Object '### SentForm set as 'me' on origional sender form. 

Private Sub SaveAndCloseButton_Click(sender As Object, e As EventArgs) Handles SaveAndCloseButton.Click 

'Do some Saving Data tasks and magic 

    SentFrom.RefreshDGV() 
End sub 

Ich kann es einfach nicht, egal zu feuern, was ich tun. Irgendwelche Ideen irgendjemand? Danke.

Answer 1

die Sie interessieren könnte eine Lösung für Sie sein:

' Main form 
Public Class Form1 

    Public Sub RefreshDGV(sender As Object, e As EventArgs) 
     MessageBox.Show("RefreshDGV") 
    End Sub 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     Dim f As New Form2 
     f.Show(Me) 
    End Sub 

End Class 


' Child form 
Public Class Form2 

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     AddHandler FormClosing, AddressOf Form1.RefreshDGV 
    End Sub 

End Class 

Answer 2

Die Lösung, die ich mit kommen haben, ist wie folgt:

Die tabed Formen, die Formen sind zu stören Ereignisse so konnte ich nicht verwenden sie so, in der Hauptform (die das Tab-Panel hält) habe ich;

Public Class Main 
    Public RefreshMaintCards as Boolean = False 
    '..... 
End Class 

Auf der MainCards Form (Derjenige, der am Ende der dritten Form aufgefrischt werden muss) ...

Public Class MaintRecords 
Private Sub MaintRecords_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    AddHandler Main.TabPlane.GotFocus, AddressOf Me.RefreshTest 
End Sub 

Private Sub RefreshTest() 
    If Main.RefreshOpReq Then 
     RefreshDGV() 
     Main.RefreshMaintCards = False 
    End If 
End Sub 

Private Sub RefreshDGV() 
    '.....Do Refresh 
End Sub 
End Class 

und schließlich am Abschlussformular (diejenige, die ich feuern will die RefreshDGV beim Schließen ....

Private Sub SaveAndCloseButton_Click(sender As Object, e As EventArgs) Handles SaveAndCloseButton.Click 

    Main.RefreshMaintCards = True 

    TabFunctions.CloseME(Me) 'Closes the tab 
End Sub 

der Zweck der RefreshTest() ist nur die Unter RefreshDGV() Brennen zu stoppen, wenn andere Tabs geschlossen werden. (Just reduzieren Daten xfer Gemeinkosten)