Public Class XXX

    \'计时器对象

    Private WithEvents _CtsTmr As System.Windows.Forms.Timer

    \'要执行的自定义函数名称

    \'用自定义函数，可以避免把类写死，增加复用性

    Private _FunName As String

    \'自定义函数的参数对象数组，

    \'用对象数组，可以适用不同的场合，便于传递

    Private _obj() As Object

    Sub New(ByVal funName As String, Optional ByVal obj() As Object = Nothing)

        _CtsTmr = New System.Windows.Forms.Timer   \'新建对象

        _CtsTmr.Interval = 500       \'默认的间隔

        _FunName = funName       \'确定函数名称

        _obj = obj                  ‘确定参数集

    End Sub

    Private Sub CtsTmr_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles _CtsTmr.Tick

        \'打包自定义函数的参数

        \'次序为：

        \'sender

        \'e

        \'……

        Dim o() As Object = {sender, e}                 \'固定的参数

        If _obj IsNot Nothing Then                         \'如果还用参数

            Dim i As Integer = _obj.Length + 2          \'o 是固定长度，就直接赋值了

            ReDim Preserve o(i - 1)                          \'重新定义数组长度

            _obj.CopyTo(o, 2)                                  \'将参数数组复制到o数组

        End If

        \'调用自定义函数，传递参数

        Foxtable.Functions.Execute(_FunName, o)         \'调用自定义函数

    End Sub

    \'返回计时器，用于各种设置

    Public ReadOnly Property CtsTmr As System.Windows.Forms.Timer

        Get

            Return _CtsTmr

        End Get

    End Property

End Class

 测试和调用： 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:狐表全局自定义类的简单例子.table