A Study of Gage Repeatability and Reproducibility for Automated Measuring Systems using VB.NET

'Author  : Syed Shanu
'Company : Telstar-Hommel
'Date    : 2007-06-22
'Description :This Class is  created for Datagrid column and row no return for changing the coloumn color,
Option Strict Off
Option Explicit On 

Imports Microsoft.VisualBasic
Imports System

Namespace ThetaMLA


    Public Class DataGridEnableEventArgs
        Inherits EventArgs
        Private _column As Integer
        Private _row As Integer
        Private _enablevalue As Boolean
        'Fields
        'Constructors
        'Methods
        Public Sub New(ByVal row As Integer, ByVal col As Integer, ByVal val As Boolean)
            MyBase.New()
            _row = row
            _column = col
            _enablevalue = val

        End Sub
        Public Property Column() As Integer
            Get

                Return _column

            End Get
            Set(ByVal Value As Integer)

                _column = Value

            End Set
        End Property
        Public Property Row() As Integer
            Get

                Return _row

            End Get
            Set(ByVal Value As Integer)

                _row = Value

            End Set
        End Property
        Public Property EnableValue() As Boolean
            Get

                Return _enablevalue

            End Get
            Set(ByVal Value As Boolean)

                _enablevalue = Value

            End Set
        End Property
    End Class
End Namespace