аЯрЁБс>ўџ ўџџџX§€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџCompObjџџџџџџџџџџџџpџџџџџџџџџџџџўџџџBџџџџџџџџџџџџўџџџТџџџџџџџџџџџџўџџџ§“K*mџџџџrU€ €€€~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~k Щ иуr‘BD‘Ѓ=?t€  фџџџџƒ џџџџџџџџџџџџџџщƒџџџџџџџџџџџџt Root Entryџџџџџџџџ у8ѕwЫХРZVBA_Projectџџџџ%`Ќїiг—Х у8ѕwЫХVBAџџџџџџџџрЦ§iг—ХАЭХžvЫХUserForm1џџџџ€Mџiг—Х 1џУDШХc§џџџ ю  4. !#$%&'()*,-3/012я456789:;<=ўџџџ?@ABCDEFGHIJKLMNOPQRSTV+WY§џџџZ[\ўџџџ^_`abcdefghijkўџџџmnopqrstuvwxyz{}s~€PROJECTwmџџџџџџџџџџџџ цPROJECTџџџџfџџџџџџџџoџџџџџџџџџџџџd ўџџџўџџџ !"#$%&D()*+,-./0123456789:;<=>ўџџџ@ўџџџBўџџџDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ўџџџbcdefghijklmnopqrўџџџtuvw–yўџџџ{|}ўџџџ€ID="{E8F2F545-249B-473D-9706-6004F8B9B065}" Document=ThisDrawing/&H00000000 Class=cls_LayerKey Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 Class=ProgressBar Module=CommonDialogMod Module=LayerKeysMod HelpFile="" Name="LayerKey06" HelpContextID="0" Description="Layer Key Compare and Copy between Layer Key Styles" VersionCompatible32="393222000" CMG="E5E75BF0E541E941E941E941E9" DPB="3A3884A3D8A4D8A4D8" GC="8F8D311ED32629272927D6" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=22, 22, 486, 388, cls_LayerKey=132, 174, 708, 590, UserForm1=0, 0, 608, 416, , 132, 174, 740, 590, Z ProgressBar=154, 203, 730, 619, CommonDialogMod=44, 58, 620, 474, LayerKeysMod=88, 116, 664, 532, , 58, 620, 474, LayerKeysMod=ThisDrawingThisDrawingcls_LayerKeycls_LayerKeyUserForm1UserForm1ProgressBarProgressBarCommonDialogModCommonDialogModLayerKeysModLayerKeysModnDialogModLayrU€€€€~~~~~~~~~~~~~~~~~~[ aџџџџџџџџџџџџџџџџџџџџ  3Layer Key Compare and Copy between Layer Key Styles y) blnSafetycheck ё I( ёa8 ёсH ё™X ёщh ёQxstrName 1™ˆcbox strFilePath startStrg delimiterCancel CloseMode pOpenfilename lpszLongPath lpszShortPath cchBuffer $I#˜ dwExStyle lpClassName lpWindowNamedwStylexynWidthnHeight hWndParenthMenu hInstancelpParamhwndnCmdShowlpRectX1Y1i21  n`єЮ›ЭЊ`Ž€Mџiг—Х 1џУDШХi28џџџџ- n`єЮ›ЭЊ`Ž€Mџiг—Х 1џУDШХi37џџџџџџџџ n`єЮ›ЭЊ`Ž€Mџiг—Х 1џУDШХCompObjџџџџ џџџџ aVBFrameџџџџџџџџџџџџ8ThisDrawingџџџџџџџџѕ\__SRP_aџџџџџџџџџџџџъ‚__SRP_b(џџџџч†UserForm1џџџџ"џџџџК8˜__SRP_2,џџџџџџџџ –__SRP_3џџџџк*cls_LayerKey &џџџџlщy__SRP_4џџџџџџџџџџџџБ fџџџџџџџџџџџџ’Щoџџџџ`CompObjџџџџџџџџџџџџŽpfџџџџџџџџџџџџ‰)oџџџџ…ќCompObjџџџџџџџџџџџџƒpfџџџџџџџџџџџџ~)X2Y2hdcqrcedgegrfFlagsnIndexhBrushdwMillisecondsstrCapMaxCountlngIndexlngCntlngPause y/Ј QЁИsNameRO aс+ШLKName йиKeyStylem_objAECKeyStyle ;Iш Љ<Iј Щ=зЕ€0* pH‚dф LayerKey 063< Compare andpy between dDStyles@fpayer KyComTpr ndp- btwenL# ESt+"l#siZ=в   NYЄD ‚<‚‚stdPole>‚ s€*d+€O+ ‚`\€*\G{000204и30-C 0046}#2.0#0#C:\WINNT\Sy€stem32\ƒ12.tlb#OLE AutomationD Script@ing>Šcœi•ti„ˆg Oj€ I420B28IE718-11C@F-893DIA0C9054228}#1IDOWS\s%crrun.dll#Microsoft Ц RuntimFe€@MSForms>BSFРJr5@ss€‰oРBJD452EE1-E08F-101A-8-02608€C4D0BB4KJ‹%FM20.DLL%B W Object Lib€rary/;>1Уa‰hAˆh00ш}#0ТC#Р €ž5h0‹€ mР61A4579AF-B9Р74446-A14E-F9E82E818612ˆ6PageDi@r\VBE\„N.8exd 6Р€с.E р….@`ŒM Дяa‚†IWshФg„B>$@ IWsРhRuŒЊm@ШL€b€’a`:y€Hx OAF9€35DC20-РG€1D0-ADB9€&C04FD508A0BH&[wshom.ocx#€Windows$H HostХ5MoXdel€@ŒAecXUIBasрn A cX@UIB }sбр † |`сE7B8E100-BF69-431B-9153-1FF0DEF8F613}#4.7уoProgram Fi`‘\AD€T 2006\ч„47‚qAEC С  Appli6cТr%L.Р@ю ЁcЁdчк~ t`ц3џџп!БKaР@"sЃаArchЃ ),ZAр@c D'’ ˆџ`& %?-":-џџџџџџџџџџџџџџ)ˆa yџџџџ`џџџџyyџџQ€a ‘-џџџџБ$™%Q&'С'y(1)й)Б*i+y,љ‘,Б,б,љ,)-a-џџyˆa A"џџџџџџџџџџ™ ayiQ1   1  LayerKey06 ThisDrawing UserForm1 cls_LayerKeyCommonDialogMod ProgressBar LayerKeysModяРF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA Сџџџџ щQ№…ާ;цH“A<‹/`k;C:\Program Files\Common Files\Autodesk Shared\acax16enu.tlbAutoCAD Йџџџџсa0РFMaxC:\WINNT\System32\stdole2.tlbstdole бџџџџ Q0( BчЯ‰= ЩB(C:\WINDOWS\system32\scrrun.dll Scripting Сџџџџщ1 с.E р….`ŒM ДC:\WINDOWS\system32\FM20.DLLMSForms ЉЉб0ЏyEсЙFDЁNљш.†C:\PageDir\VBE\MSForms.exd ‰ЉБ@ м5љ№а­ЙРOеŠ C:\WINDOWS\System32\wshom.ocxIWshRuntimeLibrary IџџџџqЙPсИчiПC‘S№ојі *C:\Program Files\ADT 2006\AecXUIBase47.tlb AecXUIBase aџџџџ‰щ`уИчiПC‘S№ојі (C:\Program Files\ADT 2006\AecXBase47.tlbAecXBase a џџџџ‰ щ pтИчiПC‘S№ојі .C:\Program Files\ADT 2006\AecXUIArchBase47.tlbAecXUIArchBase a џџџџ‰ ё €фИчiПC‘S№ојі ,C:\Program Files\ADT 2006\AecXArchBase47.tlb AecXArchBase q џџџџ™ ™9<†(N˜Uю0Щќ[ŠеXaљ0кIИьv?ыРсџйuŽ!=в…Ф  Ц&уu9kќмJ‰dT86*E ьL)мйKБBx"Ёвk AcadDocument showformnew DИ8ЅЮчK•ї.$dС=К€ЏГKD­h@mc(+тRhс ­Ў KЂСЊ~'НkoMЯ$,дСFŒ­wT6›$Є‰ехJžFKВ­[(3{Ђ-2в‹BьЮž Њ`ѓ ComboBox1!ш-ЌЂ6Я€SЊ` њ Щџџџџџџџџ Ш[qJ—І eР‹UserForm8Zrх%к[MЁ’УъИбР F3DynamicGetLayerKeyDefault ‘џџџџ џџџџЙА ”?ЯFѕЮ›ЮЊ`ŽFrame1 ComboBox4 ComboBox6"žŒ—АдЮП-Њ?@аLabel1Frame3Frame2Label6Label7Frame4С{lЏЮŸFЊWJOcmdCopySelected"в‹BьЮž Њ`ѓListBox1 ComboBox5Bв‹BьЮž Њ`ѓ CheckBox1Label5cmdCopySelected_ClickComboBox1_ChangeGetLayersFolderActivate_IfOpenFillLayerKeystyles3в‹BьЮž Њ`ѓGetLayerStandardComboBox4_ClickComboBox5_ClickComboBox6_ChangeUserForm_Activate StripPathStripDelimitedItemUserForm_InitializeUserForm_QueryCloseCompareLayerKeysGetLayerKeyFolder | Error ИfФЄŸIЛxЊ8<Л  ( l) in procedure showformnew of VBA Document ThisDrawingVBE6.DLL Qџџџџ­ Р LayerKeys QџџџџS рБ юр—Я— $cрoСBЦBс—Я— $cрoyЁџџџџ Browse Binning "s Layer Key Tools  *.dwg DWG Files ,,LL, $,0<HGetOpenFileName comdlg32 GetOpenFileNameA БйGetSaveFileName GetSaveFileNameAwуИчiПC‘S№ојі БЉ GetShortPathName kernel32 GetShortPathNameA Бй@ ((Pi џџџџ bФ џџџџ6"џџџџ! \ c:\ AecLayerStd.dwg dwg &RLB Layer Key Tools Qџџџџ`  QџџџџЧ (GetKeyStyleFromName Qџџџџ, H Qџџџџ  h Qџџџџh ˆ Qџџџџ Ј "s LayerKeys Tools  00(   +=ћќњ hЇ8+3qЕџZВѓ|QEDНЛїCїF*=ћќњ hЇ8+3qЕъь жGДБAГUuxЋє!=ћќњ hЇ8+3qЕClassP№gv№Э›3+3o VBInternal GetKeyStyles ‰#џџџџ џџџџБ#` 00,$( CreateWindowEx user32 CreateWindowExA с$%p ShowWindow ShowWindow с$С% DestroyWindow DestroyWindow с$&АSetRect SetRect с$9'аDrawEdge DrawEdge с$щ'№ FindWindow FindWindowA с$Ё(GetDC GetDC с$Q)0GetSysColorBrush GetSysColorBrush с$*PFillRect FillRect с$й*pSleep Sleep Initialize KeyStyles€gФЄŸIЛxЊ8<Л Б‰+Caption FillColor BackColorClass_TerminateShowProgressWindowDestroyProgressWindowProgressMeterPos xh BProblem Retrieving Active Profile s Layer Key ToolсЭКƒ ГGЊЇКЕќЃоѓньЁЗвMКЈю;\Žƒ7Class_InitializeLayerStdFolderNameDocumentсИчiПC‘S№ојіCleanupLayerKeysInStyleOpenDoc GetLayerKeys 44h 48<@DHLPTXсИчiПC‘S№ојісИчiПC‘S№ојіЁ0Щ0џџџџсИчiПC‘S№ојі1y/џџџџсИчiПC‘S№ојіqNМ“чЏЇJМј ЭЖrе-уИчiПC‘S№ојі сИчiПC‘S№ојі x) in procedure Class_Initialize of Class Module cls_LayerKey ZHKEY_CURRENT_USER\Software\Autodesk\AutoCAD\RтИчiПC‘S№ојі T\Dialogs\ADT_DEFAULTFNAME\InitialDirectoryм‰IђѕLM”Œб›d_ чїШ0И—rHЅ%nЄAЂ еMТr з‹CŠB˜BKˆЏИDAОгЂ‹KгP5A5џџџџ \Curver!м5љ№а­ЙРOеŠ  \Profiles\ v) in procedure Class_Terminate of Class Module cls_LayerKey f) in procedure Cleanup of Class Module cls_LayerKeyтИчiПC‘S№ојій3 8џџџџтИчiПC‘S№ојі55IєœQL‹ˆbД-ŸГIфИчiПC‘S№ојіkуИчiПC‘S№ојій3А_Єe HЂjk"­7ьf9‘1џџџџ Save Drawing:   ? $RLB LayerKey Tools9Р DWT Files *.dwtБANБz§–LЏUEŸ€ХЗЇмСKFЌоВпžјx!ЬюF|GM€ YЊDУбћТ,ч”LЛ­Ёђ}FиђЇМйHƒšойъў@ Y;џџџџ џџџџЙ0/ш  џџџџŽ:$yuбШJКJO>xеџџџџќ&E€'.Nš­<їFсџџџџ їРО№A‰xЦYUУћџџџџџџџџh€’џœcmLeftAutoCAD"јVBAїтWin16С~Win32MacГВVBA6­# LayerKey06.œstdole“` ScriptingŠпMSFormsCIWshRuntimeLibraryИЬ AecXUIBase|AecXBaset•AecXUIArchBaseј] AecXArchBaseД ThisDrawingЙ5 €џџџ_EvaluateйblnSafetycheckXH showformn__SRP_1џџџџџџџџџџџџЙi43 / n`єЮ›ЭЊ`ސют fХХ 1џУDШХfџџџџџџџџџџџџЅo.0џџџџXewwƒshowformnew_ErroreЇ UserForm1)жShowѕMsgBox—RErroŠNumberЃ- DescriptionО cmdCopySelected_Click!+i`kbo_abAppiaAecBaseApplication№ o_abDocSource~іAecBaseDocument8к o_abDocTargetу†o_LKStyleSourceЂ™AecLayerKeyStyleЈv o_LKeysSourceбg AecLayerKeysёa o_LKeySource ы AecLayerKeyЩЋo_LKStyleTarget* o_LKeysTargetuј o_LKeyTarget|o_LKeyOREnableds… o_LKeyOverз@AecLayerOverrideSettingул o_LKeyOversXAecLayerOverrideSettings/ЙcmdCopySelected_Click_ErrorC—Init\[ ApplicationЅ*Activate_IfOpenx– ComboBox1'иActiveDocumentг\LayerKeyStylesmЪ ComboBox4*иKeysqИ ComboBox6,и ComboBox5+и CheckBox1‹УValueфKOverridesEnabled.е objProbar‰6 ProgressBar$ŠCaptionxListBox1›ы ListCount6MaxШВ BackColorоƒ FillColorњ>ShowProgressWindow ProgressMeterPosЂРSelectedYЃList*“AddїrColor2FLayerКЦUCase5 Linetype›ђ Lineweight­G Peш Ait€xuralwе.@@bВЁх>Мрeяu }ц4?0?0ЅКб1Ђътs €ThisD(rawНG ПЊT`1iрvDр2aро5ƒН2˜A<ЂH  1Тнъ@ ","ZŠ"+RBgUseвrёU1G’EUpёzб•]1k2o`„1Ys4шй(zAycls_u‡GbclйР_ч#„b!љЖ2џР9r$‡Ÿ Pm‰ oŸ p 0monDial”ogLG@ SŒЂm№onD№UaР  ogMd09d2ŽП qq_А„!њQ%r8e ssBarS%Pа$л Q–s€б>r ЬOS%ЯСbп_/пЋкXŸ2ѕsbЁ;§Нs1 љ3џЭŸ P =tФyA[џџџџh_C%џџrU€€€ џџџџџџџџ( nџџџџџџџџџџh„lџџџџј џџrU€€€€~|  pџџџџџџџџЊ€Ax џџh@џџџџџџџџЊ€№ФдИџџџџ;{stФџџЖџџџџџџџџ$џџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(1”џџА"џџ~6 џџџџPџџџџџџА0€Њ€EPџџH@џџџџџџџџ%PџџџџH2%pџџџџh_C%џџџџˆx%иџџџџЈˆ%Њ€|џџџџ џџј@џџџџџџџџџџџџh„|џџџџј џџ%ъ€ю(џџџџ@џџџџџџџџъ€№џџџџ@џџџџџџџџЊ€Sx џџh@џџџџџџџџЊ€… џџˆ@џџџџџџџџЊ€qШџџЈ@џџџџџџџџъ€ђ№џџџџ@џџџџџџџџъ€єАџџџџ@џџџџџџџџџџџџџџџџxPАџџџџ( №џџџџШџџџџƒьџџџџџџ(џџџџџџџџџџџџџџџџџџ€ џџџџџџџџџџџџџџџџџџџџџџџџџџџџАџџџџџџџџџџџџџџџџџџџџP(џџџџџџџџџџџџџџџџџџџџџџџџџџџџNYЄD*\R3*#6$*\Rffff*0;44afcfc7$*\Rffff*0<44afcfc7*\R3*#5п ўЪ €€ џџџџ€€€€ €(€0€8€@€H€ џџџџ€ џџџџџџџџXЭџџx] ђ] ђ(] ђ] ђP] ђx] ђ ] ђШ] ђ№] ђАџџџџ(џџџџМАAttribute VB_Name = "LayerKeysMod" Option Explicit Pub, LKFile1 As S‰Žng2Sty40dicLИlcri^ng.DicБfaryD)2`)Missing!*ДsOpene>d.qƒ@q ob€jProbar/€gressBar lotStyleName ю PlottableЫяDestroyProgressWindow@F vbInformationВnChrK~ComboBox1_ChangeasFiltersйf oFilesDic` DictionaryЛ intFilesCntЕvarProjectPath)| strInitPathPdposдФbuff~ sLongnameВЁ sShortnameТ sFileName—н sFileTitle&nDotstrPathlчlngCntgblnCode3 vbNullCharкYOFN)О nStructSize„J hWndOwnerЌўhwnd/СsFilter@е nFilterIndexcЅGetLayersFolderZSplit) vbTextCompare QIsArrayœ•sFile8aSpace юnMaxFile€ sDefFileExtPН nMaxTitle З sInitialDirИу sDialogTitle&ќflagsoOFS_FILE_OPEN_FLAGSGetOpenFileName]?Trim@яStripDelimitedItemЉПAddItem‡ Count0v ListIndexїQ vbNullStringЎТFillLayerKeystylesŽ clean_ExitRšoADTDocldAecArchBaseDocumentЊLAecArchBaseApplication1ioADTPrefe‡AecArchBaseDatabasePreferences‡rmsgQЕ Preferences– LayerFileч–strNameыZacdocšГ AcadDocumentZ DocumentsМFullNameаžActivate—|cboxzComboBoxЗ\varITMjcolKeysW CollectionщW myLKStyleвR blnActivepretvalЭ;vbYesNovbNoЇ% cls_LayerKeyc@OpenDocВЈ KeyStylesgЕGetLayerStandard2‹ LayerStandard@RGetLayerKeyDefault:TComboBox4_Click†E dicLKeys1s[LayerKeysInStyle,WshShell0PopupbХvbCrLfЏЌSetFocusёЦComboBox5_Click dicLKeys2t[CompareLayerKeysHeight|‹RepaintŒМComboBox6_ChangeЯTUserForm_ActivateZs strLKFoldercˆGetLayerKeyFolderЦ StripPath‘š strFilePath\ђxointcnt.- startStrg§? delimiter~UserForm_Initialize5cdicFilesOpened…pUserForm_QueryCloseјCancelё˜ CloseModeиŸvarFilesš7adoc€љReadOnly4<vbYesa? varMainKeys$U varCheckKeys>{ dicMissing8ClearуЭExistsƒ]o_AecDocИ­LayerStdFolderName Zm_objAECBaseApp*єm_objAECBaseDB‰AecBaseDatabase•ѕm_objAECBaseDocФm_objAECDocuments‰6 AecDocumentsћ,m_objAECLayKeyцm_objAECLayKeysџ=m_objAECKeyStyle•аm_objAECKeyStylesГСAecLayerKeyStyles›*m_dicAECLayKeys˜)m_dicAECKeyStylesЁЮClass_InitializenClass_Initialize_ErrorsЌ strAcProf^жstrAcRel7~strAcVERЁ“ strAcCurVerЫЫlsfRootŒlsfLimb'VProfiles#VersionЁХ ActiveProfile)uRegReadwЄDocumentjгDocument_Error‰1Class_TerminatePщClass_Terminate_Errorƒ8CleanupєŒ Cleanup_ErrorƒЋLayerKeysInStyle_Error o_KeyStyleсo_LKeyчaGetKeyStyleFromNamefЦ vbCritical+}sNamedROў^ OpenDoc_Errorд" ErrCatcher‡жRaiseєSourceGЖ InitializeгNInitialize_Errorќo RemoveAllЮHandle•KeyStyles_Error]= GetKeyStylesп KeyStylesListtGetKeyStyles_Errorф,LKNameGetKeyStyleFromName_ErrorЅˆ LayerKeys3_KeyStyleе‹LayerKeys_Error8Ч GetLayerKeysiИ LayerKeyListЪyGetLayerKeys_Error@ЦCommonDialogModyJOFN_ALLOWMULTISELECTЏOFN_CREATEPROMPT^9OFN_ENABLEHOOK‹фOFN_ENABLETEMPLATEOšOFN_ENABLETEMPLATEHANDLEѕ. OFN_EXPLORERLЊOFN_EXTENSIONDIFFERENTOFN_FILEMUSTEXISTйНOFN_HIDEREADONLY™З OFN_LONGNAMES=UOFN_NOCHANGEDIRЭ™OFN_NODEREFERENCELINKSv—OFN_NOLONGNAMESœїOFN_NONETWORKBUTTON‰№OFN_NOREADONLYRETURNМ—OFN_NOTESTFILECREATEDsOFN_NOVALIDATEOFN_OVERWRITEPROMPTёљOFN_PATHMUSTEXISTЅƒ OFN_READONLY!OFN_SHAREAWAREЊЩOFN_SHAREFALLTHROUGHу( OFN_SHAREWARNdOFN_SHARENOWARN4 OFN_SHOWHELP­ЇOFS_MAXPATHNAMESeOFS_FILE_SAVE_FLAGSФБ OPENFILENAME35 hInstance ќ sCustomFilterЊ‰nMaxCustFilterэ` nFileOffsetIŠnFileExtension9щ nCustDataющfnHooknх sTemplateNameч pOpenfilenamecˆcomdlg32FGetSaveFileNameŽWGetShortPathNameЛІ lpszLongPath№ lpszShortPathXч cchBuffer>јkernel32_Ѕ WS_THICKFRAMEыO WS_CAPTIONв  SW_NORMALЇi CREATESTRUCTЋlpCreateParams@ЩhMenuщn hWndParent7‡cyй\cxм\ylstyleХplpszName& lpszClass{ЪExStyleiчCreateWindowExє dwExStyle_ј lpClassName‚з lpWindowNameЈdwStyleэnWidthЬЕnHeightѕэlpParam5uuser32*Ю ShowWindowJknCmdShowŒС DestroyWindow9сSetRectUlpRectЫRECTiX1О_Y1O_X2П_Y2P_DrawEdge%Ыhdce˜qrcŒЪedgeвgrfFlags%h FindWindowKGetDC`ўGetSysColorBrushўэnIndex'FillRectыhBrush SleepэdwMillisecondsХЅBDR_SUNKENOUTER)BDR_RAISEDINNERwА EDGE_ETCHED˜ BF_BOTTOMŒcBF_LEFTПъBF_RIGHTЃTBF_TOP˜иBF_RECTCŒTop5кRight BottomH{lngHdcЧ€RCђ^FillRCОlngFill˜д lngBackColorbиlngMax*›lngHwnd›Ѕ strCaptionЮstrCap{юMaxCountЏзlngIndex дCSз\lngPauseC$lngPos6­ IsMissing˜э LayerKeysModZіLKFile1o^LKStyle1щLKFile2p^LKStyle2ъUserFormNFrame1ЙLabel1,Frame2ЙLabel5‘,Frame3ЙcmdCopySelected< Label6’,Label7“,Frame4Й€џClickŠу€џChangeЃЧ €џџџQueryCloseTєClassЛ €џTerminateyL _B_var_Chr\; _B_str_Spaceу _B_str_LeftVƒ _B_str_TrimБі _B_str_MidўXItemзz _B_var_UCaseaЮџџЬџџџџџџџџџџџџџџџџџџ)!7џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџэ џџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџ џџ"lJV"&8Аbb€ †џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџэ˜М|аSaY/sЋXџџ€ЖџџDˆmџџnCreateWindowExAˆ8NShowWindowˆXb$џџDestroyWindowџџˆ|џџDSetRectˆ˜herDrawEdgeђˆИђ„FindWindowAˆиђЄGetDCˆєФђGetSysColorBrushateˆinрanFillRectyerZ<anrdSleep--џџџџ џџtџџџZВѓ|QEDНЛїCїF*=ћќњ hЇ8+3qЕъь жGДБAГUuxЋєџџџџџџџџџџџџxъь жGДБAГUuxЋєџZВѓ|QEDНЛїCїFџџRHR00џџџџџџџџџџџџџџџџџџџџRиRџџџџџџџџџџџџџџџџџџџџME(џџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPSџџџџS џџџџS”џџџџ@џџb@џџ”>"џџџџџџџџ<џџџџџџN0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}а`B˜`˜ Bџџџџџџџџџџџџџџ%џџџџмџџџџџџИbи`џџџџ h€dxџџh€<џџh€fЈџџh€hР џџh€jиџџh€l№џџh€nџџјh€f џџ''''h€p8 џџibuth€rP$$џџuse h€th((џџnh€vџџџџ,,џџ app+x@pџџџџџџџџџџџџРџџ iƒzџџџџџџџџџџр„ sitiƒ|џџџџџџџџџџ„iƒ~џџџџџџџџџџ „iƒ€џџџџџџџџџџ@„iƒfџџџџџџџџџџ`„iƒnџџџџџџџџџџ€„iƒ‚џџџџџџџџџџ „iƒ„џџџџџџџџџџР„iƒhџџџџџџџџџџр„iƒfџџџџџџџџџџ„iƒ<џџџџџџџџџџ „iƒ†џџџџџџџџџџџџџџ€+ŠР$pџџџџџџџџџџџџ€џџ$ iƒдџџџџџџџџџџ „iƒŒџџџџџџџџџџџџџџ„+Ž DpџџџџџџџџџџџџџџD iƒдџџџџџџџџџџџџџџ„+hpџџџџџџџџџџџџ`џџh )ƒ’џџџџџџџџ€ˆ€A%iƒ–џџџџџџџџџџЈ„iƒ˜џџџџџџџџџџШ„iƒšџџџџџџџџџџш„iƒœџџџџџџџџџџџџџџ„+žа„pџџџџџџџџџџџџHџџ„ iƒ џџџџџџџџџџh„)ƒЂџџџџџџџџˆ€A%iƒЄџџџџџџџџџџА„iƒІџџџџџџџџџџџџџџ„+ЈPЄpџџџџџџџџџџџџџџЄ iƒ|џџџџџџџџџџ0„iƒ~џџџџџџџџџџџџџџ„+ЊАФpџџџџџџџџџџџџџџФ iƒдџџџџџџџџџџџџџџ„+Ќрpџџџџџџџџџџџџ№џџр iƒЎџџџџџџџџџџџџџџ„+АИpџџџџџџџџџџџџPџџ iƒ џџџџџџџџџџp„)ƒ’џџџџџџџџ˜€A%iƒВџџџџџџџџџџџџџџ„ Д (pџџџџџџџџџџџџјџџџџ( !!iƒЖџџџџџџџџџџџџџџ„B˜Мш BџџџџџџџџџџџџџџB˜РhBџџџџџџџџџџџџџџB˜ТBџџџџџџџџџџџџџџB˜Ц8Bџџ џџџџџџџџџџџџџџџџи@„Цџџџџџџџџџџ”џџџџ№џџџџh€м џџh€Ш џџh€Ъ8 џџh€Ьџџџџ џџ"€вˆHџџ  @џџџџџџџџР %@%џџџџдџџџџ  @%b€ии`џџџџ@џџџџџџџџb€мџџџџhџџџџ@џџџџџџџџƒўџџџџџџџ(џџџџџџџџџџџџџџ A€€ hџџџџџџџџј|џ+` џџџџ N”iƒоџџџџ џџџџџџџџ€ A†р hџџџџџџџџ˜|џ+Р џџџџ W”iƒрџџџџ џџџџџџџџ€ AŠ@ hџџџџџџџџ8|џ+ џџџџ$ ^”iƒтџџџџ џџџџџџџџ€ Aˆ  hџџџџџџџџи|џ+€ џџџџ( e”iƒтџџџџ џџџџџџџџ€ Фр `џџџџџџџџ|џkџџџџџџџџ8i” Œ@ `џџџџџџџџHџkџџџџџџџџ,o” „фџџџџLџџџ8 @ % Є€ `џџџџџџџџ |џkџџџџџџџџ0 ~” Žџџџџ`џџџџџџџџXdџkР џџџџ4‡”iƒШџџџџ џџџџр €iƒцџџџџџџџџџџџџ€`„шџџџџxџџџџџ€ўџџџџџџџ@ џџ џџџџџџџџ%B˜\p CџџџџџџџџџџџџџџB˜^РCџџџџџџџџџџџџџџB˜ИР BџџџџџџџџџџџџџџB˜КBџџџџџџџџџџџџџџB˜О@BџџџџџџџџџџџџџџB˜ФBџџ џџџџџџџџџџџџb€Ю`4џџџџ @џџџџџџџџ"€аP 8џџ€ @џџџџџџџџb€дАXџџџџ@џџџџџџџџb€жЈ \џџџџ@џџџџџџџџb€ка dџџџџ@џџџџџџџџа Hџџџџџџџџџџџџџџџџџџџџџџџџ џџџџ@ џџџџр џџџџРр hЈ џџџџP   џџџџџџџџџџџџџџџџˆџџџџџџџџџџџџ@џџџџ@Ииp АиР џџџџџџџџP€ H €@ € 8А˜ а ш `џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ` џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџР џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxџџџџџџџџж @ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџкŽџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџˆHџџџџ\м^xк`ŠЊ@ўџHџџџџџ @ўџџџџџDџџџџџ ўџџџџџџџџx џџџџ0џџџџ@ўџџџџџџџџџџ џџшЮажЌАИЦџџpž@ўџЈ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџкŽ @ўџџџџџџџџџџџџџр џџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџР џџџџџџџџџџџџџџџџџџџџџџџџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџивЮдЌАъђ@ўџџџџџtџџџџџ џџџџ@ўџџџџџdџџџ џџ %јДW@ўџџџџџ €HH  џџџџџџџџ€ иа  џџџџџџџџџџџџџџџџј x<џџџџџџџџџџџџџџџџџџџџџџ@;NYЄD$*\Rffff*0;44afcfc7(*\Rffff*0;44afcfc7\0(*\Rffff*0;44afcfc7\1*\R0*#13пџџџџlўЪ•€€ 0€ "8„`„p€ џџџџ„ €€ џџџџ€€˜€ €Ј€А€И€Р€Ш€а€и€р€ш€№€ј€ џџџџH€4€ џџџџH€ € џџџџH€0€ џџџџ€ 0@€ &pH€˜€ џџџџH€А€ џџџџH€Ш€ џџџџH€ рH€ш€ џџџџH€ј€ џџџџ€ 0€ >8€ &x(€  € 0Ј„ и€ ш„ € „0€ &H€ p„ „  „ А„ Р€ а„ ш€ &€ 0€H€P€X€`€h€p€ џџџџ€x€€€ˆ€€˜€ €Ј€А€ $И"Ё р ш№€ џџџџ€ 6ј€ 60€ 6h€ 6 € 6и"Ё   € 6(€ 6`€ 6˜€ 6а"Ё  € 6 € 6X€ 6€ 6Ш"Ё  € *"H P `px€ џџџџ"€€ˆ€ 6€ >Ш€ @ € :H € 6ˆ J…Р   "0 &P h € € ˆ "   Ј И € џџџџ€ :Р € : € :@ € :€ € :Р "  €  (  8 &X p  €  ˜   € џџџџ€ џџџџ€ џџџџџџџџА Эџџxр*@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@р This New Window procedures3_T]DЏђH G]DЏРђp ]Ќђeser№H^ђ`^ђx^ђ^ђЈ^ђР^ђи^ђ№^ђ^ђ ^ђ8^ђP^ђhpџџІ"1@–€''І–@џџІ–Рџџр*@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@р Rectangle functions (the meter)џџІ– џџџџІ–zџџџџІ–а sit–PІ–АџџІ–р*@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@р7This next declare is used only to slow the loop down inр The procedure "ProgressMeterPos"–Ир*@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@]DЎђ˜ рWant a Raised look?]DЎђР рHow about both?]D И Кђр@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@рYou have to have these]DЎђш ]DЎђ@]DЎђh]DЎђр To get this]D Р Ф Т Ођр@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@рThe Rectangle type№и^ђ№^ђ ^ђ ^ђ8 pџџˆ]@ђ8]@ђ`]@ђP ]@ђˆ]@ђА]ђЈ ]ђи]ђа рThe caption for the new window– о'мmџџр0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@р/ | Max is the maximum number in your For Next |р/ | Loop, you must provide this value prior to |р/ | Calling ProgressMeterPos! |р0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@–€ р'иmџџир0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@р/ | This sets the color of the progress fill |р/ | value can be 0 to 24 |р0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@–р т'дmџџрр0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@р/ | This sets the color of the progress |р/ | background value can be 0 to 24 |р0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@–@ т'жmџџшр$Just to be sure, destroy the window!–  кЌœ кA@Žkџџˆoџџ€–р ]ђ р0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@р8Looks can be decieving, must of this call does not applyр:to us! We are not going to use the window for anything butр3display! If you have trouble with #32770 try STATICр0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@І  \Ж#32770 м ^ЌєЌdЌњЌ<­ЌЌ ф$x 'к к `A@Š к$Њ'Ю аЌЌЌ№ЌA@ Ю а ж$ЌA@А Ю а И ЦA@žoџџxрGoodbye window!–@ кA@Žoџџ@р4@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@р3 | This is the procedure to position the progress |р3 | Rectangle (Fi__SRP_d'џџџџ?T_VBA_PROJECTџџџџџџџџџџџџ"Ю+dirџџџџџџџџџџџџ'л__SRP_0*џџџџY+llRC), the arguments are the for |р3 |The current count, and a optional sleep interval|р4@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@–€ ]ђ Ш иЌя'ш шЌ œ вЌЌ шЌA@ Ю в д$ЌA@А ц$ъœ цA@Дkџџhkџџ`oџџXџџџџPџџџџЈЖAttribute VB_Name = "ProgressBarˆ" ˆBasˆ0{FCFB3D2A-A0FA-1068-A738-08002B€3371B5} |@GlobalЮSpac’False dCreatablPredeШclaIdАC@ExposeTemplateDeriv–Cus tomiz EOp tion 0licit '@~$@ This New Window procˆeduИ PGK Const WS_THICK FRAME€s&H 40CAPT(ION‚C0  ƒ"SW_N ORMAL€1 2Type CREATESTRU CT lpТ_eParams As LongЩУhIР%an@n‹MenuL Wnd‘@entЫcyЬŽxЫŒLsty@…aЪlpszЎ@S‡Г…*СClasB0 ExSKEnd СBЩFDУ— Func‚{УDƒlEx Lib "user32" Alias "‹A" _ (ByVal dwL, ї[С( 0,AХƒ љCdwŠ2MЦU nWidth_СІHeighf6іh:ehЉ?†-EB lpЂJЁAny)УЅ:/Showƒ Ћ.9Ї+hw 8„BхnC @0 Then† є DOWJ$ DЬIfH€+ †s2Show€wgre ssƒ4Dim CSuCREAT€ESTRUCT''ЏЋ 'Loo@ks can€decievingH, m‹ofƒill does not app ly‚8€›us! @We are‚ gFo€ЇuseЁ for anyt"hbut‚di€splay! @O€you hav ro@{С^th #32770 try STATICТ 1:РƒBg= Cre€mУTEx(WS_THICKFR@AME, "ƒ", €Capti`on, _С@ CAPTION, @500, 12 5@6Р0&, },РgТ„pƒ…}, SW_NORMLALС$dc@ЇGpetDCСБ(УetRect RC“Р‚2425С АFillB,B РSysBФBrushFРТDra wEdgeB#dcƒ BDR_SUNKENOUTER€, BF_REA”СЇТЅ'Goodbўy‰УУуСЉ„З’ЊSОЦ o?9N…Р' |lрR@Сtproce†d wOposi6gЂO "h |€   С&angle (Ђ(C),argРuments"Y !VЃ`y currР count,A@Yd a oЂCal sleep interval?Ёфœс**Me€ PosС9Cntcaœ, O…€@PžaСmЩŸС„os%/N@ УЁ /AAMa€x * 239! qN@|D< 6(™ЮSdR'‚R6,!` , 24с ЂћAW`HЁLХTabS a€!IsMis.s „т)H ~SB-сaC!J!Љ > %с (aЊaъ˜*ИCџџ’ vRџџџџ_ ksА„џџЖџџxNџџGetOpenFileNameAN<GetSaveFileNameAџџџZdџџ(GetShortPathNameAџџџџџџLџџџџџџџџџџџџџџxџџR RLLџџџџџџџџџџџџџџџџџџџџMEPџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(@џџ:> џџџџ< џџ<џџџџџџˆ( ъ˜x Cџџџџџџџџџџџџџџъ˜ P€Cџџџџџџџџџџџџџџъ˜ Cџџџџџџџџџџџџџџъ˜ШCџџџџџџџџџџџџџџъ˜Ш Cџџ џџџџџџџџџџџџъ˜№Cџџ џџџџџџџџџџџџъ˜Cџџ џџџџџџџџџџџџъ˜ @€Cџџџџџџџџџџџџџџъ˜"@Cџџџџџџџџџџџџџџъ˜&hCџџџџџџџџџџџџџџъ˜*ИCџџџџџџџџџџџџџџъ˜,@Cџџџџџџџџџџџџџџъ˜0ИCџџџџџџџџџџџџџџъ˜40Cџџџџџџџџџџџџџџъ˜6рCџџџџџџџџџџџџџџЪ˜8(Cџџџџџџџџџџџџџџ%˜џџџџџџ˜:џџџџИџџџџh€ааџџ%h€вшџџ@ђh€<џџџџџџh€ж џџђh€>0џџh€@Hџџ h€и`џџ%h€тxџџh€ц џџh€ТЈ$$џџsee h€ъР((џџh€ьи,,џџђh€ю№00џџh€№44џџјh€B 88џџh€D8::џџh€шP<<џџh€Fh@@џџh€H€DDџџh€JџџџџHHџџџџџџџџџџА@%+є pџџџџџџџџџџџџјџџ )ƒLџџџџџџџџџџџџ€A%+Pˆ(pџџџџџџџџџџџџ`џџ( )ƒLџџџџџџџџ€џџџџ€A%+RџџџџPpџџџџџџџџџџџџШџџP iƒTџџџџџџџџџџш„iƒVџџџџџџџџџџ„iƒXџџџџџџџџџџџџџџ„ъ˜PCџџџџџџџџџџџџџџъ˜ Cџџџџџџџџџџџџџџъ˜ (@Cџџџџџџџџџџџџџџъ˜xCџџџџџџџџџџџџџџъ˜ Cџџџџџџџџџџџџџџъ˜№Cџџ џџџџџџџџџџџџъ˜Cџџ џџџџџџџџџџџџъ˜$hCџџџџџџџџџџџџџџъ˜(Cџџџџџџџџџџџџџџъ˜.рCџџџџџџџџџџџџџџъ˜2CџџџџџџџџџџџџџџЪ˜ђX 8CџџџџџџџџџџџџџџЊ€ЮџџџџџџА@џџџџџџџџџџџџxШxhџџџџџџџџ@Xрџџџџџџџџџџџџ рџџџџџџџџ џџџџИ( Ш№(Иџџџџˆ hPџџџџ№И0џџџџџџџџџџџџ@Pџџџџџџџџџџџџƒџџџџџџ€џџџџџџџџџџџџџџџџџџиИ (џџџџџџџџџџџџˆ џџџџџџџџџџџџџџџџџџџџјPџџџџџџџџџџџџџџџџџџџџџџџџџџџџ20NYЄD$*\Rffff*0:44afcfc7(*\Rffff*0:44afcfc7\0пFўЪN€€ F€ DP€ B˜€ Fр€ >(€ <h€ :Ј€ <ш€ >(€ Fh„ А„ Р„ а„ р„ №„„ „ „ 0„@„ P„`„p„€„ „А„ Р„ а„ р„ №„ „ „ „ 0„ @„ P€ џџџџ€ 8`€ 4˜€ а„ .№€ џџџџ„ . € џџџџ€P€ X€ h€ x€ ˆ€ ˜€ Ј€ И€ Ш€ и€ ш€ ј€ € € (€ 8€ H€ X€ h€ x€ ˆ€˜€ џџџџ€ € џџџџH€Ј€ џџџџH€Р€ џџџџH€,и€ ј€ џџџџ€ џџџџџџџџЭџџxр?'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''1+р> Copyright Љ1996-2003 VBnet, Randy Birch, All Rights Reserved. Dр< Some pages may also contain other copyrights by the author.$%р?'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''џџр7 Distribution: You can freely use this code in your ownр6 applications, but you may not reproduceр4 or publish this code on any web site,Ќџџџџр6 online service, or distribute as sourceир7 on any media without express permission.џџр?''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''']$Ўђ(]$Ў ђP%]$Ў ђ]$Ў@ђx]$Ў€ђ(џџџџ]$ЏђPџџ]$Ўђ ]$Ўђx]$ЎђШџџџџ]$Џ ђ џџ]$ЎђШ%]$Џђ№]$Џђ№]$Џђ]$Џ€ђр4 see comments]$Џђ@]$Ўђ@]$Ўђh]$Ўђh]$Ўђ]$Ў@ђИ]$Ќђ]$Ќђр]$ЌђИ]$Ўђ]$Ќђ0р1OFS_FILE_OPEN_FLAGS and OFS_FILE_SAVE_FLAGS belowр-are mine to save long statements; they're notрa standard Win32 type.І   ]$    ђрІ   ]$   & ђX№ ^ђDИ^ђDа^ђDш^ђD^ђD^ђD0^ђDH^ђD`^ђDx^ђD^ђDЈ^ђDР^ђDи^ђD№^ђD^ђD ^ђD8^ђDP^ђDh^ђD€pџџ`] ђІ–ИІ– І–ˆр--end block--'џџџџшџџџџеЕAttribute VB_Name = "CommonDialogMod" Option Explicit '<‚ Copyright Љ1996-2003†net, Randy Birch, All R(s Reserved.@SoЏpages may also contain o0ther bs by  author>@СDisŸŽ: You can free@ly use€8i"sBde Iyo@ur own] ) apЋaБs, Ч €‚inot reproduceor pu`blish5дany web site,nline Ѕice, €d…2e asL s€*вn m€edia wi€Rut express permi ssРBПW' P6c@‰nst OFN_ALLOWMULTISELECT As LШong€Ќ&H CREATEPR(OMPŽ 0а ENABLEHOOKƒ ж TEMPLР Ъ 4зХ HANDLEJ 8R XPLORERL 00 TENSIOND€IFFEREN =4 FILEMU@STEXISы1Г HID` ADO(NLYЪ4А$LO€NGNAMES*# 5s NOC #GEЬDI,P NOстРCELINKk Ё9NO“Р#єNETWORKBUTxTONr O"$RPETUR‹8`& 'see`ƒmmentsRTES>TЁ3ЃXъ‚’VA8LID RРOV`ERWRId№PјATH3E №E +бSHA`W€J 2ЕF THROшUGHh2е` i0S‘g‚NO,12 O WHELPŠ1o рS_MAX&`Љ†6` ВOFS_с;_OPEN_FLhAGSРЋd€фSAVEфbelo‚w`are mЗto save ‚l! stateIт;Сey' @Чс `ndard Win32 ty\peрГЌЋ=2WE‘хG_ *kOrђ—4X?2< ž n/  N_ U$ ]0O B YOш T=р ёqqnStructSizeФЄjСhWndИOwnа‰…ЩIаnhancu e#‘spFiltxТ ingтCustomH€чnMaxїxnSIndќexc Шq сР‹рНTitlцОкњInitqPЈDir3 СwsЊшЊflags?tcрё‚БёeO`ffset$РI@ntegerіEpxtenёŒ!ћsјDef1 ї(0DataФjfn№Hook–€А… РsTemplа<ТИ‡AР…End 'ј'€‘Q(Ц3DecBlCFuncМG`etOpeвLib "comd@lg32" Д/ATli@ "ЬAѕ(‚p1filenУ{ щ)ёу xSџаK!ugЙe__АQИпetSаР tPathgke№rnelяркїByVal lpМszqб1S,EGV_ Scch№BuffА>Р1H'--ep blo0ck--€ВЌџџ<Аџџ<Дџџ<Иџџ<Фџџ<Шџџ<Ьџџ<аџџ<дџџ<иџџ<мџџ<рџџ<фџџ<шџџ<ьџџ<№џџ<єџџ<јџџ<ќ+фА,*,esoџџ€ЖџџџџџџџџdџџсЭКƒ ГGЊЇКЕќЃоѓ*=ћќњ hЇ8+3qЕньЁЗвMКЈю;\Žƒ7џџџџџџџџџџџџxньЁЗвMКЈю;\Žƒ7сЭКƒ ГGЊЇКЕќЃоѓџџMEџџџџџџџџџџпџџШџџџџџџџџџџ@џџ <8џџџџџџџџџџџџџџџџ(џџ,џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€SџџџџS џџџџS”џџџџ9”џџ1”џџ9”џџ1”џџ1”џџ 1”(1”01”џџ89”џџ@< H0”$F<0N<4@ 0”џџ*>"џџџџ<Ьџџи9 08 @€ џџџџP `p x€€ џџџџˆ€ џџџџ€˜€ џџџџj~ € ^€ &x€ " € $Ш€ №€ ^€ hB  p'xˆ˜ Ј ИР Шир€ џџџџ€ш€ џџџџr~№h€ џџџџ€ џџџџB p€ ^x€ и€ "ј€ $ € ZH € `Ј € `!€ h!€ ^ˆ!€ ш!№!€ џџџџј!€ џџџџ""€ џџџџ€"€ џџџџh~ "ˆ"€ џџџџB "€ ^˜"€ ј"€ "#€ $@#€ ^h#€ ^Ш#€ ($€0$8$€ џџџџ$@$ P$ `$p$€ 4€$И$RР$и$ р$ +ш$€ >%C@% X%`% h%€ ,x%Ј% И%Ш% а%и%€ џџџџр%ш%€ џџџџ€№%€ џџџџj~ј%h&€ џџџџџџџџx&рW---------------------------------------------------------------------------------------Tр( Module : cls_LayerKey : Class Moduleр DateTime : 8/3/2005 21:11Bџџџџр Author : Richard L BinningшрO Purpose : To allow for automated copying and upgrading of LayerKey StandardsџџрW---------------------------------------------------------------------------------------џџЭџџ`]@ђ€]@ђЈ]@ђа]@ђј]@ђ ]@ђH ]@ђp ]@ђ˜ ]@ђР ]@ђш –@рW---------------------------------------------------------------------------------------р Sub : Class_Initializeр DateTime : 8/3/2005 21:08р Author : Richard L BinningрW Purpose : Initialize the class, by getting aecapplication, aecbasedoc and collectionр of aecdocumentsрW---------------------------------------------------------------------------------------рЩЊ@эЦ .ŽэЦ.” !d ŽB@bэ Ž!j.”э ”!X.э Ž!.–Ща|џџШЃЊРЖError .!0Ж ( .!2Ж<) in procedure Class_Initialize of Class Module cls_LayerKeyA@,oџџH–€]ђр]ђј]ђ]ђ(]Ж-HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\Rђ@]Ж*\Dialogs\ADT_DEFAULTFNAME\InitialDirectoryђXр– "HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R16.2\ACAD-4004:409\Profiles\Architectural Desktop - Imperial\Dialogs\ADT_DEFAULTFNAME\InitialDirectory" Žѕ5!И!d!КЌ % м'А5!И!М'ЎqџџРЦ0ѕ Д АЖ\Curver7ОЖ \Profiles\'В Д АЖ\ ВЖ\ Ў Ж'Ќ Ќ7О'Œqџџ8mџџ0–pрW---------------------------------------------------------------------------------------р Property : Documentр DateTime : 8/3/2005 21:09р Author : Richard L BinningрE Purpose : Return an AECBaseDocument object for direct manipulationрW---------------------------------------------------------------------------------------рЩТ˜э ”.РЩ€{џџxЃТpЖError .!0Ж ( .!2Ж4) in procedure Document of Class Module cls_LayerKeyA@,mџџ–ррW---------------------------------------------------------------------------------------р Sub : Class_Terminateр DateTime : 8/3/2005 21:09р Author : Richard L Binningр5 Purpose : Call the Clean up for the class and exitрW---------------------------------------------------------------------------------------рЩЦxA@ШЩh|џџ`ЃЦXЖError .!0Ж ( .!2Ж;) in procedure Class_Terminate of Class Module cls_LayerKeyA@,oџџр– рW---------------------------------------------------------------------------------------р Function : Cleanupр DateTime : 8/3/2005 21:09р Author : Richard L Binningр* Purpose : empty out the reserved memoryрW---------------------------------------------------------------------------------------рЩЪhэА.”эА.эА.ŽЩHzџџ@ЃЪ8ЖError .!0Ж ( .!2Ж3) in procedure Cleanup of Class Module cls_LayerKeyA@,iџџШ–€рW---------------------------------------------------------------------------------------р Property : LayerKeysInStyleр DateTime : 8/3/2005 21:10р Author : Richard L BinningрS Purpose : Return a dictionary containing all the keys contained in the submittedрR layerkeystyle. The scripting dictionary allows for easy verification.рW---------------------------------------------------------------------------------------рЩЬР ЄАœэ Є.Fdџџ˜рWith New WshShellр I.Popup "Accessing Layer Standards in 3 seconds.", 3, "RLB LayerKey Tools"рEnd With]ђ]ђ0э $в.Юрsimple check for valid styleve traЩаэЦ,.Єinatin .œІЖError Getting Style LЖPlease Reselect Layer Key дЖRLB LayerKey ToolsA@, o .B@†rned skџџ8џ аў Ю!p“e list Єѕ а!7ˆœ%th а! аC@”the pakџџрqџџиџ аўШining э Є.Fe the kџџАЩЈ{џџ ЃЬ˜ЖError .!0Ж ( .!2Ж<) in procedure LayerKeysInStyle of Class Module cls_LayerKeyA@,Limџџ –PрW--------------------------------------------------------------------------------------- р Function : OpenDoc р DateTime : 8/3/2005 21:10 hр Author : Richard L Binning р[ Purpose : If the chosen drawing is not already open, open from the aecbaseapps documentsџџр р collection. kрW---------------------------------------------------------------------------------------р]ђ№ЩкH Щм@ ”А›Gzjэ ж и Ž!%.ŠB = ж p%ˆœђ0 ж и pB@” !kџџи э Š.”кЗ'8zџџИ ЃмА рJust pass it back out! .!0Ќœ .!0 .!р .!2 .B@оkџџP ЩH zџџ@ Ѓк8 ЖError .!0Ж ( .!2Ж3) in procedure OpenDoc of Class Module cls_LayerKeyA@,OniџџШ –рW---------------------------------------------------------------------------------------р Function : InitializeЗC@р DateTime : 8/3/2005 21:10$fр Author : Richard L Binning р Purpose :gain!рW---------------------------------------------------------------------------------------.рЩфh э ”!l. эЦ,.І ( ІB@ц &$џ žў  “ Іѕ ž!7ˆœ &ў ž! ž!шC@”kџџшqџџрџ žўШ.ЩШzџџРЃфИЖError .!0Ж ( .!2Ж6) in procedure Initialize of Class Module cls_LayerKeyA@,iџџH–pрW---------------------------------------------------------------------------------------р Function : KeyStylesADTPр DateTime : 8/3/2005 21:10ар Author : Richard L Binning р Purpose :h!dрW--------------------------------------------------------------------------------------- 1рЩъшэ ь.:ЖPlЩаzџџШЃъРЖError .!0Ж ( .!2Ж5) in procedure KeyStyles of Class Module cls_LayerKeyA@,iџџP–ррW---------------------------------------------------------------------------------------р Function : GetKeyStylesѕр DateTime : 8/3/2005 21:10џџ р Author : Richard L Binningrd 1р Purpose :e. LрW---------------------------------------------------------------------------------------Biр]ђPЩ№шэ ”!l. sэЦ,.ІџџШ ІB@цАџ žў  “р- Simple way to avoid duplicates in collectionpЩh ž ž! юB@”upЩH Іѕ ž!7ˆœђ8 р8save names for search, add handle for retrieve from item ž! ž!шC@”kџџШqџџРџ žўШђ( ю!ќЌ œэ ю.ьhe coddџџˆэА.ьkџџxЩpzџџhЃ№`ЖError .!0Ж ( .!2Ж8) in procedure GetKeyStyles of Class Module cls_LayerKeyA@,BrowiџџшрW---------------------------------------------------------------------------------------s р Function : GetKeyStyleFromNameG р DateTime : 7/27/2005 12:46Ь'р Author : Richard L BinningN stр Purpose :рW---------------------------------------------------------------------------------------heр–pэ ”!l. inџ žў  “ti ž! ђœэ ž.в)deyџџ@kџџ8џ žўШional Щ zџџЃєЖError .!0Ж ( .!2Ж?) in procedure GetKeyStyleFromName of Class Module cls_LayerKeyA@,'Дiџџ–рW---------------------------------------------------------------------------------------Др Function : LayerKeysр DateTime : 8/3/2005 21:11р Author : Richard L BinningрS Purpose : Pass in a KeyStyle object and get the set of Layerkeys as a collectionрY of names (strings) in return. This is the function that is available to theрY calling routine from outside the class itself. It calls the private functionр below.рW---------------------------------------------------------------------------------------рЩњэ ј$ќ.іЩ№zџџшЃњрЖError .!0Ж ( .!2Ж5) in procedure LayerKeys of Class Module cls_LayerKeyA@,iџџp–˜рW---------------------------------------------------------------------------------------р Function : GetLayerKeysр DateTime : 8/3/2005 21:11р Author : Richard L BinningрX Purpose : Pass in a layerkeystyle object and receive the collection of its key names.рW---------------------------------------------------------------------------------------р]ђ0ЩРэ ž!p.œэЦ,.Є ЄB@цџ šў œ“р- Simple way to avoid duplicates in collectionЩ@ š š! ўB@”Щ  Єѕ š!7ˆœр8save names for search, add object for retrieve from item š! šC@”kџџ qџџ˜џ šўШр% Return list of Keys in this KeyStyle ў!ќЌ œэ ў.ќdџџ0эА.ќkџџ ЩzџџЃЖError .!0Ж ( .!2Ж8) in procedure GetLayerKeys of Class Module cls_LayerKeyA@,iџџџџџџˆџџџџGЖAttribute VB_Name = "cls_LayerKey" ŒBasŒ0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalаSpac’False dCreatablPredeclaIdБCExposeTemplate Deriv–Cu@stomiz E'-S ' Modu{ : ƒ УClasseD_Ti€и€ 8rU€€ 03ЩЙ ™ё!ёQЉСщ`а ‰ Yбa щ y !q‘! щ Y!ЁЩ!0@ Q.Й-  б.љ818‘1Y88Љ8б8A:99с9a9Љ9Щ9с 1YџџџџЙ 4Љъъъ`Iџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8I9qџџџџџџџџџџџџ0€ `њџџџ `0€`‰Q‘џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ<aY‰хххџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@Ёшшшž§џџ`ЩџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџDС№№№ `IџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHсy щщщџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџLaY!ѕѕѕџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPaY9ьььџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџTсyQљљљџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXсyiњњњџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ\aYћћћџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ `™™СјјјЈ§џџ` џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџdщЙїїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџh1юююž§џџ` џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџlQйyќќќџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџpсy™яяяџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџl—W—зWззW—_Ÿп0 ќЦ    §єtџ_t‰УЭ'0џ4џ! œ4џ ”l0џћ0/0џ4џШ‰:џѕД џ  џћяџ:№ўћярў:аўћяРў:Аўћя ў:ўћя€ў:pў ћя`ў:Pўћя@ў:0ўћя ў:ўћяў:№§ћяр§`1xџ6 џџрўРў ў€ў`ў@ў ўўр§ qм§ ѕL™м§и§ $ d lи§™м§ lxџTм§ ѕ™м§0џЬ>0џF џќі`џ`џћы џ(џ]ћtK3ѕѕџџџџ:џN џ џ`џ§ў0џџ џќі`џ/0џ5 џ `џ ? `џќ5IєLфrџ`џќ5IєќЫфўcд§<krџpв§kв§`џќ5IєLфЦЩ(џ%`џўЎ џ`1\џ5 џ0kв§`џќ5IєќЫфЦ!rџ§“@`џўЎ џ`#0џTм§/0џ5 џ0-l\џ*F џrџ§“@`џўЎџћярў`1\џ6 џџрў rџdд§“IC\џl\џC<џ”м§ћ0Уž6”м§ѕ #0џ*#Ь§*#Ш§*#Ф§Tм§20џЬ§Ш§Ф§д4ѕ #0џ*#Ь§*#Ш§*#Ф§Tм§20џЬ§Ш§Ф§ ”м§J™м§ *#0џ*#Ь§Tм§<20џЬ§4ѕ #0џ*#Ь§*#Ш§*#Ф§Tм§$20џЬ§Ш§Ф§" Š$J™м§(l\џ*#0џ*#Ь§Tм§,20џЬ§ Tм§0 ѕ 8™м§4 ѕqм§. x§x§^qи§<x§ lи§ќRўіx§Ѕ(" ŠJѕЎ" Š #0џ 1Tџ/0џєprџlTџJѕлz2Ь§C0џ0џTџќrџMџ@>Ь§F џtџ (/0џ5 џ=Ь§C0џ0џTџќ'џ>Ь§F џ4џ! œ4џ а/0џ4џ6 џџ єџ_tŽ krџєЉprџри§tџ ,lи§фppџ6" ŠJѕЎ" Š #0џ #Ь§Jѕл20џЬ§ƒr" ŠJѕЎ" Š #0џ 1Ь§и§4џ! œ4џ єlи§ѕЎ§iџ>Ь§F џt§! œt§ а20џЬ§)4џt§6 џџ єџ_tŽ>и§4џ! œ4џ єlи§ѕЎ§i џt§! œt§ )4џt§5 џ ѕ4џ! œ4џ 4џЦ0џ4џ! œ4џ ”>0џ1<џ4џA0џ4џ! œ4џ ”t§ ”lt§=p§p§l0џш/0џ)4џt§p§ ќc=tџџ  x x§i0џџџџ bФ pџџа \џ џџLџ џџџџPџ џџtџ џџџџDџ џџHџ џџџџ`џ Јџџxџ џџ<џ %џџTџ џџџџT0џЬ§Ш§Ф§4џt§p§ џџрўРў ў€ў`ў@ў ўўр§!Аhџ-pџ&$' 0(lpџ=)tџpџpџtџ |*lpџ=+lџpџ`џlџ x,>`џ1xџ ќc=+lџ ќc=)tџџ/ h4xџhџlџtџ`џpџ0 ќЦ€  0 ќЦ   0 ќЦ0  0 ќЦ  0 ќЦа  0 ќЦ0    §єtџ_t‰УЭ'0џ4џ! Ќ4џ ”l0џћ0/0џ4џШ‰:џѕД џ  џћяџ:№ўћярў:аўћяРў:Аўћя ў:ўћя€ў:pў ћя`ў:Pўћя@ў:0ўћя ў:ўћяў:№§ћяр§`1xџ6 џџрўРў ў€ў`ў@ў ўўр§ qм§ ѕL™м§и§ $ d lи§™м§ lxџTм§ ѕ™м§0џЬ>0џF џќі`џ`џћы џ(џ]ћtK3ѕѕџџџџ:џN џ џ`џ§ў0џџ џќі`џ/0џ5 џ `џ ? `џќ5IєLфrџ`џќ5IєќЫфўcд§<krџpв§kв§`џќ5IєLфЦЩ(џ%`џўЎ џ`1\џ5 џ0kв§`џќ5IєќЫфЦ!rџ§“@`џўЎ џ`#0џTм§/0џ5 џ0-l\џ*F џrџ§“@`џўЎџћярў`1\џ6 џџрў rџdд§“IC\џl\џC<џ”м§ћ0Уž6”м§ѕ #0џ*#Ь§*#Ш§*#Ф§Tм§20џЬ§Ш§Ф§д4ѕ #0џ*#Ь§*#Ш§*#Ф§Tм§20џЬ§Ш§Ф§ ”м§J™м§ *#0џ*#Ь§Tм§<20џЬ§4ѕ #0џ*#Ь§*#Ш§*#Ф§Tм§$20џЬ§Ш§Ф§" Š$J™м§(l\џ*#0џ*#Ь§Tм§,20џЬ§ Tм§0 ѕ 8™м§4 ѕqм§. x§x§^qи§<x§ lи§ќRўіx§Ѕ(" ŠJѕЎ" Š #0џ 1Tџ/0џєprџlTџJѕлz2Ь§C0џ0џTџќrџMџ@>Ь§F џtџ (/0џ5 џ=Ь§C0џ0џTџќ'џ>Ь§F џ4џ! Ќ4џ а/0џ4џ6 џџ єџ_tŽ krџєЉprџри§tџ ,lи§фppџ6" ŠJѕЎ" Š #0џ #Ь§Jѕл20џЬ§ƒr" ŠJѕЎ" Š #0џ 1Ь§и§4џ! Ќ4џ єlи§ѕЎ§iџ>Ь§F џt§! Ќt§ а20џЬ§)4џt§6 џџ єџ_tŽ>и§4џ! Ќ4џ єlи§ѕЎ§i џt§! Ќt§ )4џt§5 џ ѕ4џ! Ќ4џ 4џЦ0џ4џ! Ќ4џ ”>0џ1<џ4џA0џ4џ! Ќ4џ ”t§ Єlt§=p§p§l0џш/0џ)4џt§p§ ќc=tџ  x x§i0џџ bФ \џ џџLџ џџPџ џџtџ џџDџ џџHџ џџ`џ џџxџ џџ<џ џџTџ џџT0џЬ§Ш§Ф§4џt§p§ џџрўРў ў€ў`ў@ў ўўр§!€,tџ >tџ1xџlxџJѕлж.'@џtџ >tџF`џpџ! œpџ аpџ6`џ@џ+'@џ:PџN`џ`џpџ! œpџ аpџ6`џ@џ.'@џtџ >tџF`џpџ! Ќpџ аpџ6`џ@џ+'@џ:PџN`џ`џpџ! Ќpџ аpџ6`џ@џ&Nѕ'`џ 'Рў'рў:Pџ`џћя@џ:0џ!ћя џѕ@:џ"Nџџ #6 `џ@џџ џрўРўМ,(xџ,tџpџ`џ@џ џџрўРў0 ќЦА  0 ќЦ`   \, §є§Пњ[@§jlџ%$ ,€ ,$( јTџ"X <Tџќіlџ lџќ5IєLфjџlџќ5IєќЫфўc@џŠ/8џ<џ-$. ,(<џ  (Q8џ[4џdџ<џўˆ0џ €ўС џќіDџ3џdџ д >џFTџjџ§“@lџўЎ џћ}ќўџ6Tџ џqњўdџ ш kњўв'шў%ќf џ%dџ < o\џdџ д 'Рў'ќў: џ/N џ џѕ01*#фўlџ*#рў2*FTџ^#§iАўќіDџ2фўџрў6Tџ џќўРўDџўС џ]ћ3X'шў%c џ%dџ < m'шў%ќf џ%dџ <  dџў‹0џ h jџd@џ9 Ь8 4џ0џdџlџDџ0 џфўрў<џ8џTџ џќўРў0 ќЦ@   p0џ- §є$pџlџpџ %>lџ1xџќcќјpџџ/ 00xџpџtџlџ`4@h D 8   88WC =#BЯn‚ …—Я˜ќr.ߘ٘m_oп˜i с-™OpenР…nC1:cn, ROбBџ A0vRoД_XUџœ Qџmœџmqœ ' œ`*‘jch n /3/2005 21:11Au0thor€#€Richard L €BinningPurBTo €allow f€ auР<Рd copy@ and @upgradAoФf ‡ StР€s@?ER Op tion tlicit P@m€( m_objAECAЅApp As AecXUКI.€a9SDB‰ РWab@Лд ocSDoc№umen€) )EР(џ)†РZ€с (E`е ?ЦE4 @jЭ%Р Stўy NЄ'M‚ ХV Чтр IdicР5€C Scriр;n g.DicA4aryj S‡Sub ‚e_Initi€alize()?TЋвOŸ- a:Ўѓ!еt08ЁпtШtЧ0 theрƒ‚, €by gettu ecapp…], haec!Xd`Uaxc№olle‚,Aaƒeџ`z`рBW`6œ#1)  Oрyrr™ Go€­5_Ea#}Set}= јNew}}‘ mЦ“Ѕp"M.Ё/ Th@isDraw -.OŽчŠw l”.A 0vnek M ’= Р.ї’ … s@Э fФ)…+/0ВExit!,!ПБ:д Ms@gBox " " & .NumberР" (15DesГ=А[& ") in pr€ocedureЎ2о (Ђ%pLˆE0h@6aPubp Property G№!тMStdFolHderё…()1SS tr Dim  strAcfЯ1ФRelПДVE†RПДCurV 0T9Const €lsfRootа"HKEY_CURRENT_USER\Softw Œ\А@odeskС‚CAD\Rа“Ё!FLimbA\DPMogs\ADT_DEFAULT@FNAME\$BDdir€>orс›' ‡16.2\A0-4004 :409\Ail‚e0rchitр ural Pkt€op - Imрp Я Я Ъ Withн6Ё = VBA.Left$(. ferenШcesАof‘ 9Š.АsPƒ, 4_чqЖ= А Д9Є3' гВ бCW€shShellcЦT №RegReшad(Е&Г'‘ а0т\€verP1СЖПц?Ё6\‘6птTЁ6a&‘'A#їW 2№.Х вADЧ‘€7A8рvo8 џХFУ7Џ˜ѕ``пaя—A: aŸxyГ09бŸxГГR eturn€Б ФЇ]… №ЈР-‚ДdB8 РmanipuРЦр(џ€ Bџы]e u ~fб(bў ИpbY ћObЁcObџObŸ!-LbF ЯaъЭ)ЎS– Termi~n У Џ-wŽ FР п'п'q?:n як€сщкCРк C№lean йт&&Ёђкe }`o Ж-3 ' On Error GoTo Class_Terminate_4 R8ean,up p0"ExРit Sub"J:< MsgBoˆx "{" &…€.Number " (Desc€ription) in pro@cedure А of Module cls_LayerKey" End…OPublic Fun’c‚-Cl‚n()€ŒoДЉ€,‡7:T„Ї' DЖTime : 8/3/2005 21:0Т9Auth€а€ж: Richard L BinningPurp os@€empty out the reserved memorўy џ6R@‚€Э“‚8Ы‘Set m_objAECBaseDoc = NXoth‚3€9 ŽBё]App‰а"ˆЈ}џУЉˆ(џЇЮЇBсЅ %Ї@Proper€sG€L…БsInStyle(ByVal@ strNa GA s Str () ƒAcfng.Diт[ОaŸ?ђ:Ÿ €? f\: -С5\1Р2' ?\(\Retur n a dF c ontaiсa a„llB_keysх`Р†bsubmipttedAMelЧЁ„aa+. T€g ng) Р ows freasy v€erificaˆў.€ &?0 ЁU№Zѓ­-‹mIf!kрm€%рmУ€ Ёs Isn!>nТ "!!o- km_CъуElse''With New WshShellgA '.Popup "Acce ss UE Stand`šsAЛ3 se€9ds.", €3, "RLBJР ToolsрИB€'КсG Dimx o_€‚daaAAмecЅтэLaЯшGa"H = Рq аFromсo(фpРЧ!†simpaаheckFvalid v wЇ &ІResuсyNextkŒ/сœ§ ,SR|ХpАuЬС;›w t‘B!wvbаCrLfv_75"P0r`f€ eleuXzLЇа@ё'J ust p`р АмќbakАФsp№Uк0<> 0lSбRai bw,’нSouјrceГHDsMщПMљБд LOхOхrL?KхЕЯфЮфI эKInу№pze(пIO3-ОД- ' Function : Initialize`Date Time d8/3/2005 21:10:Author : Richard L Binning@Purposz< :шIY ƒOn ErrPGoToЧ_  $ Set m_objAECKeyStyles =† BaseDoc.Layer#‰dicŒNew Script€{.Di‚Ѕary ƒm_Œ.Rem@oveAllFс€YEachŽKbŽ †sƒ€w WitŒ.‡If Not .Exists(|.NameР) ThenЫ СА.AddЮB ,рHandlРŒХРEnd IfСу-CNexb„iЫrї›€€0tFЊС ‡ЊƒxИCMsgBoxD "ƒƒ" &†.@Number"Ф (ХDesУmРО& ") in procedureШ of Class Modu€le cls_…ˆ8" A6б&Pu0blicЧе’() As Coll>eB‰ПХ•в@Ч: љˆВ' Пѕпz_|;р?Ђ9KAЦЏzF yGeўtЦс1РG_J „†?JМrr?J.Jц JdІ7ёJriv`Б':)ŸJџŸ1?!ŒJЫ,џJпХџJ‡;хJ DimЇbўLРЃ!sAЙЉsGIoPч?Ы?ЫgD= ?Ыjб?Ы$о<Ы' Simp`Nway to avoid duжp@MP(saRc8LPУ"66ResuPƒ!^џ#Yс† СЯe€xeтfї'O 0<€a’Љ.0UуъГEls(?Б‡~hВ u ВŸ€ x~i~Я6?~"Ÿѕ|?~rў.?~9~J_~_~ЄВ`DFg^:z  F@%›)|7 /2 ЁЙ12:4ў6сЏЙЏЙПVП Ч PЏkЦy (ByVal ,LKс qXSp4ngёТ’AecЪИЃ'С&пVџМЊФГЗoQЧСѓ,џD-r;Р1” ДL1Ÿ ­wТ2В0orWџi?O>B>5PОГ_%ўe/OД/`66rжЦ66v6тќДUsё€#RefFMЁ#§"Зџ+q7˜є6 їqЗ„є1бп:п:е:ь PaШpЪaWрьрФ ph get tphe sp`Bk eys a E{КГ@on ' of names (strings) in return. This the function that(available to(e ЖcallЄ routiBn€rom s id2Qclas^tself. (It 1sJ p`rivatt [b elow.-S €, ”On Error GoTo LayerKeys_ ‚ Set = (Get†(StАyle)„‹(0‚ РExit F„Џ 4:„ MsgBox "ƒI" &N.Number" (… Descripи& "ыprocedu,reH+€C‚aMo„du€rcls_E@" End &P Фe+ Ъ:ByRef m_objAECE> As AecECCCol|leТ”?r•@0 :Š+D™Time Р8/3/2005 21:1Т1AAuthР~Р: Richard L BinnРЕPurpos @€PГn a кl‰k€‰С} C9 a@RreceivП? Р`its~ @ уџЕХ€cVD„imІ@Listс1№New i2ю_‰=O`Зх>=@?sa-A.сƒуafm_dicE !SуVng.Dbi‚Carycь.RemoveAl lУF@5EachЃPу In,sуР ' Simpр^wayјavoid dupliЦc@C “n cШTaCaІxResuРGNxextЇ т„+.(Addь,ь.N@АЇ1„тWitŠ&ЧAIf Not .Šsts(ы+2Т )`КeРР ˆX'saScСf)search, a $XС Уrie ТfЙitem ! Ÿ0BЭ+!Ifg?с#с+Ќ&' ђR‚е lX iBO`и~tAз€Тc #*3Count > 0?l"aSI] Yщƒ Elоs о%(P1hТ„aџЅb€ ^€ $`€ "ˆ€ $А€ Dи€ ^ €€€ џџџџ"ˆ€ ^€ "№€ "€ $@€ \h€ :Ш€ ^€ h€p€x€€€ˆ€€˜€ €Ј€А€И€Р€Ш€а€и€ р€ џџџџ !€ (0X)`xJˆЈ€ (И)рјJ*( @PX h2Dx0А Ш и шј.*0 H GX Mx  ˜   А4Р и ш ј      (08 H X hzp€ џџџџ№ј€ џџџџ€€ џџџџh~p€ џџџџ"x€ џџџџ€ €€˜€ €Ј€А€И€Р Ш€ и€№€ј€ € € € € €( €0 ˆ8 € @ € ` € "€ € $Ј € а р 'ш € 0 € 0(,Œr8-0 € 8  X € h ˆ € 0Ј  и € "р   € 0 € 0@ € p  ˜ 3Ј  Ш  и ј   $   $!0  @ $-H h  p €  ˆ ˜   Ј А  6Р р 04ш  €   @ € "P € "x € 4`,€ 4  € 0и  4(€ .8€ h€ џџџџˆ€   И€ (иF  H€ џџџџ€ P .h€ 0x€ $Ј((а€ ,ј€ ,(€ ,X€ ,ˆ€ Иир€ џџџџ2№= (€ 80 h€ џџџџx € .6 DrР   > 0 8 HP Xhpx€ 4€€ $ИAрј€ џџџџ€ € џџџџB€ (€ (8€`€h€px ˆ ˜  ЈB А€И/Р?и ј   0" 8€@€H€P€X€`h xRV€ и  ш №     (08@tWPШа и р№ ј"   80 P`h€ џџџџBp€x€€€˜€ Ј И Ш аиBр€ш№€€€€ 6(€ `€ $€ Ј АИ€ џџџџ"Р)Ш)р€ ј - 10 8  @ШnH  (08€ џџџџ"@)H)`€ x -€ 1˜А И  РШnШ  ˜   И Ширш€ џџџџ"№€ ј€€€ €(€0€8 @€ P€h€p€x€€€ˆ€€˜€ €ЈˆА€ И€ и€ "ј€ $ € HX'`€ 0xŒrЈ,р€ ш € 8€ 0X ˆ€ " И€ 0Р€ 0№€  @H3X x ˆЈ А$Р а$!р №$-ј 0 8HPX` 6p04˜Ш€ а №€ " € "( € 4Ј€ 4P € 0ˆ  4И и € .ш € !€ џџџџ8!€ P! h!€ (ˆ!F А! ј!€ џџџџ€ " ."€ 0("€ $X"((€"€ ,Ј"€ ,и"€ ,#€ ,8#€ h#ˆ##€ џџџџ2 #=Р# и#€ 8р# $€ џџџџ($ 0$ .6@$ Drp$  И$ >Р$ р$ ш$ ј$% %% %€ џџџџ(%€ 40%€ $h%A%Ј%€ џџџџ€А% И%€ 8Р%€ џџџџ€ џџџџј%€ џџџџ€ џџџџ€ џџџџ"&€&&&.(&+8&.P&+`&x&^N€&р&ш&€ џџџџB №&€ .ј&€('€0' 8'"@'P'X'$`'€'(/ˆ'А'€ џџџџBИ'€ џџџџ€ (Ш'€ .№'€ , (€P(€ џџџџX(€ џџџџ p(€ џџџџx("(€ џџџџА(€ џџџџИ(€ џџџџ"Р( Ш(и(№(€ џџџџ" ј(€)€)€) )€() 0)/P)h)3p) ˆ) ˜) Ј)V\А) * *(* 0*@* H*P* X* h*x*€ џџџџ"€*€ˆ*€*€˜*€ * Ј* И*Ш* и* ј* ,+ +, +08+ P+`+h+ p+x+ €+ +  +AР+ р+№+€ џџџџBј+€, ,,, ,€ џџџџџџџџа-рW---------------------------------------------------------------------------------------Tр Module : UserForm1 : Formxр DateTime : 8/3/2005 21:465 21:4р Author : Richard L Binning Binр> Purpose : Provide Graphic Interface for layerkey operationsd roрW-----------------------------------------------------------------------------------------Эџџx–рW-----------------------------------------------------------------------------------------р Sub : cmdCopySelected_Clickр DateTime : 8/3/2005 21:47р Author : Richard L BinningрU Purpose : This is the main command button on the Form used to complete the copyingр3 of layerkeys from one style to anotherрW---------------------------------------------------------------------------------------р]ђ@]ђX]ђp]ђ]ђА]ђа]ђ№]ђ]ђ0]ђP]ђp]ђ]ђЈ]ђШрconnect to the aecbase appЩ`јэЦ.: !d :B@bр"connect to the Source doc and keysЗ'V џџ!h!dA@fэ :!j.>э џџ!n!d >%l.Dэ D!p.Hр"connect to the Target doc and keys џџ!r!dA@fэ :!j.Bэ џџ!t!d B%l.P џџ!v!xЗœЗ P(zkџџЈэ P!p.RэЦ,.|ЖCopying ‚!„Ж Layer Keys... |(€ ‚!„Ќ |(†Ќ |(ˆЌ |(Š |B@ŒA@„Ќ |B@Žџ 6ўЌ ‚!„Ќ ’ 6 ‚%Зœ 8Ќ '8э 6 ‚%’$H.Lэ 6 ‚%’ R%”.T Tѕ L!–9– L!292 L!˜$š9˜ L!œ9œ L!ž9ž L! 9  L!Ђ9ЂqџџрэА.LэА.TkџџШ 6 |B@Žџ 6ўШ |B@ЄэА.|ЖUpdated џџ!t!dЖ with  8Ж new Layer Keys! ІЖBinningЌД$ЈЖs LayerKey ToolsA@,Щ|џџЃ`јЖError .!0Ж ( .!2Ж6) in procedure cmdCopySelected_Click of Form UserForm1A@,oџџˆ–шрused in call setup]ђ(]ђ@]ђ`]ђx]ђ]ђЈэЦ0.Ўрused after call]ђР]ђи]ђ№]ђ]ђ ]ђ8]ђP]ђh]ђ€]€ђ˜рThis keeps the code fromрBecoming recursive when itрSet the Index to a new itemр(This will fir the click eventрAgain) Ъœ h!dЖBrowseœр )create a string of filters for the dialog Юѕрsize of the OFN structure Ю9арwindow owning the dialog !д9вр0 Form1.hWndр)filters (patterns) for the dropdown combo Ќ9жрindex to the initial filterЌ9ир)default filename, plus additional paddingр*for the user's final selection(s). Must beрdouble-null terminated к'Д ДЌ œ ДЖ\Ќ о$м'Д Д$рœџ 6ў ДŠ Д‘’ 6ъ ДŠKTЌ$Д'Ж Д‘KT 6$Д9тSџџ0 ЖЖ\ 6$Д'Жnџџџ 6ўШdџџ№Жc:\'Жkџџиkџџа Ж'Ц5тЖœ5тЌ$ ф Ь Ь9тdџџЖAecLayerStd.dwgЌ$ ф Ь Ь9тkџџXрthe size of the buffer5т9црdefault extension applied toрfile if it has no extentionр.space for the file title if a single selectionр*made, double-null terminated, and its size ЬЌ$ ф Ь Ь9Т Ю!Т9ър'starting folder, double-null terminatedрdevnote update here Ж Ь Ь9ьрthe dialog titleЖRLB Layer Key Tools9юр"default open flags and multiselectІўџ ђ9№р.0Or OFN_ALLOWMULTISELECTqџџр call the APIј Ю$єœр)remove trailing pair of terminating nullsрand trim returned file string Ю!т Ю!тЌ $ м$ і'Кр&show the members of the returned sFileр&string in the listbox. If multiselect,р%the first member is the path, and theр%remaining members are the files underрthat path selected.Ќ'6 КЌ b К Ь$ј 6 ЎB@” К Ь$ј hB@њЗ'Ър2List1.AddItem StripDelimitedItem(buff, vbNullChar) 6Ќ '6Йџџр Ў!ќ'В Ю!т Ю!тЌ $ м$ іЌ œІ Ю!т Ю!тЌ $ м$ і h!„Ќ hB@њЗ'ЪІ h!„Ќ h(ўdџџ(  h(dkџџ dџџ h!d'Цkџџ№ kџџш dџџр р.After choosing the layer key standards drawingрfill the available layer keys h!d џџ!nA@kџџ` ЃX эА.ЎoџџH –А]ђэ !j.р"Set o_ADTBASEDB = oADTDoc.Database]ђ0]ђP]ђhэ !.  !'кэА. эА.iџџА –€]ђџ ў d!“ !$š $šœ B@ З'fyџџH kџџ@ џ ўШiџџ( – ]ђЈ]ђР]ђр]ђ]ђ $f'. .œЖOpen Read Only? 2ЖBinningЌД$ЈЖs LayerKeys Tools$,'0 0 4œЦHѕ ЗC@8qџџX dџџP ЦHѕ ЗC@8qџџ0 kџџ( kџџ $fœІ ЖError Opening: ЖPlease try again! ІЖBinningЌД$ЈЖs LayerKeys ToolsA@,|џџ kџџˆ ЦHѕэ5:.(qџџh (Аœџ &ўЌ (!ќ’э &$(., ,! &Ќ "B@њџ &ўШkџџјoџџ№–0]ђэ !j.]ђА]ђа]ђшэ !.  !>'<эА. эА.iџџ€–]ђ`э !j.]ђ€]ђ ]ђИэ !. р/ MsgBox "finish getlayerkeydefault function"р MsgBox oADTDoc.pрGetLayerKeyDefault = oADTPref.эА. эА.iџџ –а n!dЌ œ h!dЌ œ]ђ h!d$fœЦHѕэ n!d7F.Dqџџ(kџџ ЦLѕІ Ж$Layer Standard 1 Selection Complete. LЖPlease Select Layer Standard 2 LЖ$AutoClosing this message (3 seconds)ЌЖBinningЌД$ЈЖs LayerKeys ToolsC@JqџџH џџ!rB@Nkџџ0kџџ(oџџ –0 t!dЌ œ r!dЌ œ]ђp r!d$fœЦHѕэ t!d7F.RqџџЈkџџ ЦLѕІ Ж$Layer Standard 1 Selection Complete. LЖPlease Select Layer Standard 2 LЖ$AutoClosing this message (3 seconds)ЌЖBinningЌД$ЈЖs LayerKeys ToolsC@JqџџШA@TДА|@ џџ(V џџB@X џџ!‚B@Nkџџ€kџџxoџџp–рused in call setup]ђа]ђш]ђ ]ђ ]ђ8 ]ђP эЦ0.Ўрused after call]ђh ]ђ€ ]ђ˜ ]ђА ]ђШ ]ђр ]ђј ]ђ ]ђ( ]€ђ@ рThis keeps the code fromрBecoming recursive when itрSet the Index to a new itemр(This will fir the click eventрAgain) Ъœ r!dЖBrowseœр )create a string of filters for the dialogр..sDefFileExt = "dwg" & vbNullChar & vbNullChars Юѕрsize of the OFN structure Ю9арwindow owning the dialog !д9вр0 Form1.hWndр)filters (patterns) for the dropdown combo Ќ9жрindex to the initial filterЌ9ир)default filename, plus additional paddingр*for the user's final selection(s). Must beрdouble-null terminated к'Д ДЌ œ ДЖ\Ќ о$м'Д Д$рœџ 6ў ДŠ Д‘’ 6ъ ДŠKTЌ$Д'Ж Д‘KT 6$Д9тSџџ ЖЖ\ 6$Д'Жјnџџ№џ 6ўШdџџиЖc:\'ЖkџџРkџџИ Ж'Ц5тЖœ5тЌ$ ф Ь Ь9тdџџxЖAecLayerStd.dwgЌ$ ф Ь Ь9тkџџ@рthe size of the buffer5т9црdefault extension applied toрfile if it has no extentionр.space for the file title if a single selectionр*made, double-null terminated, and its size ЬЌ$ ф Ь Ь9Т Ю!Т9ър'starting folder, double-null terminatedрdevnote update here Ж Ь Ь9ьрthe dialog titleЖRLB Layer Key Tools9юр"default open flags and multiselectІўџ ђ9№р.0Or OFN_ALLOWMULTISELECTqџџјр call the API Ю$єœр)remove trailing pair of terminating nullsрand trim returned file string‚ўџџџ„ўџџџ†‡ˆўџџџŠ‹Œўџџџўџџџ‘ўџџџ“”•ўџџџ—˜™š›œEŸ ЁЂўџџџЄўџџџІЇЈЉЊЋЌ­ЎЏАўџџџВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийўџџџлмнопрстуфхцўџџџшщўџџџыьэюя№ёђѓєўџџџіїјљњћќ§ўџ џџ<4џџ<8џџ<<џџ<џџџџџџN0{8rU€€€ џџџџџџџџx`)%p0ўџџџџџџџџџџџ™Йй !1AYq‘ЉЩ",с%$pўџџџџџџџџџџџсљ(Љ&Dpўџџџџџџџџџџџс@Q'hpўџџџџџџџџџџџ1AQa4џџџџ< („pўџџџџџџџџџџџq‘Љ4џџџџ,С(ЄpўџџџџџџџџџџџЙй(i)Фpўџџџџџџџџџџџс(A*рpўџџџџџџџџџџџЩ8љ*p ўџџџџџџџџџџџqс4џџџџ( ,(pўџџџџџџџџџџџљ(hџџџџџџџџџџ!0(Ah!џџџџџџџџџџ9((h%џџџџџџџџџџY((Сh)џџџџџџџџџџY($`8џџџџџџџџ$A`-џџџџџџџџџџ$`1џџџџџџџџџџ,С`5џџџџџџџџџџy‘(Јa$‘$n<$џџ#Comparison View (Layer Keys missing from Target)Rу ‘ЮуЊKИQDBTahoma,$$х€'`ListBox1Йљ sџhџhџ ,ldџ*#\џ*FLџ 2 pџlџ`џdџ\џ)xџhџ6џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџD € §‘h$ @ € `$ @ € X$ @ € \$ X(ŠdѕЬ!Šd <џџ($  …Lџџџѕѕѕѕ<ѕњѕdѕєѕРŠhDџ4lDџrU€€€ џџџџџџџџP, pџџџџџџџџџџџџс4џџџџ, (pџџџџџџџџџџџџс4џџџџ0 Pp џџџџџџџџџџџџ 1Y!n—зrU€€€€~| џџџџџџџџџџџџp @rU€€€ џџџџџџџџh$`< џџџџџџџџ(Ahџџџџџџџџџџџџџџ0,h!џџџџџџџџџџџџџџ=Б$С`@џџџџџџџџ(`%џџџџџџџџџџџџџџ/0Ah )џџџџџџџџџџљџџџџ=б0` -џџџџџџџџџџё џџџџ##(С`1џџџџџџџџџџџџџџ#,`5џџџџџџџџџџџџџџ=,A `Dџџџџџџџџџџџџџџ=0 `Hџџџџџџџџџџ9џџџџ=Q8С `9џџџџџџџџџџqџџџџ=Q=8  `Lџџџџџџџџџџ‘џџџџ=Q= nrU€€ ` ё0A1а ‰ i1‘1y/Й1с1щqA 2 Щ4ё4щ i53‘5С5щ5б 4б.)6Щ0)7Љ.љ"б.џџџџЉ"@\I#yq#џџџџџџџџџџџџ Щ  W—W—зззW—ЌPKЮ§є[xџ§ˆ4xџ§є[xџ§ˆ<xџ$xџ$ lQxџ[tџX4 иtџ'xџX4 0lxџ=[tџ§ˆ<)xџtџ'xџX< plxџ=[tџ§ˆ8)xџtџ'xџX4  lxџ= [tџ§ˆ@)xџtџKўџ~'ьў' џ',џѕ pџ xџxџ  lpџћў#lџ*#hџ *#`џdџ tџtџ , ldџ*#\џ*FLџ 2 lџhџ`џdџ\џ)xџtџ6Lџ,џ џьўP$( 8 lџhџdџ`џ\џxџtџLџ,џ џьўД@џ- Š4ќјdџJTџXџ\џ`џdџ h`џ @\џ Xџ \ѕlTџ 1lџ/Tџ)`џ\џXџ0Tџ\џ`џdџ h`џ @\џ $>Tџ1pџ)`џ\џќcќјdџ §єPџ<<џllџ*#Tџ*#LџPџ 4<џ:,џћяџ`1hџ2TџLџ6<џџ<llџ*#Tџ*#Lџlhџ*#џ*#џlpџ*#џ*1tџ2 TџLџџџџ<џltџPџ 4<џ`1xџ5<џќcќјPџџ/ ol@@(xџdџPџlџpџhџtџ4 TџLџџџџ`џ\џXџ<џџ0 ќЦp  ќ K lџ$5lџKўџ~'ьў' џ',џѕ dџ hџhџ  ldџћў#`џ*#\џ *#PџTџ XџXџ , lTџ*#Lџ*Flџ 2 `џ\џPџTџLџ)hџXџ6lџ,џ џьў\ $ 8 `џ\џTџPџLџhџXџlџ,џ џьў8иџ.KRќc=[hџ§ˆ<hџќc=[hџ§ˆ8hџќc=[hџ§ˆ4hџKўџџ/ ~'мў'ќў'џѕ dџ hџhџ  ldџћў#`џ*#\џ *#PџTџ XџXџ , lTџ*#Lџ*F<џ 2 `џ\џPџTџLџ)hџXџ6<џџќўмўџ/  и(lџ8 R    3ўџџџ! *"#$%&'()ўџџџ+ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ756U89:;ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџƒџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ|џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџџџџџ Ю!т Ю!тЌ $ м$ і'Кр&show the members of the returned sFileр&string in the listbox. If multiselect,р%the first member is the path, and theр%remaining members are the files underрthat path selected.Ќ