την εφαρμογή Microsoft Visual Studio , κάντε κλικ στο " New Project" από το αριστερό τμήμα του παραθύρου της οθόνης του υπολογιστή σας . Άνοιγμα " Visual Basic " κάτω " Εγκατεστημένα πρότυπα " και κάντε κλικ στο " Windows. " Κάντε διπλό κλικ στο " Windows Forms Application " από το κέντρο του παραθύρου διαλόγου για να δημιουργήσετε ένα νέο έργο Windows Forms . 2
Scroll κάτω από το παράθυρο Εργαλειοθήκη από το αριστερό παράθυρο της οθόνης του υπολογιστή σας και κάντε διπλό κλικ στο " DataGridView " για να το προσθέσετε στη φόρμα σας . Κάντε διπλό κλικ στο " κουμπί" για να προσθέσετε ένα νέο κουμπί στη φόρμα σας .
Εικόνων 3
διπλό κλικ στη φόρμα για να δημιουργήσετε ένα συμβάν φόρτωσης της φόρμας και προσθέστε τον παρακάτω κώδικα για να προσθέσετε δεδομένα στη DataGridView ελέγχου :
Dim GRW As String ( ) = { " 0 " , " πουκάμισο "} Dim gRw1 As String ( ) = { " 1 " , " παντελόνια " } Dim gRw2 As String ( ) = { " 2 " , "Κάλτσες " } Dim gRw3 As String ( ) = { " 3 " , " φούστα" } DataGridView1.ColumnCount = 2With DataGridView1.RowHeadersVisible = False.Columns ( 0 ) . Name = " ID " . Στήλες ( 1 ) . Όνομα = " Ρουχισμός " End WithWith Me.DataGridView1.Rows.Add ( GRW ) . Προσθήκη ( gRw1 ) . Προσθήκη ( gRw2 ) . Προσθήκη ( gRw3 ) Τέλος με τη
4
Επιστρέψτε στην σχεδίαση της φόρμας και κάντε διπλό κλικ στο " Button1 " για να δημιουργήσετε ένα συμβάν κλικ του κουμπιού . Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να δημιουργήσετε ένα DataSet και γεμίστε το με τα στοιχεία από τον έλεγχο DataGridView :
Dim dSet Όπως New DataSetdSet.Tables.Add ( « πίνακας») Dim clm Όπως System.Data.DataColumnFor Each ClmDGV Όπως DataGridViewColumn Σε Me.DataGridView1.Columnsclm = Νέα System.Data.DataColumn ( ClmDGV.Name ) dSet.Tables ( « πίνακας») . Columns.Add ( clm ) Επόμενο
Dim Drow Όπως System.Data . DataRowDim clmCnt As Integer = Me.DataGridView1.Columns.Count - 1Για iCnt As Integer = 0 Για να Me.DataGridView1.Rows.Count - . 1dRow = dSet.Tables ( « πίνακας») Rows.AddFor Κάθε fieldClmn Όπως DataGridViewColumn In Me . DataGridView1.ColumnsdRow.Item ( fieldClmn.Index ) = Me.DataGridView1.Rows.Item ( iCnt ) . κύτταρα ( fieldClmn.Index ) . ValueNextNext
5
Πατήστε το " F5 " για να τρέξετε το πρόγραμμά σας και κάντε κλικ στο κουμπί " Button1 ".
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα