' Rapid-Q by William Yu (c)1999-2000 . ' ================================================================================ ' Upload_il_tuo_script_su_Rapidq.it ' Qoleobject ****** QOLEOBJECT Component ****** QOleObject implements an automation client. Type checking is disabled for this component, see examples on how this can help you. This component is currently in an experimental stage. Longs, Doubles, and Strings are currently supported, other data types may be added later. QOleObject Properties Field Type R/W Default =================== =================== =================== =================== QOleObject Methods Method Type Description Params =================== =================== =================== =================== Container QOLECONTAINER W FUNCTION (ClassName Create COM object, CreateObject AS STRING) AS with actual name or 1 INTEGER CLSID FUNCTION (Host AS Create remote COM CreateRemote STRING, ClassName object, with actual 2 AS STRING) AS name or CLSID INTEGER Free SUB Release object 0 Returns the ID of an identifier, good GetIDofName FUNCTION (Name AS for checking if it 1 STRING) AS INTEGER exists. Returns - 1 if name is not found. FUNCTION (ClassName Get active COM GetObject AS STRING) AS object, with actual 1 INTEGER name or CLSID FUNCTIONI (ID AS Invoke method/ Invoke STRING, Params, property Infinite ...) AS VARIANT SUB (ID AS STRING, Copy object (might InvokeCopy Object AS not work... yet) 2 QOLEOBJECT) QOleObject Events Event Type Occurs when... Params =================== =================== =================== =================== QOleObject Examples ' This example requires MS WORD ' If you're using a localized version with a foreign language, ' you'll have to adjust the parameter names to match. ' Comments in italics indicate the old style syntax before ' type checking was disabled. You can choose either approach. $ESCAPECHARS ON DIM Object AS QOLEOBJECT 'Object.CreateObject("{000209FE-0000-0000-C000-000000000046}") Object.CreateObject("Word.Basic") 'Object.Invoke("AppShow") Object.AppShow 'Object.Invoke("AppMaximize", "", 1) Object.AppMaximize("", 1) 'Object.Invoke("FileNew") Object.FileNew PRINT Object.Bold '-- is bold enabled? Object.Insert("Hello world!\n") Object.Bold PRINT Object.Bold '-- Bold should be enabled Object.Insert("Rapid-Q is awesome!\n") Object.Bold(0) '-- Turn Bold off SLEEP 5 Object.Free ' =============================================================================== ' 2003 Holyguard.net - 2007_Abruzzoweb