Ξεκινήστε το Microsoft Visual Basic Express , κάντε κλικ στο " New Project ... " στο αριστερό τμήμα της οθόνης σας , στη συνέχεια, επιλέξτε " Windows Forms Application ". Κάντε κλικ στο " OK". 2
διπλό κλικ στο " κουμπί" για την " Toolbox" παράθυρο για να προσθέσετε ένα νέο κουμπί ελέγχου . Κάντε διπλό κλικ στο " DataGridView " για να προσθέσετε ένα νέο στοιχείο ελέγχου του δικτύου . Κάντε δεξί κλικ στο " DataGridView " έλεγχο , επιλέξτε "Προσθήκη στήλης ... " για να ανοίξει το " Προσθήκη στήλης " Παράθυρο
εικόνων 3
Επιλέξτε " DataGridViewCheckBoxColumn " δίπλα . "Τύπος : " και κάντε κλικ στο " Προσθήκη ". Κάντε κλικ στο " Κλείσιμο ". Έχετε μόλις προστεθεί η πρώτη στήλη να περιλαμβάνουν πλαίσια ελέγχου .
Η
4 Κάντε διπλό κλικ στο " Button1 " για να ανοίξει το μάθημα « Form1.vb " . Πατήστε το πλήκτρο " Ctrl " και " A " και στη συνέχεια πατήστε το κουμπί " Διαγραφή " για να αφαιρέσετε όλα τα υπάρχοντα κώδικα .
5
Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να σας " Form1.vb " ενότητα για να προσθέσετε δεδομένα σε DataGridView σας τον έλεγχο και να εντοπίσει ποια πλαίσια ελέγχου είναι επιλεγμένα .
Δημόσιας Τάξης Φόρμα1
Private Sub Form1_Load ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως System.EventArgs ) _
Λαβές MyBase.Load
DataGridView1.ColumnCount = 3
DataGridView1.RowCount = 5
Με DataGridView1
. Στήλες ( 1 ) . Όνομα = " Επώνυμο "
. Στήλες ( 2 ) . Name = " Θέση "
. σημείο (1, 0 ) . Value = " Gonzalez "
. σημείο (1, 1 ) . Value = " Lopez "
. Item ( 1 , 2 ) . Value = " Garza "
. Item ( 1 , 3 ) . Value = " Ramos "
. σημείο ( 2 , 0 ) . Value = " Doctor"
. Προϊόν ( 2 , 1 ) . Value = " μηχανικός "
. Προϊόν ( 2 , 2 ) . Value = " Δάσκαλος "
. Προϊόν ( 2 , 3 ) . Value = " Διαχειριστής "
End With
End Sub
Private Sub Button1_Click ( ByVal αποστολέα Όπως συστήματος . Object , ByVal e Όπως System.EventArgs ) Λαβές Button1.Click
Dim tmpStr Όπως String
για κάθε γραμμή Όπως DataGridViewRow Σε DataGridView1.Rows
Αν DataGridView1.Rows ( row.Index ) . κύτταρα ( 0 ) . Value = True τότε
tmpStr = tmpStr & row.Index & " , "
End If
Επόμενο
Αν tmpStr <> " " τότε
tmpStr = tmpStr.Substring ( 0 , tmpStr.Length - 1 )
MsgBox ( tmpStr & " ! οι σειρές ελέγχονται " )
End If
End Sub
End Class
Η
6 Πατήστε το πλήκτρο " F5 " για να εκτελέσετε την εφαρμογή σας , στη συνέχεια, πατήστε το κουμπί " Button1 " για να δείξει ένα μήνυμα κουτί με τις σειρές που επιλέγονται .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα