RbBFBlokProjPSIVStrn2008.02 ACnmStrnAChpStrnACsvStrnVer1Strn1 Ver2Strn0 Ver3Strn0 RelsStrn0 NnRlStrn0 RegnStrnSVerStrnLVerStrnIVerStrnaiviInt DVewInt }òÿprTpInt DLanInt CLanInt DEncInt BflgInt IconGrupEndGInt MacCStrnBCarStrnMy Application BCMOStrnMy Application BunIStrnBSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnBWinStrnMy Application.exe BMDIInt WcmNStrnWpNmStrnWiNmStrnBL86Strn MyApplication DgCLStrnPadnPadn ********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjj-wÿNameStrnApp ContInt paswStrnbClsInt SuprStrn Application flagInt bNtrInt bApOInt CompStrnPDefGrup$nameStrnMenuBar PValInt |wÿEndGInt VwBhGrupEndGInt CnstGrupä EncoInt nameStrnkFileQuitShortcut typeInt defnStrnflagInt CInsGrup0!pltfInt langInt defnStrnCmd+Q EndGInt !CInsGrup0"pltfInt langInt defnStrnCtrl+Q EndGInt "EndGInt  CnstGrupœ#EncoInt nameStrn kFileQuit typeInt defnStrn&Quit flagInt CInsGrup0$pltfInt langInt defnStrnE&xit EndGInt $EndGInt #CnstGrupä%EncoInt nameStrn kEditClear typeInt defnStrn&Delete flagInt CInsGrup0&pltfInt langInt defnStrn&Delete EndGInt &CInsGrup0'pltfInt langInt defnStrn&Delete EndGInt 'EndGInt %PadnPadnT************************************************************************************BlokpVew}òÿ(NameStrnWindow1 ContInt paswStrnbClsInt SuprStrnWindow flagInt bNtrInt CompStrnHInsGrup¨(nameStrnOpenCompStrnVsblInt sorcGrupd)EncoInt srclStrn Sub Open() srclStrnmFactory = new ClassFactory srclStrnsrclStrn3mFactory.AddClassToMap( GetTypeInfo( Dictionary ) ) srclStrn-mFactory.AddClassToMap( GetTypeInfo( Date ) ) srclStrn/mFactory.AddClassToMap( GetTypeInfo( Class1 ) ) srclStrn/mFactory.AddClassToMap( GetTypeInfo( Class2 ) ) srclStrnEnd Sub EndGInt )EndGInt (PropGrupÜ*nameStrnmFactoryCompStrnVsblInt sorcGrup@+EncoInt srclStrnmFactory As ClassFactorysrclStrnEndGInt +EncoInt declStrnmFactory As ClassFactoryflagInt !CompStrnshrdInt EndGInt *PDefGrup<,nameStrnImplicitInstanceEncoInt PValStrnTrueEndGInt ,PDefGrup0-nameStrnMenuBar PValStrn 2082043903 EndGInt -PDefGrup(.nameStrn MacProcID PValInt EndGInt .PDefGrup4/nameStrn BalloonHelp EncoInt PValStrnEndGInt /PDefGrup00nameStrnMinimizeButton PValStrnTrueEndGInt 0PDefGrup41nameStrnMaximizeButton PValStrnFalse EndGInt 1PDefGrup,2nameStrn LiveResize PValStrnTrueEndGInt 2PDefGrup03nameStrn Resizeable PValStrnFalse EndGInt 3PDefGrup,4nameStrn CloseButton PValStrnTrueEndGInt 4PDefGrup05nameStrnMenuBarVisible PValStrnTrueEndGInt 5PDefGrup06nameStrn FullScreen PValStrnFalse EndGInt 6PDefGrup(7nameStrnVisible PValStrnTrueEndGInt 7PDefGrup88nameStrnTitle EncoInt PValStrnUntitledEndGInt 8PDefGrup$9nameStrnBackdropPValStrnEndGInt 9PDefGrup(:nameStrn BackColor PValInt ÿÿÿEndGInt :PDefGrup0;nameStrn HasBackColorPValStrnFalse EndGInt ;PDefGrup0nameStrn MaxHeight PValInt }EndGInt >PDefGrup$?nameStrnMaxWidthPValInt }EndGInt ?PDefGrup(@nameStrn MinHeight PValInt @EndGInt @PDefGrup$AnameStrnMinWidthPValInt @EndGInt APDefGrup$BnameStrnHeight PValInt ,EndGInt BPDefGrup$CnameStrnWidth PValInt ,EndGInt CPDefGrup(DnameStrn Placement PValInt EndGInt DVwBhGruptEVwPrGrupDFNameStrnNameVsblInt PrGpStrnID CPifStrnWindow EndGInt FVwPrGrupLGNameStrn Interfaces VsblInt PrGpStrnID CPifStrnWindow EndGInt GVwPrGrupHHNameStrnSuper VsblInt PrGpStrnID CPifStrnWindow EndGInt HVwPrGrup0INameStrn Placement VsblInt PrGpStrnPositionPValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrup”JdefnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt JEndGInt IVwPrGruppKNameStrnWidth VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt KVwPrGruppLNameStrnHeight VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt LVwPrGruppMNameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt MVwPrGruptNNameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt NVwPrGruptONameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt OVwPrGrupxPNameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt PVwPrGrup QNameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGruppRdefnStrn 0 - DocumentdefnStrn1 - Movable Modal defnStrn2 - Modal DialogdefnStrn3 - Floating Window defnStrn 4 - Plain Box defnStrn5 - Shadowed BoxdefnStrn6 - Rounded Window defnStrn7 - Global Floating Window defnStrn8 - Sheet WindowdefnStrn9 - Metal WindowdefnStrn10 - Drawer Window defnStrn11 - Modeless DialogEndGInt REndGInt QVwPrGrup|SNameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt SVwPrGrup|TNameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt TVwPrGrup|UNameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFtypeStrnColor CPifStrnWindow EndGInt UVwPrGrupxVNameStrnBackdropVsblInt PrGpStrn Appearance typeStrnPicture vbETStrnPicture CPifStrnWindow EndGInt VVwPrGrupxWNameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledtypeStrnString CPifStrnWindow EndGInt WVwPrGruptXNameStrnVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt XVwPrGrup|YNameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt YVwPrGrup|ZNameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt ZVwPrGrupx[NameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt [VwPrGrup|\NameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt \VwPrGrupx]NameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt ]VwPrGrup€^NameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt ^VwPrGrup|_NameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt _VwPrGruph`NameStrn BalloonHelp VsblInt PrGpStrn Appearance typeStrnString CPifStrnWindow EndGInt `VwPrGrupxaNameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger CPifStrnWindow EndGInt aVwPrGrupxbNameStrnMenuBar VsblInt PrGpStrn Appearance typeStrnMenuBar vbETStrnMenuBar CPifStrnWindow EndGInt bVwPrGrup|cNameStrnImplicitInstanceVsblInt PrGpStrn Appearance PValStrnTruevbETStrnBoolean CPifStrnWindow EndGInt cEndGInt ECBhvGrupœdSuprStrn PushButton HInsGruphenameStrnAction CompStrnVsblInt sorcGrup fEncoInt srclStrn Sub Action()srclStrn7dim d as Variant = mFactory.CreateNewInstance( "Date" ) srclStrn9dim m as Variant = mFactory.CreateNewInstance( "Class2" ) srclStrnsrclStrnif d Is nil then MsgBox "Nil" srclStrnsrclStrnBreak srclStrnEnd Sub EndGInt fEndGInt eEndGInt dCtrlGrup(gcclsStrn PushButton nameStrn PushButton PDefGrup8hnameStrn InitialParent EncoInt PValStrnEndGInt hPDefGrup(inameStrn Underline PValStrnEndGInt iPDefGrup$jnameStrnItalic PValStrnEndGInt jPDefGrup knameStrnBoldPValStrnEndGInt kPDefGrup$lnameStrnTextSizePValInt EndGInt lPDefGrup8mnameStrnTextFontEncoInt PValStrnSystem EndGInt mPDefGrup0nnameStrnAutoDeactivate PValStrnTrueEndGInt nPDefGrup0onameStrnHelpTag EncoInt PValStrnEndGInt oPDefGrup(pnameStrnVisible PValStrnTrueEndGInt pPDefGrup(qnameStrnEnabled PValStrnTrueEndGInt qPDefGrup$rnameStrnCancel PValStrnEndGInt rPDefGrup$snameStrnDefault PValStrnEndGInt sPDefGrup8tnameStrnCaption EncoInt PValStrnUntitledEndGInt tPDefGrup$unameStrnTabIndexPValInt EndGInt uPDefGrup,vnameStrn TabPanelIndex PValInt EndGInt vPDefGrup(wnameStrn LockBottom PValStrnEndGInt wPDefGrup(xnameStrn LockRight PValStrnEndGInt xPDefGrup$ynameStrnLockTop PValStrnEndGInt yPDefGrup$znameStrnLockLeftPValStrnEndGInt zPDefGrup${nameStrnHeight PValInt EndGInt {PDefGrup$|nameStrnWidth PValInt PEndGInt |PDefGrup }nameStrnTop PValInt EndGInt }PDefGrup ~nameStrnLeftPValInt EndGInt ~PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<€nameStrnSuper EncoInt PValStrn PushButton EndGInt €PDefGrup$nameStrnIndex PValInt €EndGInt PDefGrup8‚nameStrnNameEncoInt PValStrn PushButton1 EndGInt ‚CBixInt EndGInt gPadnPadnŒ********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpMnu|wÿ NameStrnMenuBar1ContInt paswStrnMItmGruppƒspmuInt nameStrnFileMenutextStrn&File indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrupЄspmuInt nameStrnFileQuittextStrn#App.kFileQuit indxInt €scutStrn#App.kFileQuitShortcut MiSKStrn#App.kFileQuitShortcut maEnInt EncoInt flagInt SuprStrn QuitMenuItemEndGInt „EndGInt ƒMItmGrup\…spmuInt nameStrnEditMenutextStrn&Edit indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrup¬†spmuInt nameStrnEditUndotextStrn&Undo indxInt €scutStrnCmd+Z MiSKStrnZ MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt †MItmGrupŒ‡spmuInt nameStrn UntitledMenu1 textStrn- indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ‡MItmGrup¨ˆspmuInt nameStrnEditCut textStrnCu&tindxInt €scutStrnCmd+X MiSKStrnX MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ˆMItmGrup¬‰spmuInt nameStrnEditCopytextStrn&Copy indxInt €scutStrnCmd+C MiSKStrnC MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ‰MItmGrup°ŠspmuInt nameStrn EditPaste textStrn&Paste indxInt €scutStrnCmd+V MiSKStrnV MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ŠMItmGrup”‹spmuInt nameStrn EditClear textStrn#App.kEditClear indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ‹MItmGrupŒŒspmuInt nameStrn UntitledMenu0 textStrn- indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ŒMItmGrup¸spmuInt nameStrn EditSelectAll textStrn Select &All indxInt €scutStrnCmd+A MiSKStrnA MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt EndGInt …PadnPadn¬****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj%3çÿNameStrn ClassFactoryContInt paswStrnbClsInt flagInt bNtrInt CompStrnMethGruppŽnameStrn AddClassToMap CompStrnVsblInt sorcGrupÌEncoInt srclStrnSub AddClassToMap(o as Object) srclStrn?dim info as Introspection.TypeInfo = Introspection.GetType( o ) srclStrn#mClassMap.Value( info.Name ) = info srclStrnEnd Sub EndGInt EncoInt AlasStrnflagInt shrdInt parmStrn o as Object rsltStrnEndGInt ŽMethGrupnameStrn Constructor CompStrnVsblInt sorcGrupl‘EncoInt srclStrnSub Constructor() srclStrnmClassMap = new Dictionary srclStrnEnd Sub EndGInt ‘EncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt MethGrupt’nameStrnCreateNewInstance CompStrnVsblInt sorcGrupÀ“EncoInt srclStrn5Function CreateNewInstance(type as String) As Variant srclStrnDdim typeFo as Introspection.TypeInfo = mClassMap.Lookup( type, nil )srclStrnif typeFo <> nil then srclStrn$// Get the constructors for the typesrclStrnDdim info() as Introspection.ConstructorInfo = typeFo.GetConstructorssrclStrnsrclStrn;// If we have no default constructor, then we cannot create srclStrnH// this class, and that is an error. So look for a default constructor,srclStrn// and call it if we cansrclStrn&for i as Integer = 0 to UBound( info ) srclStrn.if UBound( info( i ).GetParameters ) = -1 then srclStrn // Found one! srclStrnreturn info( i ).Invoke srclStrnend if srclStrnnext i srclStrnsrclStrnC// If we got here, then we couldn't find a default constructor, and srclStrn// we need to bail out srclStrnraise new RuntimeException srclStrnend if srclStrn End FunctionEndGInt “EncoInt AlasStrnflagInt shrdInt parmStrntype as String rsltStrnVariant EndGInt ’MethGrup@”nameStrn AddClassToMap CompStrnVsblInt sorcGrupŒ•EncoInt srclStrn/Sub AddClassToMap(ti as Introspection.TypeInfo) srclStrnmClassMap.Value( ti.Name ) = ti srclStrnEnd Sub EndGInt •EncoInt AlasStrnflagInt shrdInt parmStrnti as Introspection.TypeInforsltStrnEndGInt ”PropGrupà–nameStrn mClassMap CompStrnVsblInt sorcGrup@—EncoInt srclStrnmClassMap As Dictionary srclStrnEndGInt —EncoInt declStrnmClassMap As Dictionary flagInt !CompStrnshrdInt EndGInt –VwBhGrup˜VwPrGrupD™NameStrnNameVsblInt PrGpStrnID CPifStrnObject EndGInt ™VwPrGrup`šNameStrnIndex VsblInt PrGpStrnID PValStrn -2147483648 CPifStrnObject EndGInt šVwPrGrupH›NameStrnSuper VsblInt PrGpStrnID CPifStrnObject EndGInt ›VwPrGrupXœNameStrnLeftVsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt œVwPrGrupXNameStrnTop VsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt EndGInt ˜PadnPadnÈ********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj3çÿNameStrnClass1 ContInt paswStrnbClsInt flagInt bNtrInt CompStrnMethGrupôžnameStrn Constructor CompStrnVsblInt sorcGrup`ŸEncoInt srclStrnSub Constructor() srclStrn msgbox "Test" srclStrnEnd Sub EndGInt ŸEncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt žVwBhGrup VwPrGrupD¡NameStrnNameVsblInt PrGpStrnID CPifStrnObject EndGInt ¡VwPrGrup`¢NameStrnIndex VsblInt PrGpStrnID PValStrn -2147483648 CPifStrnObject EndGInt ¢VwPrGrupH£NameStrnSuper VsblInt PrGpStrnID CPifStrnObject EndGInt £VwPrGrupX¤NameStrnLeftVsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt ¤VwPrGrupX¥NameStrnTop VsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt ¥EndGInt  PadnPadn<************************************************************BlokpObj.LgÿNameStrnClass2 ContInt paswStrnbClsInt flagInt bNtrInt CompStrnVwBhGrup¦VwPrGrupD§NameStrnNameVsblInt PrGpStrnID CPifStrnObject EndGInt §VwPrGrup`¨NameStrnIndex VsblInt PrGpStrnID PValStrn -2147483648 CPifStrnObject EndGInt ¨VwPrGrupH©NameStrnSuper VsblInt PrGpStrnID CPifStrnObject EndGInt ©VwPrGrupXªNameStrnLeftVsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt ªVwPrGrupX«NameStrnTop VsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt «EndGInt ¦PadnPadnH****************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpUIsWnStGrup˜¬OTabGrup­ContInt eSptInt ÈEndGInt ­OTabGrupX®ContInt }òÿLSptInt ŠRSptInt ¬ScrXInt ScrYInt lstHInt @lstVInt @EndGInt ®OTabGrup@¯ContInt }òÿAltEInt LSptInt  EEstInt ciIDInt EndGInt ¯OTabGrup@°ContInt %3çÿAltEInt LSptInt  EEstInt ciIDInt EndGInt °LsLcStrnWindow1.PushButton1.Action rEdtRect=ßÕEndGInt ¬PadnPadn$********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!