Imports System.Threading

Public Class gridControl
    ''' <summary>测试器句柄,全局唯一</summary>
    Private Shared _object As gridControl
    Private Shared _Grid As FlexCell.Grid
    ''' <summary>初始化测试器线程锁</summary>
    Private Shared ReadOnly InitLock As New Object()

    ''' <summary>
    ''' 创建类单例对象
    ''' </summary>
    ''' <returns></returns>
    Public Shared Function CreateObject(Grid As FlexCell.Grid) As gridControl
        If _object Is Nothing Then
            SyncLock InitLock
                '内存护栏
                Thread.MemoryBarrier()
                If _object Is Nothing Then
                    _object = New gridControl(Grid)
                End If
            End SyncLock
        End If
        Return _object
    End Function
    Private Sub New(Grid As FlexCell.Grid)
        _Grid = Grid
    End Sub


#Region "表格事件" '表格事件

#End Region

#Region "表格样式"

#End Region

#Region "表格控制"  '初始化  增删行列，设置数据

#End Region




End Class