DataGridCheckBoxColumn help

Edited by kunz, 01 August 2014 - 12:52.

Edited by neagu_laurentiu, 01 August 2014 - 13:26.

 kunz, on 06 august 2014 - 09:36, said:

Edited by neagu_laurentiu, 06 August 2014 - 10:26.

 neagu_laurentiu, on 01 august 2014 - 13:12, said:

 neagu_laurentiu, on 06 august 2014 - 10:25, said:

 kunz, on 06 august 2014 - 12:45, said:

Edited by neagu_laurentiu, 06 August 2014 - 13:44.

Public Class Elev
	Implements INotifyPropertyChanged

	Public Event PropertyChanged(sender As Object, e As PropertyChangedEventArgs) Implements INotifyPropertyChanged.PropertyChanged
	Private Sub NotifyPropertyChanged(propertyName As String)
		RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propertyName))
	End Sub

	Private _acceptat As Boolean
	Private _nume As String
	Private _prenume As String

	Public Property Acceptat As Boolean
		Get
			Return _acceptat
		End Get
		Set(value As Boolean)
			If value <> _acceptat Then
				_acceptat = value
				NotifyPropertyChanged("Acceptat")
			End If
		End Set
	End Property

	Public Property Nume As String
		Get
			Return _nume
		End Get
		Set(value As String)
			If value <> _nume Then
				_nume = value
				NotifyPropertyChanged("Nume")
			End If
		End Set
	End Property

	Public Property Prenume As String
		Get
			Return _prenume
		End Get
		Set(value As String)
			If value <> _prenume Then
				_prenume = value
				NotifyPropertyChanged("Prenume")
			End If
		End Set
	End Property
End Class

Dim listaElevi As New BindingList(Of Elev) From {
	New Elev With {.Acceptat = False, .Nume = "Ionescu", .Prenume = "Ion"},
	New Elev With {.Acceptat = True, .Nume = "Ionescu", .Prenume = "Gheorghe"},
	New Elev With {.Acceptat = False, .Nume = "Popescu", .Prenume = "Alin"}
}

For Each elev As Elev In listaElevi
	'ne abonam pentru a fi anunti de vreo schimbare in randul elevilor
	AddHandler elev.PropertyChanged, AddressOf ElevAFostModificat
	'memoram elevul acceptat acum
	If elev.Acceptat Then
		elevAcceptat = elev
	End If
Next

DataGridView1.DataSource = listaElevi

Private Sub ElevAFostModificat(sender As Object, e As PropertyChangedEventArgs)
	'elevul ce a fost modificat e transmis prin sender
	Dim elev = CType(sender, Elev)
	If e.PropertyName = "Acceptat" Then
		's-a modificat campul Acceptat

		If elev.Acceptat Then
			'noul elev e acum acceptat

			If Not elevAcceptat Is Nothing Then
				'alt elev a fost acceptat inainte, acum nu va mai fi
				elevAcceptat.Acceptat = False
			End If

			'noul elev e cel acceptat
			elevAcceptat = elev
		Else
			'elevul nu mai e acceptat
			elevAcceptat = Nothing
		End If
	End If
End Sub

Imports System.ComponentModel

Public Class Form1

	'Elevul acceptat
	Private elevAcceptat As Elev

	Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

		'o lista de elevi
		Dim listaElevi As New BindingList(Of Elev) From {
			New Elev With {.Acceptat = False, .Nume = "Ionescu", .Prenume = "Ion"},
			New Elev With {.Acceptat = True, .Nume = "Ionescu", .Prenume = "Gheorghe"},
			New Elev With {.Acceptat = False, .Nume = "Popescu", .Prenume = "Alin"}
		}

		For Each elev As Elev In listaElevi
			'ne abonam pentru a fi anunti de vreo schimbare in randul elevilor
			AddHandler elev.PropertyChanged, AddressOf ElevAFostModificat
			'memoram elevul acceptat acum
			If elev.Acceptat Then
				elevAcceptat = elev
			End If
		Next

		'gridul primeste lista si se auto-populeaza
		DataGridView1.DataSource = listaElevi
	End Sub

	Private Sub ElevAFostModificat(sender As Object, e As PropertyChangedEventArgs)
		'elevul ce a fost modificat e transmis prin sender
		Dim elev = CType(sender, Elev)
		If e.PropertyName = "Acceptat" Then
			's-a modificat campul Acceptat
			If elev.Acceptat Then
				'noul elev e acum acceptat

				If Not elevAcceptat Is Nothing Then
					'alt elev a fost acceptat inainte, acum nu va mai fi
					elevAcceptat.Acceptat = False
				End If

				'noul elev e cel acceptat
				elevAcceptat = elev
			Else
				'elevul nu mai e acceptat
				elevAcceptat = Nothing
			End If
		End If
	End Sub

End Class

Public Class Elev
	Implements INotifyPropertyChanged

	Public Event PropertyChanged(sender As Object, e As PropertyChangedEventArgs) Implements INotifyPropertyChanged.PropertyChanged
	Private Sub NotifyPropertyChanged(propertyName As String)
		RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propertyName))
	End Sub

	Private _acceptat As Boolean
	Private _nume As String
	Private _prenume As String

	Public Property Acceptat As Boolean
		Get
			Return _acceptat
		End Get
		Set(value As Boolean)
			If value <> _acceptat Then
				_acceptat = value
				NotifyPropertyChanged("Acceptat")
			End If
		End Set
	End Property

	Public Property Nume As String
		Get
			Return _nume
		End Get
		Set(value As String)
			If value <> _nume Then
				_nume = value
				NotifyPropertyChanged("Nume")
			End If
		End Set
	End Property

	Public Property Prenume As String
		Get
			Return _prenume
		End Get
		Set(value As String)
			If value <> _prenume Then
				_prenume = value
				NotifyPropertyChanged("Prenume")
			End If
		End Set
	End Property
End Class