. Le contrôle DataGrid de Microsoft Visual Basic pour NET ( VB.NET ) affiche les données de table sur les Windows Forms . Le DataGridBoolColumn sous- commande crée la colonne avec une case à cocher , qui accepte et affiche les valeurs vraies ou fausses pour représenter le type de données Boolean . Il suit l'événement BoolValChanged qui se produit lorsque la valeur de la case à cocher sur la forme change . La valeur booléenne peut changer , si vous cliquez dans la cellule ou appuyez sur la touche barre d'espace. Vous devez pointer le gestionnaire d'événements de colonne pour la cellule afin de récupérer les données booléennes du contrôle DataGrid en VB.NET . Instructions
1
Cliquez sur le bouton "Démarrer " de Windows et sélectionnez « Microsoft Visual Studio " dans le menu " Tous les programmes" .
2
Cliquez sur le menu "Fichier " et programme ouvert VB.NET "Ouvrir" dans lequel vous souhaitez récupérer les données booléennes du contrôle DataGrid en VB.NET .
3
Ajoutez le code suivant après la ligne " DataGridBoolColumn " dans votre programme VB.NET .
événement public BoolValueChanged _
BoolValueChangedEventHandler
surcharges protégées Overrides Sub Edit ( ... )
Me.lockValue = True
Me.beingEdited = True
Me.saveRow = rowNum
Me.saveValue = CBool (_
MyBase.GetColumnValueAtRow (_ < br >
[source] , rowNum ) )
MyBase.Edit Edit
événement public (...)
End Sub ' BoolValueChanged _
< p > Comme BoolValueChangedEventHandler
surcharges protégées Overrides Sub Edit ( ... )
Me.lockValue = True
Me.beingEdited = True
Me.saveRow = rowNum
Me.saveValue = CBool (_
MyBase.GetColumnValueAtRow (_
[source] , rowNum ) )
MyBase.Edit ( . ..) Modifier
Private Sub
End Sub ' ManageBoolValueChanging (_ ByVal
rowNum As Integer , _ ByVal
colNum As Integer )
Dim MousePos _
point = Me.DataGridTableStyle.DataGrid.PointToClient (_
Control.MousePosition )
Dim dg Comme DataGrid = Me.DataGridTableStyle.DataGrid Photos
Dim isClickInCell As Boolean = _
Control.MouseButtons = MouseButtons.Left AndAlso _
dg.GetCellBounds ( dg.CurrentCell ) . contains ( MousePos )
< p > Dim changer As Boolean = _
dg.Focused AndAlso isClickInCell _
OrElse GetKeyState ( VK_SPACE ) < 0
If Not lockValue AndAlso _
< p > beingEdited AndAlso _
changer AndAlso _
saveRow = rowNum Puis
saveValue = Non saveValue
lockValue = False
4 < p> Cliquez sur " fichier", " enregistrer" pour enregistrer le programme VB.NET dans lequel vous avez ajouté la récupération des données DataGrid booléens.
