Aprire Microsoft Visual Basic Express, fare clic "Nuovo progetto ... " quindi selezionare " Applicazione Windows Form ". Fare clic su "OK".
2 Fare doppio clic su "Pulsante" nel riquadro " Casella degli strumenti " per aggiungere un nuovo controllo pulsante . Fare doppio clic su "Pulsante " per aggiungere un secondo pulsante . Fare doppio clic su " DataGridView " per aggiungere un nuovo controllo della griglia . Fare doppio clic su " Button1 " per aprire il modulo " Form1.vb "
3
Copia e incolla il seguente codice all'interno del sottoprogramma " Button1_Click " : .
Dim row0 As String ( ) = { " 1 " , " computer" , " Venduto" }
Dim row1 As String ( ) = { " 2 " , " tastiera " , "ripiano" }
dim row2 As String ( ) = { " 3 " , "mouse " , "ripiano" }
dim Row3 As String ( ) = { " 4" , " monitor " , "ripiano" }
Con Me.DataGridView1.Rows
. Aggiungi ( row0 ) per
. Aggiungi ( row1 ) per
. Aggiungi ( row2 ) per
. Aggiungere ( Row3 ) per
End With
4
Digitare quanto segue per creare il sottoprogramma " SetupDataGridView " che aggiungerà la formattazione e aggiungere intestazioni di campo :
SetupDataGridView private Sub ( )
Me.Controls.Add ( DataGridView1 ) per
DataGridView1.ColumnCount = 3
DataGridView1.ColumnHeadersDefaultCellStyle
. BackColor = Color.Navy
. ForeColor = Color.White
. Font = New Font ( DataGridView1.Font , FontStyle.Bold ) per
End With
DataGridView1
. RowHeadersVisible = False
. Colonne ( 0 ) . name = " ID "
. Colonne ( 1) . Name = " DESC"
. Colonne ( 2 ) . Name = "Stato"
. SelectionMode = DataGridViewSelectionMode.FullRowSelect
. MultiSelect = False
. Dock = DockStyle.Fill
End With < br
End > Sub
5
Click " Form1.vb [ design] " per visualizzare il modulo in modalità progettazione . Fare doppio clic su un punto qualsiasi della forma, ma non nei controlli . Copiare e incollare il seguente codice all'interno del sottoprogramma " Form1 Load " per chiamare il " SetupDataGridView " subroutine :
SetupDataGridView ( ) economici 6
Click " Form1.vb [ Design] " per visualizzare il modulo in modalità progettazione . Fare doppio clic su " Button2 " per aprire il sottoprogramma " Button2_Click " .
7
Copia e incolla il seguente codice dentro " Button2_Click " per aggiornare il campo "Stato" a " Sold " per "Mouse ".
Con Me.DataGridView1.Rows
. articolo ( 2) . Cells ( 2) . Value = " VENDUTO "
End With
Press " F5 " per eseguire il programma , quindi fare clic su " Button1 "per caricare i dati e " Button2 " per aggiornarlo.
Programmazione © www.354353.com