Πώς να ανακτήσετε τα δεδομένα της Boolean DataGrid για VB.NET

. Ο έλεγχος DataGrid της Microsoft Visual Basic for NET ( VB.NET ) εμφανίζει πίνακα δεδομένων για τα έντυπα των Windows . Η DataGridBoolColumn υποελέγχου δημιουργεί τη στήλη με ένα πλαίσιο ελέγχου , το οποίο δέχεται και εμφανίζει αληθείς ή ψευδείς τιμές για την εκπροσώπηση της Boolean τύπο δεδομένων . Θα παρακολουθεί την εκδήλωση BoolValChanged που συμβαίνει , όταν η τιμή του πλαισίου ελέγχου για τις αλλαγές της μορφής . Η τιμή Boolean μπορεί να αλλάξει , εάν κάνετε κλικ στο κελί , ή πατήστε το πλήκτρο space. Θα πρέπει να επισημάνω το γεγονός χειριστή στήλης στο κελί προκειμένου να ανακτήσετε τα δεδομένα της Boolean ελέγχου DataGrid σε VB.NET . Οδηγίες
Η

1 Κάντε κλικ στο κουμπί " Έναρξη " των Windows και επιλέξτε "Microsoft Visual Studio " από το μενού " Όλα τα προγράμματα " . 2

Κάντε κλικ στο "Αρχείο " "Άνοιγμα" και ανοιχτό πρόγραμμα VB.NET στο οποίο θέλετε να ανακτήσετε τα δεδομένα της Boolean ελέγχου DataGrid σε VB.NET .
εικόνων 3

Προσθέστε τον ακόλουθο κώδικα μετά τη γραμμή " DataGridBoolColumn " στο πρόγραμμά σας VB.NET .

δημόσια εκδήλωση BoolValueChanged _

Όπως BoolValueChangedEventHandler

Προστατεύονται υπερφορτίσεων Παρακάμπτει Sub Edit ( ... )

Me.lockValue = True

Me.beingEdited = True

Me.saveRow = rownum

Me.saveValue = CBool ​​( _

MyBase.GetColumnValueAtRow ( _

[ πηγή ] , rownum ) )

MyBase.Edit ( ... )

End Sub 'Επεξεργασία

δημόσια εκδήλωση BoolValueChanged _

Όπως BoolValueChangedEventHandler

Προστατεύονται υπερφορτίσεων Παρακάμπτει Sub Edit ( ... )

Me.lockValue = True

Me.beingEdited = True

Me.saveRow = rownum

Me.saveValue = CBool ​​( _

MyBase.GetColumnValueAtRow ( _

[ πηγή ] , rownum ) )

MyBase.Edit ( . .. )

End Sub 'Επεξεργασία

Private Sub ManageBoolValueChanging ( _

ByVal rownum As Integer , _

ByVal colNum As Integer )

Δημ. mousePos _

Όπως Point = Me.DataGridTableStyle.DataGrid.PointToClient ( _

Control.MousePosition )

Dim dg Όπως DataGrid = Me.DataGridTableStyle.DataGrid

Dim isClickInCell Όπως Boolean = _

Control.MouseButtons = MouseButtons.Left andalso _

dg.GetCellBounds ( dg.CurrentCell ) . Περιέχει ( mousePos )

Dim αλλαγή Όπως Boolean = _

dg.Focused andalso isClickInCell _

orelse GetKeyState ( VK_SPACE ) <0

If Not lockValue andalso _

beingEdited andalso _

αλλαγή andalso _

saveRow = rownum τότε

saveValue = Δεν saveValue

lockValue = False
Η 4

Κάντε κλικ στο " Αρχείο ", " Αποθήκευση" για να αποθηκεύσετε το πρόγραμμα VB.NET στο οποίο έχετε προσθέσει την ανάκτηση των δεδομένων DataGrid Boolean .
Η
εικόνων