clic su "Start ", " Tutti i programmi " e " Visual Basic 6 " per aprire Visual Basic 6.0 . Fare clic su " File ", " Nuovo progetto " e " DLL ActiveX " per creare un file DLL ActiveX . Modificare il nome del progetto per " dllfile " nella finestra Proprietà . Fare clic su "Salva" per salvare il progetto sul computer locale
2
Fare clic su " Progetto" e "Riferimenti" per aggiungere i riferimenti di Excel per la lista di riferimento esistente : . C: \\ Programmi \\ Microsoft Office \\ Office11 \\ Excel.exe . Questo ha il riferimento istituito a Libreria oggetti di Microsoft Excel
3
Clicca dllfile.vb sulla " Solution Explorer " e inserire il seguente codice dopo l '"Opzione esplicita dichiarazione " : . Implementa AddInDesignObjects . IDTExtensibility2
4
Creare un nuovo modulo di classe facendo clic destro sul nome del progetto e selezionare Inserisci il seguente codice " nuova classe". : ExplicitOption Option Compare TextPrivate WithEvents pExcelApp Come Excel.ApplicationFriend Property Get ExcelApp ( ) Come Excel.ApplicationSet ExcelApp = modulo pExcelAppEnd PropertyThis classe definisce gli eventi dell'applicazione Excel . Fare clic su " File ", " Aggiungi progetto " e " EXE standard " per compilarlo . Individuare il file rispettato da cui è stato salvato il progetto.
5
Fare clic su " Start", " Tutti i programmi " e " VC + + . " Fare clic su " Nuovo" e "Progetto " per creare un nuovo progetto . Fare clic su " Form1.vc " e includere il file dll : # include " dllfile.dll "
6
caricare la DLL in memoria e creare un'istanza di esso : HINSTANCE Hlib = LoadLibrary ( " dllfile . dll "); if ( Hlib == NULL) { cout << " Errore : Impossibile caricare la libreria " << endl; getch (); return; }
7
Ricerca attraverso il file DLL e trovare l'indirizzo di funzioni : TestFunc = ( cfunc ) GetProcAddress ( ( HMODULE ) Hlib , " TestFunc "); RetInt = ( ifunc ) GetProcAddress ( ( HMODULE ) Hlib , " RetInt ");
Programmazione © www.354353.com