Cómo recuperar los datos booleanos de DataGrid para VB.NET

. El control DataGrid de Microsoft Visual Basic para NET ( VB.NET ) muestra datos de la tabla en los formularios de Windows. La subdirectora DataGridBoolColumn crea la columna con una casilla de verificación , que acepta y muestra los valores verdadero o falso para representar el tipo de datos Boolean . Realiza un seguimiento del evento BoolValChanged que se produce cuando el valor de casilla de verificación en la forma cambia . El valor booleano puede cambiar , si hace clic en la celda o presione la tecla barra espaciadora. Es necesario señalar el controlador de eventos columna a la célula con el fin de recuperar los datos booleanos del control DataGrid en VB.NET . Instrucciones
1

clic en el botón " Inicio" de Windows y seleccione " Microsoft Visual Studio " en el menú "Todos los programas " .

2 Haga clic en el "Archivo" "Open" y el programa abierto VB.NET en el que desea recuperar los datos booleanos del control DataGrid en VB.NET .
3

Agregue el siguiente código después de la línea " DataGridBoolColumn " en su programa de VB.NET .

Evento Público BoolValueChanged _

BoolValueChangedEventHandler

sobrecargas Protegidas Anula Sub Edit (... )

Me.lockValue = True

Me.beingEdited = True

Me.saveRow = rownum

Me.saveValue = CBool ​​(_

MyBase.GetColumnValueAtRow (_

[ fuente ] , rownum ))

MyBase.Edit Editar

Evento Público (...)

End Sub ' BoolValueChanged _
< p > Como BoolValueChangedEventHandler

sobrecargas Protegidas Anula Sub Edit (... )

Me.lockValue = True

Me.beingEdited = True

Me.saveRow = rownum

Me.saveValue = CBool ​​(_

MyBase.GetColumnValueAtRow (_

[ fuente ] , rownum ))

MyBase.Edit ( . ..)

End Sub ' Editar

Private Sub ManageBoolValueChanging (_

rownum ByVal As Integer , _ ByVal

numColumna As Integer )

Dim MousePos _

Point = Me.DataGridTableStyle.DataGrid.PointToClient (_

Control.MousePosition )

Dim dg Como DataGrid = Me.DataGridTableStyle.DataGrid

Dim isClickInCell As Boolean = _

Control.MouseButtons = MouseButtons.Left AndAlso _
dg.GetCellBounds

( dg.CurrentCell ) . Contiene ( MousePos )
< p> Dim cambiar As Boolean = _

dg.Focused AndAlso isClickInCell _

OrElse GetKeyState ( VK_SPACE ) < 0

Si No lockValue AndAlso _
< p > beingEdited AndAlso _

cambiar AndAlso _

saveRow = rownum Entonces

saveValue = No saveValue

lockValue = False
4 < p> Haga clic en " archivo", " Guardar" para guardar el programa VB.NET en la que añadió la recuperación de los datos de DataGrid Boolean.