Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte program Microsoft Visual Basic Express , kliknite na tlačidlo " Nový projekt ... " potom vyberte "Windows Forms . " Kliknite na tlačidlo " OK " .
2
Double - kliknite na " tlačidlo " na " Toolbox " paneli pridať nový ovládací prvok tlačidla . Double - kliknite znovu na " tlačidlo " pridať druhé tlačidlo . Double - kliknite na " DataGridView " pre pridanie nového ovládacieho prvku mriežky . . Double - kliknite na " Button1 " otvorte modul " Form1.vb "
3
Skopírujte a vložte nasledujúci kód vnútri " Button1_Click " podprogram :
Dim row0 as String ( ) = { " 1 " , " Počítač " , " Predané " }
Dim row1 as String ( ) = { " 2 " , " Keyboard " , " police " , }
Dim row2 As String ( ) = { " 3 " , " myš " , " police " }
Dim row3 As String ( ) = { " 4 " , " Monitor " , " police " }
S Me.DataGridView1.Rows
. Pridať ( row0 )
. Add ( ROW1 )
. Add ( ROW2 )
. Pridať ( row3 )
End With
4
Zadajte nasledujúci vytvoriť " SetupDataGridView " podprogram , ktorý bude pridať formátovanie a pridať hlavičky poľa :
Private Sub SetupDataGridView ( )
Me.Controls.Add ( DataGridView1 )
DataGridView1.ColumnCount = 3
S DataGridView1.ColumnHeadersDefaultCellStyle
. BackColor = Color.Navy
. ForeColor = Color.White
. Font = New Font ( DataGridView1.Font , FontStyle.Bold )
End With
S DataGridView1
. RowHeadersVisible = False
. Columns ( 0 ) . Name = " ID "
. Columns ( 1 ) . Name = " Popis "
. Columns ( 2 ) . Name = " Status "
. SelectionMode = DataGridViewSelectionMode.FullRowSelect
. MultiSelect = False
. Dock = DockStyle.Fill
End With
End Sub
5
Kliknite na " Form1.vb [ design ] " pre zobrazenie formulára v režime návrhu . Double - kliknite na ľubovoľné miesto na formulári , ale nie na ovládacie prvky . Skopírujte a vložte nasledujúci kód vnútri " Form1_Load " podprogram volať " SetupDataGridView " podprogram :
SetupDataGridView ( )
6
Kliknutím na tlačidlo " Form1.vb [ design ] " pre zobrazenie formulár v návrhovom režime . Double - kliknite na " Button2 " otvoriť " Button2_Click " podprogram .
7
Skopírujte a vložte nasledujúci kód vnútri " Button2_Click " aktualizovať pole " Stav " na " Predané " pre " Mouse " .
S Me.DataGridView1.Rows
. bod ( 2 ) . Cells ( 2 ) . Value = " PREDANÉ "
End With
Press " F5 " pre spustenie programu , kliknite na tlačidlo " Button1 " načítať dáta a " Button2 " ho aktualizovať .