把Form2中的那个函数改为Public级

解决方案 »

  1.   

    同意楼上的分儿:)
    调用的时候记住form2.变量名(函数名)
      

  2.   

    为FORM2设置一些自定义的属性。
      

  3.   

    '''form1 的代码:
    Option ExplicitPublic form1_n As Integer
    Private Sub Form_Load()
        form1_n = 2
    End SubPrivate Sub Command1_Click()
        Load Form2
        Form2.Show
        
    End SubPrivate Sub Timer1_Timer()
        If Form2.form2_n <> form1_n Then
            MsgBox Form2.form2_n
            End
        End If
    End Sub
    '''form2 的代码:
    Option ExplicitPublic form2_n As IntegerPrivate Sub Form_Load()
        form2_n = Form1.form1_n + 1
        Form1.Timer1.Enabled = True
    End Sub
      

  4.   

    form1的timer控件初使化为 enabled = false
      

  5.   

    form2.(对象名)
    把变量设为全局变量
      

  6.   

    谢谢,谢谢各位~~~
    -----------------------------------
    那么怎样才能比较 彻底地 在 form1 控制关闭 form2 呢?谢谢,新手,最好给出代码~~~
      

  7.   

    最苯的方法是Private Sub Command1_Click()
    Form2.Show
    Form2.Command1 = TrueEnd Sub