Trigger public sub Test()

[djpaul]

Hello,
My mainform is a MdiParent.
On there i use for example 2 forms.
If both are on the mainform, i want that one of the forms checks if the other form is open and if this is the case he must send an update.
Sofar i have this in the first form:

'If the form 'FinishRepair' is open, send update for the iriscode
                    Dim frm As Form
                    For Each frm In My.Application.OpenForms
 
                        If (frm.Name Is "FinishRepair") Then
                            'Do something
                         End If
 
                    Next

In my second form i have a sub:

Public Sub LoadIrisCode()
 
        Dim Query As String
        Dim Table As New DataTable
        Dim i As Integer
        IrisID.Clear()
 
        Query = "SELECT * FROM iris_code ORDER BY code"
 
        Table = SelectQuery(Query)
 
        While i <> Table.Rows.Count
 
            IrisID.Add(Table.Rows(i).Item("id"))
            CmbIrisCode.Items.Add(Table.Rows(i).Item("code"))
            i = i + 1
 
        End While
 
        Table = Nothing
 
    End Sub

So in the first form, i want that the public sub is activated when he finds the form.
What is the best possible way? Add a public property or....?

Thanks,
Paul

[Joseph Martell]

The LoadIrisCode method is already public, so there is nothing that you need to do to that method definition.

The problem is that My.Application.OpenForms() returns a FormCollection where each member is of type Form. If you want to be able to refer specifically to your LoadIrisCode method, then you need a reference of type FinishRepairForm, or whatever the class name is that you used with your second form. Then the LoadIrisCode would be accessible via that reference. Your LoadIrisCode method will never be available using a Form reference. You can accomplish this with a simple cast:

'If the form 'FinishRepair' is open, send update for the iriscode
                    Dim frm As Form
                    For Each frm In My.Application.OpenForms
 
                        If (frm.Name Is "FinishRepair") Then
                            Dim secondForm as FinishRepairForm = CType(frm, FinishRepairForm)    ' replace "FinishRepairForm" with the class name of your second form.
secondForm.LoadIrisCode()  'this works because you are now using a reference to the specific type of your second form.
                         End If
 
                    Next
 

The above code works no matter what version of the .Net framework you are using. If you are using version 3.5 or later you could go with a different solution. Try exploring the following method:

My.Application.OpenForms().OfType(Of FinsishRepairForm)()

OfType is an extension method of the IEnumerable class and it returns members of a collection of the specified type.

Hope that helps.

[djpaul]

Thanks Joseph!
It works now!

Greetz, Paul