1 Κάντε κλικ στο κουμπί " Έναρξη", " Όλα τα προγράμματα " και " Visual Basic 6 " για να ανοίξει VB6.0 . Κάντε κλικ στο " Αρχείο ", " New Project" και " ActiveX DLL " για να δημιουργήσετε ένα αρχείο DLL ActiveX . Αλλάξτε το όνομα του έργου στο " dllfile " στο παράθυρο ιδιοτήτων. Κάντε κλικ στο κουμπί " Αποθήκευση" για να αποθηκεύσετε το έργο στον τοπικό υπολογιστή σας 2
Κάντε κλικ στο " Project" και "Αναφορές " για να προσθέσετε αναφορές του Excel στον ήδη υπάρχοντα κατάλογο αναφοράς : . C : \\ Program Files \\ Microsoft Office \\ Office11 \\ Excel.exe . Αυτό έχει την αναφορά που έχει συσταθεί για το Microsoft Excel Object Library
εικόνων 3
Κάντε κλικ dllfile.vb για την " Εξερεύνηση των λύσεων " και πληκτρολογήστε τον ακόλουθο κώδικα μετά το " Option Explicit δήλωση": . Εφαρμόζει AddInDesignObjects . IDTExtensibility2
Η 4
Δημιουργήστε μια νέα λειτουργική μονάδα κλάσης κάνοντας δεξί κλικ στο όνομα του έργου , και επιλέξτε Εισάγετε τον παρακάτω κωδικό « νέα τάξη». : Επιλογή ExplicitOption Σύγκριση TextPrivate WithEvents pExcelApp Όπως Excel.ApplicationFriend Property Get ExcelApp ( ) Όπως Excel.ApplicationSet ExcelApp = pExcelAppEnd PropertyThis μονάδα κλάσης ορίζει Excel γεγονότα και την εφαρμογή . Κάντε κλικ στο " Αρχείο ", " Προσθήκη Project" και "Standard EXE " για να το υπολογίσουν . Εντοπίστε το αρχείο τηρούνται από όπου έχετε αποθηκεύσει το έργο σας .
5
Κάντε κλικ στο " Έναρξη", " Όλα τα προγράμματα " και " VC + + . " Κάντε κλικ στο κουμπί " Νέα " και "Project " για να δημιουργήσετε ένα νέο έργο . Κάντε κλικ στο " Form1.vc » και περιλαμβάνει το αρχείο dll : # include " dllfile.dll "
Η
6 Τοποθετήστε το DLL στη μνήμη και να δημιουργήσετε μια παρουσία της: HINSTANCE Hlib = LoadLibrary ( " dllfile . dll " ) ? αν ( Hlib == NULL) { cout <<" ΣΦΑΛΜΑ : Δεν είναι δυνατή η φόρτωση της βιβλιοθήκης " < Αναζήτηση μέσα από το αρχείο DLL και να βρει τη διεύθυνση των λειτουργιών : TestFunc = ( cfunc ) GetProcAddress ( ( HMODULE ) Hlib , " TestFunc ")? RetInt = ( ifunc ) GetProcAddress ( ( HMODULE ) Hlib , " RetInt ")?
Η
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα