Het DataGrid-besturingselement van Microsoft Visual Basic voor . NET ( VB.NET ) toont tabel gegevens op de Windows Forms . De DataGridBoolColumn sub -control creëert de kolom met een selectievakje , dat accepteert en toont waar of onwaar waarden als vertegenwoordiger van het gegevenstype Boolean . Het volgt de BoolValChanged gebeurtenis die optreedt , wanneer het selectievakje waarde op de vorm verandert . De Booleaanse waarde kan veranderen , als u klikt op de cel of druk op de spatiebalk te drukken. U moet de kolom event handler aan de cel om de Booleaanse gegevens van deDataGridbesturingselement in VB.NET halen wijzen . Instructies
1 Klik op de knop 'Start' in Windows en selecteer " Microsoft Visual Studio " uit het menu " Alle Programma's" . Kopen van 2 Klik op de " File ", "Open " en openen VB.NET programma waarin u de Booleaanse gegevens van deDataGridbesturingselement in VB.NET halen .
3 Voeg de volgende code na de " DataGridBoolColumn " lijn in uw VB.NET programma. Public Event
BoolValueChanged _
BoolValueChangedEventHandler Beschermd Overloads
Negeert Sub Edit ( ... ) Me.lockValue
= True
Me.beingEdited = True Me.saveRow = rownum Me.saveValue
= CBool ( _ MyBase.GetColumnValueAtRow
( _ < br
> [ bron ] , rownum ) ) MyBase.Edit ( ... ) End Sub '
bewerken Public Event
BoolValueChanged _
Als BoolValueChangedEventHandler Beschermd Overloads
Negeert Sub Edit ( ... ) = True
Me.beingEdited = True Me.saveRow
Me.lockValue
= rownum Me.saveValue
= CBool ( _ MyBase.GetColumnValueAtRow
( _
[ bron ] , rownum ) ) MyBase.Edit
( . .. ) Bewerken Private Sub End Sub '
ManageBoolValueChanging ( _ ByVal rownum
als Geheel , _ ByVal colNum als Geheel
) op Twitter Dim mousePos _
Point = Me.DataGridTableStyle.DataGrid.PointToClient ( _ Control.MousePosition
) Dim dg
Zoals DataGrid = Me.DataGridTableStyle.DataGrid Dim isClickInCell
zoals Van Boole = _ Control.MouseButtons
= MouseButtons.Left andalso _ dg.GetCellBounds
( dg.CurrentCell ) . Bevat ( mousePos ) op Dim veranderen zoals Van Boole = _
dg.Focused andalso isClickInCell _ orelse GetKeyState
( VK_SPACE ) < 0
Als Niet lockValue andalso _
beingEdited andalso _
veranderende andalso _ saveRow
= rownum dan
saveValue = Niet saveValue lockValue
= False
4 Klik op ' Bestand ', 'Opslaan' om de VB.NET programma waarin u het ophalen van de DataGrid Booleaanse gegevens toegevoegd slaan .
|
