Ako používať CGZIP súbor v jazyku Visual Basic 6

súbor CGZIP bol skomprimovaný pomocou Zip32.dll . Súbory a priečinky systému Windows môžu byť komprimované a nekomprimované . Komprimovaný súbor je uložený s príponou " . Zip . " Moduly Zip32.dll a Unzip32.dll sú štandardné súbory C DLL . Tieto dve knižnice sú distribuované Info - ZIP . Info - ZIP je skupina vývojárov , ktoré poskytujú bezplatné verzie na zips a unzip utility . Možno už máte Zip32.dll a Unzip32.dll na vašom počítači , pretože sú distribuované s mnohými aplikáciami , ale ak nie , sú k dispozícii zdarma na stiahnutie na internete . Pokyny dovolená 1

Otvorte nový ActiveX DLL projektu jazyka Visual Basic . Vytvoriť " . Bas " , kód modulu s odkazmi na funkciách dostupných v zip32.dll a unzip32.dll súbory .

Private Declare Function ZpArchive Lib " zip32.dll " _ ( ByVal argc As Long , byVal Funai As String , ByRef argv As ZIPnames ) As Long

Private Declare Function Wiz_SingleEntryUnzip Lib " unzip32.dll " _ ( byval ifnc tak dlho , ByRef ifnv ako UNZIPnames , _ByVal xfnc tak dlho , ByRef xfnv ako UNZIPnames , _dcll ako DCLIST , Userf As USERFUNCTION ) As Long

Definujte verejné zips a unzip funkcie v rámci tohto modulu kódu. Názov tohto modulu " MainDLL.bas . "
2

Pridať nový modul triedy do projektu zips a jeden pre rozbalenie . Tieto dve triedy odkazu na verejný zips a unzip funkcie definované v rámci " MainDLL.bas . " Meno je " CGZipFiles " a " CGUnzipFiles . " Uložte a skompilujte projekt ActiveX DLL s názvom " CGZipUnzip " , k " CGZipUnzip.dll . "
3

Vytvoriť nový štandardné EXE projekt jazyka Visual Basic . Pridať odkaz na " CGZipUnzip.dll " výberom " projekt " , " Odkazy " a zaškrtnutím políčka vedľa CGZipUnzip .
4

deklarovať premennej objektu držať odkaz na " CGZipUnzip . " Použite , že objekt odkazovať každého z volania funkcie k dispozícii od zip32.dll a unzip32.dll definovaných v novom " CGZipUnzip " ActiveX DLL . Nasledujúci kód definuje odkaz na " CGZipUnzip " DLL , nastaví názov súboru ZIP , určuje , aké súbory majú byť zahrnuté do zip súboru a vytvorí súbor ZIP . Ak sa vyskytnú nejaké chyby pri vytváraní zips , ktoré sú zobrazené v okne so správou pre užívateľa .

Dim oZip Ako CGZipUnzipWith oZip.ZipFileName = " \\ MYZIP.ZIP " . AddFile App.Path & ; " . \\ ** " Ak MakeZipFile < > 0 ThenMsgBox GetLastMessageEnd IfEnd WithSet oZip = Nothing
..

• Predchádzajúca strana: Ako používať MSFlexGrid vo VB6 
• Ďalšia strana: Ako programovo Odstráňte zábery z DataGrid