Veta hur man konfigurerar ett rutnät kontroll i Microsoft Visual Basic.NET , eller VB.NET , kan hjälpa dig att göra flexibla Windows-program . Ett rutnät kontrollen kan användas på olika sätt , såsom visning av data från en databas eller helt enkelt laddar data dynamiskt. Ett rutnät kontroll visar data i ett tabellformat som liknar en databas tabell . VB.NET ger programmeraren möjlighet att även lägga kryssrutor till en kolumn för ytterligare data manipulation . Du kan konfigurera ett rutnät kontroll programmässigt med VB.NET . Instruktioner
1
Starta Microsoft Visual Basic Express , klicka på " Nytt projekt " i den vänstra rutan på skärmen och välj sedan " Windows Forms Application . " Klicka på " OK . "
2
Dubbelklicka på " knappen " på " Toolbox " rutan för att lägga till en ny knapp kontroll . Dubbelklicka på " DataGridView " för att lägga till ett nytt rutnät kontroll . Högerklicka på " DataGridView " kontroll , välj " Redigera kolumner " för att öppna " Lägg till kolumn " Window . Klicka på " Lägg till ".
3
Välj " DataGridViewCheckBoxColumn " bredvid " Typ : " och klicka sedan på " Add " för att lägga till den första kolumnen som en kryssruta kolumn . Klicka på " Stäng ".
4
Dubbelklicka på " Button1 " för att öppna " Form1.vb " modul . Skriv följande i den första raden i programmet :
Imports System.Data.OleDb
5
Kopiera och klistra in följande under " Button1_Click " för att göra en databas anslutning :
Dim myConString As String
myConString = " Provider = Microsoft.ACE.OLEDB.12.0 , Data Source = C : \\ Northwind 2007.accdb "
Dim connOledb Som OleDbConnection = Ny OleDbConnection
Redigera följande kodrad och ange sökvägen och namnet på din databas :
C : \\ Northwind 2007.accdb
6
skriv följande för att förklara din dataadapter och datavariabler set :
Dim Dadapter som OleDbDataAdapter
Dim DStäll som DataSet
7
Skriv följande för att söka i tabellen "employees" :
connOledb.ConnectionString = myConString
Dadapter = Ny OleDbDataAdapter ( " SELECT Anställda * från anställda , . " , connOledb ) katalog
Redigera följande text och typ din fråga :
utvalda anställda * från anställda ,
8
Skriv följande för att hämta data från frågan och lägga till den i Data Grid View kontroll : .
DStäll = New DataSet
Dadapter.Fill ( DStäll , "Anställda" ) katalog
Me.DataGridView1
. DataSource = DSet.Tables ( " anställda " ) katalog
End With
connOledb.Close ( )
9
Skriv följande för att ändra teckensnitt och färg egenskaper Data Grid View kontroll :
med mig . DataGridView1
. BackgroundColor = Color.Azure
. ForeColor = Color.Black
End With
Me.DataGridView1.Rows
. Post ( 1 ) . Celler ( 2 ) . Style.BackColor = Color.Green
. punkt ( 1 ) . Celler ( 2 ) . Style.ForeColor = Color.white
. Punkt ( 1 ) . Cells ( 1 ) . Style.Font = New Font ( " BlippoBlackEF " , 10 ) katalog
End With Addera
