Os=CREATEOBJECT('MSScriptControl.ScriptControl') LcScript=lcScript+"GetType = lcType"+CHR(13) LcScript=lcScript+"lcType=typename(arg1)"+CHR(13)
LcScript="function GetType(arg1)"+CHR(13) LOCAL os as MSScriptControl.ScriptControl, lcScript * which returns the type name of an object * Wrapper for the VBScript TypeName function I achieved this by producing a VFP function to act as a wrapper for the VB TypeName function as follows: This is to have a vbscript macro that returns the object's or variable's typename if you pass it in. The approach was suggested to me by Anders Altberg (pragma at ). I have now got a solution to this problem. Does any one have any ideas how I might implement this in VFP?# THe VBScript samples suggest a way to do this by hooking into the OnSelectionChanged event, but they use the VB TypeName function to find out if the current selection is an aggregate. What I want to do now is to set up actions which take place when a pivot table aggregate is clicked. I have successfully implemented a form which takes a VFP cursor and displays it on a spreadsheet (on page 1 of a pageframe), in a pivot table (on page 2), and as a graph on page 3 tied to the pivot table.
Office web components chart how to#
Samples are available detailing how to use these with VB and VBScript as they were intended to be hosted on web pages (hence the name !). The OCX's are installed with Office along wioth help files which tell you how to use them (from the end-user perspective mainly). For the uninititated, the OWC are a set of OLE classes based on the MS Office suite and comprise a spreadsheet, a pivot table, a chart, and a data connection object. I have recently started using the MS Office Web Components to create a data analysis tool in VFP.