Ako načítať logický Údaje o DataGrid pre VB.NET

. Ovládací prvok DataGrid Microsoft Visual Basic for NET ( VB.NET ) zobrazuje dáta tabuľky na Windows Forms . DataGridBoolColumn sub - control vytvorí stĺpec s zaškrtávacie políčko , ktoré prijíma a zobrazuje skutočné alebo falošné hodnoty predstavujúce logickú dátový typ . To sleduje udalosti BoolValChanged , že dochádza , keď je zaškrtávacie políčko hodnota na zmeny formulára . Logická hodnota môže zmeniť , ak kliknete do bunky , alebo stlačením medzerníka kľúč . Je potrebné upozorniť na stĺpec obslužné rutiny udalosti na bunky , aby sa načítať logické údaje o ovládacom prvku údajová mriežka v VB.NET . Pokyny dovolená 1

Kliknite na tlačidlo " Štart " vo Windows a vyberte " Microsoft Visual Studio " z menu " Všetky programy " .
2

Kliknite na " Súbor " " Otvoriť " a otvorený program , VB.NET , v ktorom chcete načítať logické údaje o ovládacom prvku údajová mriežka v VB.NET .
3

Pridajte nasledujúci kód po " DataGridBoolColumn " riadku do svojho programu VB.NET .

Verejné BoolValueChanged udalosti _

BoolValueChangedEventHandler

Chránené na preťaženie Prepíše Sub Edit ( ... ) a

Me.lockValue = TRUE

Me.beingEdited = TRUE

Me.saveRow = ROWNUM

Me.saveValue = CBool ​​( _

MyBase.GetColumnValueAtRow ( _

[ zdroj ] , ROWNUM ) )

MyBase.Edit ( ... ) a

End Sub ' Upraviť

Public Event BoolValueChanged _

Ako BoolValueChangedEventHandler

Chránené na preťaženie Prepíše Sub Edit ( ... ) a

Me.lockValue = TRUE

Me.beingEdited = TRUE

Me.saveRow = ROWNUM

Me.saveValue = CBool ​​( _

MyBase.GetColumnValueAtRow ( _

[ zdroj ] , ROWNUM ) )

MyBase.Edit ( . .. )

End Sub ' Upraviť

Private Sub ManageBoolValueChanging ( _

byVal ROWNUM As Integer , _ byVal

colNum As Integer )

Dim MousePos _

Point = Me.DataGridTableStyle.DataGrid.PointToClient ( _

Control.MousePosition )

Dim dg Ako DataGrid = Me.DataGridTableStyle.DataGrid

Dim isClickInCell As Boolean = _

Control.MouseButtons = MouseButtons.Left AndAlso _

dg.GetCellBounds ( dg.CurrentCell ) . Obsahuje ( MousePos )

Dim výmena As Boolean = _

dg.Focused AndAlso isClickInCell _

OrElse GetKeyState ( VK_SPACE ) < 0

Ak nie lockValue andalso _

beingEdited AndAlso _

mení andalso _

saveRow = ROWNUM Potom

saveValue = Nie saveValue

lockValue = False
4

Kliknite na " Súbor " , " Uložiť " pre uloženie programu VB.NET , v ktorej ste pridali načítanie dát DataGrid boolovských .

• Predchádzajúca strana: Ako zistiť , ktorý je začiarknuté políčko vo Visual Basic Net . 
• Ďalšia strana: Ako sa pripojiť k MS SQL pomocou VBScript