. 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 (_ < br >
[ 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.
