Come recuperare i dati booleana di DataGrid per VB.NET

February 18

Come recuperare i dati booleana di DataGrid per VB.NET


Il controllo DataGrid di Microsoft Visual Basic .NET (VB.NET) visualizza i dati della tabella sulle forme di Windows. Il sub-controllo DataGridBoolColumn crea la colonna con una casella di controllo, che accetta e visualizza i valori true o false per rappresentare il tipo di dati booleano. Tiene traccia l'evento BoolValChanged che si verifica, quando il valore casella di controllo sulle modifiche di forma. Il valore booleano può cambiare, se si fa clic nella cella, o premere il tasto barra spaziatrice. È necessario puntare il gestore di eventi della colonna alla cella, al fine di recuperare i dati booleani del controllo DataGrid in VB.NET.

istruzione

1 Fare clic sul pulsante "Start" di Windows e selezionare "Microsoft Visual Studio" dal menu "Tutti i programmi".

2 Fare clic su "File", "Apri" e il programma di VB.NET aperto in cui si desidera recuperare i dati booleani del controllo DataGrid in VB.NET.

3 Aggiungere il seguente codice dopo la riga "DataGridBoolColumn" nel programma VB.NET.

Evento pubblico BoolValueChanged _

As BoolValueChangedEventHandler

Protetto Overloads Overrides Sub Edit (...)

Me.lockValue = True

Me.beingEdited = True

Me.saveRow = rownum

Me.saveValue = CBool ​​(_

MyBase.GetColumnValueAtRow (_

[Fonte], rownum))

MyBase.Edit (...)

End Sub 'Edit

Evento pubblico BoolValueChanged _

As BoolValueChangedEventHandler

Protetto Overloads Overrides Sub Edit (...)

Me.lockValue = True

Me.beingEdited = True

Me.saveRow = rownum

Me.saveValue = CBool ​​(_

MyBase.GetColumnValueAtRow (_

[Fonte], rownum))

MyBase.Edit (...)

End Sub 'Edit

ManageBoolValueChanging Private Sub (_

ByVal rowNum As Integer, _

ByVal colNum As Integer)

MousePos Dim _

Come Point = Me.DataGridTableStyle.DataGrid.PointToClient (_

Control.MousePosition)

Dim dg Come DataGrid = Me.DataGridTableStyle.DataGrid

Dim isClickInCell come booleano = _

Control.MouseButtons = MouseButtons.Left AndAlso _

dg.GetCellBounds (dg.CurrentCell) .Contains (MousePos)

Dim cambiando come booleano = _

dg.Focused AndAlso isClickInCell _

OrElse GetKeyState (VK_SPACE) & lt; 0

Se non lockValue AndAlso _

beingEdited AndAlso _

cambiando AndAlso _

saveRow = rownum Poi

saveValue = Non saveValue

lockValue = False

4 Fare clic su "File", "Salva" per salvare il programma di VB.NET in cui è stato aggiunto il recupero dei dati DataGrid booleani.