1 Ανοίξτε το Microsoft Visual Basic Express , κάντε κλικ στο " New Project ... " στη συνέχεια, επιλέξτε " Windows Forms Application ". Κάντε κλικ στο " OK". 2
διπλό κλικ στο " κουμπί" για την " Toolbox" παράθυρο για να προσθέσετε ένα νέο κουμπί ελέγχου . Κάντε διπλό κλικ στο " κουμπί" και πάλι για να προσθέσετε ένα δεύτερο κουμπί . Κάντε διπλό κλικ στο " DataGridView " για να προσθέσετε ένα νέο στοιχείο ελέγχου του δικτύου . . Κάντε διπλό κλικ στο " Button1 " για να ανοίξει το μάθημα « Form1.vb "
εικόνων 3
αντιγραφή και επικόλληση του παρακάτω κώδικα μέσα στο " Button1_Click " υπορουτίνα :
Dim row0 Όπως String ( ) = { " 1 " , "Computer" , " πούλησε" }
Dim row1 Όπως String ( ) = { " 2 " , "Πληκτρολόγιο " , " Διάρκεια " }
Dim row2 Όπως String ( ) = { " 3 " , "ποντίκι" , " Διάρκεια " }
Dim row3 Όπως String ( ) = { " 4 " , " Monitor " , " Διάρκεια " }
Με Me.DataGridView1.Rows
. Προσθήκη ( row0 )
. Προσθήκη ( row1 )
. Προσθήκη ( row2 )
. Προσθήκη ( row3 )
End With
Η 4
Πληκτρολογήστε το παρακάτω, για να δημιουργήσει το " SetupDataGridView " ρουτίνα που θα προσθέσετε μορφοποίηση και να προσθέσετε κεφαλίδες πεδίο :
Private Sub SetupDataGridView ( )
Me.Controls.Add ( DataGridView1 )
DataGridView1.ColumnCount = 3
Με DataGridView1.ColumnHeadersDefaultCellStyle
. φόντουΙδιότητα = Color.Navy
. ForeColor = Color.White
. Font = New Font ( DataGridView1.Font , FontStyle.Bold )
End With
Με DataGridView1
. RowHeadersVisible = False
. Στήλες ( 0 ) . Name = "ID "
. Στήλες ( 1 ) . Όνομα = " Λεπτομέρειες "
. Στήλες ( 2 ) . Όνομα = "Κατάσταση"
. SelectionMode = DataGridViewSelectionMode.FullRowSelect
. MultiSelect = False
. Dock = DockStyle.Fill
End With
End Sub
5
Κάντε κλικ στο " Form1.vb [ Μελέτη ] " για να δείτε τη φόρμα σε κατάσταση σχεδίασης . Κάντε διπλό κλικ σε οποιοδήποτε σημείο της φόρμας , αλλά όχι για τους ελέγχους . Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα μέσα στο " Form1_Load " υπορουτίνα να καλέσετε τον " SetupDataGridView " υπορουτίνα :
SetupDataGridView ( )
Η
6 Κάντε κλικ στο " Form1.vb [ Μελέτη ] " για να δείτε το έντυπο σε κατάσταση σχεδίασης. Κάντε διπλό κλικ στο " Button2 " για να ανοίξετε το " Button2_Click " υπορουτίνα .
Η 7
αντιγραφή και επικόλληση του παρακάτω κώδικα μέσα " Button2_Click " για να ενημερώσετε το "Status " στο πεδίο " πούλησε" για το " Ποντίκι ".
Με Me.DataGridView1.Rows
. Προϊόν ( 2 ) . κύτταρα ( 2 ) . Value = " ΠΟΥΛΗΘΗΚΕ"
End With
τύπου " F5 " για να τρέξετε το πρόγραμμά σας , στη συνέχεια, κάντε κλικ στο κουμπί " Button1 "για να φορτώσετε τα δεδομένα και « Button2 "για να ενημερώσετε.
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα