Πώς να Τοποθετήστε ένα Combo σε DataGrid σε VB6

Ένα κουτί Combo είναι ένα στοιχείο ελέγχου που επιτρέπει στο χρήστη να επιλέξει από μια προκαθορισμένη λίστα των αποδεκτών τιμών . Το DataGrid είναι ένα ξεχωριστό στοιχείο ελέγχου που εμφανίζει δεδομένα της βάσης δεδομένων του χρήστη με τον ίδιο τρόπο όπως και ο κύριος του έργου βλέπει τα δεδομένα όταν αναζητούν άμεσα σε πίνακες της βάσης δεδομένων . Ο έλεγχος Σύνθετο πλαίσιο δεν μπορεί να τοποθετηθεί στον έλεγχο DataGrid . Ωστόσο , μπορούμε να θέσουμε το πλαίσιο Combo "πάνω από μία" ειδική στήλη του ελέγχου DataGrid για να το κάνει να φαίνεται σαν να είναι μέρος του ίδιου του ελέγχου . Οδηγίες
Η

1 Δημιουργήστε ένα νέο Standard EXE έργο της Visual Basic . Από το μενού , επιλέξτε "Project ", " στοιχεία". Κάντε κλικ στο πλαίσιο ελέγχου δίπλα στο " Microsoft DataGrid ελέγχου 6.0 ( OLE ) . " Κάντε κλικ στο κουμπί " OK " για να αποθηκεύσετε και να κλείσει. Από το μενού , επιλέξτε "Project ", "Αναφορές ". Κάντε κλικ στο πλαίσιο ελέγχου δίπλα στο " Microsoft ActiveX DataObjects Βιβλιοθήκη 2.x , " όπου "x " είναι ο μεγαλύτερος αριθμός διαθέσιμων . Κάντε κλικ στο κουμπί "OK " για να αποθηκεύσετε και να κλείσει. 2

Προσθέστε ένα νέο στοιχείο ελέγχου DataGrid στο " Φόρμα1 " που δημιουργείται από προεπιλογή . Το προεπιλεγμένο όνομα θα είναι « DataGrid1 . " Διαμορφώστε το αρχείο προέλευσης δεδομένων και άλλες ιδιότητες της « DataGrid1 " ελέγχου , έτσι ώστε να εμφανίζεται η σωστή πληροφόρηση .
Εικόνων 3

Προσθήκη ενός στοιχείου ελέγχου Σύνθετο πλαίσιο με το " Form1 " και ρυθμίστε ορατή η ιδιοκτησία τους " Λάθος ". Πάρτε την πρώτη θέση , το ύψος γραμμής και το πλάτος στήλης του κελιού στο " DataGrid1 " που θέλετε να εμφανιστεί το παράθυρο Combo και να αποθηκεύουν κάθε μία από αυτές τις αξίες σε ξεχωριστά ακέραιες μεταβλητές .
Η

4 Ρυθμίστε τη θέση τιμές για το κρυφό σύνθετο πλαίσιο με εκείνες του κυττάρου έχει πατήσει ο χρήστης στην " DataGrid1 » και έθεσε το σύνθετο πλαίσιο ορατό ιδιοκτησίας "True ". Αυτό θα τοποθετήσετε το πλαίσιο Combo απευθείας στην κορυφή του κελιού στο " DataGrid1 » και ο χρήστης θα δει μια drop-down λίστα τιμών για να επιλέξετε από .
5

κώδικα το κλικ εκδήλωση του Σύνθετο πλαίσιο έτσι ώστε όταν ο χρήστης κάνει μια επιλογή , θα ενημερώσετε τα περιεχόμενα του κελιού στο " DataGrid1 » με τη νέα τιμή που έχει επιλεγεί από το κουτί Combo :

Εάν cmbMyCombo.Visible = True τότε

DataGrid1 . Στήλες ( 2 ) . Text = cmbMyCombo.Text

End If
Η
εικόνων