如何從原始Form1調用New Form1中的Sub / Function？

Question

更新：
Frm1A as new Form from Form1 。

我只想在Form1使用MainCal_Click來訂購所有新表單以使用每個表單的Sub Cal 。

Class Form1

  Dim Data as integer

  Sub Cal(byval x as integer)
     Data = Data + x
  End Sub

  Private Sub LoadOthForm_Click() 'Every time to create new Form when Click 
    Dim Frm1A as New Form1
    Frm1A.text = "Form1"..."Form2"... 'May 100+ Form  
    Frm1A.Show       
  End Sub

  Private Sub MainCal_Click() 'When click, it will order all new open form run Sub Cal()
    Data = 100
    For each frm as Form in Application.OpenForm
      if frm.Text = "From1" then
          frm.Cal(5) .......**** 'What code that new From can use Sub Cal ()? ****
      End if
      if frm.Text = "From2" then
          frm.Cal(15)
      End if
    Next
  End Sub

End Class

Answer 1

我碰巧在Form3上，但是它和Form1一樣。 您需要引用所創建的新表單，以便在其上調用方法。 我在類級別制作了表單變量，因此可以在LoadOthForm_Click和MainCal_Click方法中使用它們。 您已經為新表單實例指定了Name屬性，因此無法通過這種方式找到它們。 您需要為每個表單設置Data屬性，因為每個表單都有自己的Data屬性。 它是一個類級別字段，而不是全局字段。 它添加了一個標簽來顯示Cal方法的結果，以證明表單正在運行該方法。

Public Class Form3
    Dim Data As Integer
    Dim Frm1A As Form3
    Dim Frm1B As Form3
    Dim Frm1C As Form3
    Sub Cal(ByVal x As Integer)
        Data = Data + x
        Label1.Text = Data.ToString
    End Sub

    Private Sub MainCal_Click(sender As Object, e As EventArgs) Handles MainCal.Click
        Frm1A.Data = 100
        Frm1B.Data = 100
        Frm1A.Cal(5)
        Frm1B.Cal(15)
    End Sub

    Private Sub LoadOthForm_Click(sender As Object, e As EventArgs) Handles LoadOthForm.Click
        Frm1A = New Form3()
        Frm1B = New Form3()
        Frm1C = New Form3()
        Frm1A.Show()
        Frm1B.Show()
        Frm1C.Show()
    End Sub
End Class

Answer 2

這怎么樣？

Class Form1

    Private Data As Integer

    Sub Cal(ByVal x As Integer)
        Data = Data + x
        MsgBox(String.Format("{0}:{1}", Me.Text, Data.ToString))
    End Sub

    Private Sub LoadOthForm_Click(sender As Object, e As EventArgs) Handles LoadOthForm.Click
        For i = 1 To 10
            Dim f As New Form1
            f.Text = "FormA" + i.ToString
            f.Show()
        Next
    End Sub

    Private Sub MainCal_Click(sender As Object, e As EventArgs) Handles MainCal.Click
        Data = 100
        For Each frm As Form In Application.OpenForms
            If frm.Text = "FormA1" Then
                CType(frm, Form1).Cal(5)
            End If
            If frm.Text = "FormA2" Then
                CType(frm, Form1).Cal(15)
            End If
        Next
    End Sub

End Class