FiveTech Software tech support forums

... ENDIF SELE 99 USE odlg:disable() DEFINE WINDOW oWnd Title "IMPORTACION DE LISTA DE COSTOS "+alltrim(upper(xlispre)) @ 0, 0 ACTIVEX oOwc; PROGID XVERSION // PROGID "OWC10.Spreadsheet" hActiveWindow = oOwc:GetProp( "ActiveWindow" ) OleSetProperty( hActiveWindow, "ColumnHeadings", 1, "Codigo" ...

... actxNameStr = ['OWC' verStr '.Spreadsheet.' verStr]; basicamente se trata de ir variando el valor 11. Puedes usar la función IsActiveX( <cProgID> ) --> lYesNo de FWH para detectar el ProgID válido

... actxNameStr = ['OWC' verStr '.Spreadsheet.' verStr]; basicamente se trata de ir variando el valor 11. Puedes usar la función IsActiveX( <cProgID> ) --> lYesNo de FWH para detectar el ProgID válido

... ) LOCAL oDlg, oActiveX, lSave := .F. DEFINE DIALOG oDlg RESOURCE "NAVEGADORWEB" TITLE cTituloVentana REDEFINE ACTIVEX oActiveX ID 201 OF oDlg PROGID "Shell.Explorer" REDEFINE BUTTON ID 101 OF oDlg ACTION( oActiveX:Do( "ExecWB", 6, 1 ) ) REDEFINE BUTTON ID 102 OF oDlg ACTION( lSave := ...

Si lo creas desde código fuente: @ 0, 0 ACTIVEX oExcell PROGID "OWC11.Spreadsheet" si lo redefines en un recurso: REDEFINE ACTIVEX oActiveX ID 10 OF oDlg PROGID "Shell.Explorer" en el recurso tienes que declararlo como "TActiveX" (clase de control definida ...

Nageswararao,

What ProgID string are you using for Excel 2007 ?

Pessoal é possível ajustar o mapa (google maps) ao tamanho que eu especifiquei. SIZE 285,170. ex: @ 418,08 ACTIVEX oActive PROGID "Shell.Explorer" OF oWnd SIZE 285,170 oActive:Do( "Navigate", CurDrive() + ":\" + CurDir() + "\temp.html" ) Falo isso, porque só tenho este espaço na tela, ...

Michel @ 0, 0 LISTBOX oBrow FIELDS ; oRs:Fields("CODE"):Value, ; oRs:Fields("DESC"):Value, ; oRs:Fields("progid"):Value ; SIZES 80,250,80 ; HEADERS "Code", ; "Description", ; "ProgID" ; of oGRP Rick, I am using that code (Thanks to RF) with Oracle DB successfully. But with ...

... opendkeyset oRs2:CursorLocation := 3 // local cache oRs2:LockType := 3 // lockoportunistic IF xADMIN = 'Y' cSQL := "SELECT * FROM GROUPS order by progid,code" cTITLE := "GROUP Select for ALL" ELSE cSQL := "SELECT * from GROUPS where progid = '"+xPROGID+"' order by code" cTITLE := "GROUP Select ...

... := PadR( "NEW YORK CITY", 80 ) local cCountry := PadR( "USA", 80 ) DEFINE DIALOG oDlg RESOURCE "map" REDEFINE ACTIVEX oActiveX ID 100 OF oDlg PROGID "Shell.Explorer" REDEFINE GET cStreet ID 200 OF oDlg REDEFINE GET cCity ID 300 OF oDlg REDEFINE GET cCountry ID 400 OF oDlg REDEFINE BUTTON ID ...

... := PadR( "NEW YORK CITY", 80 ) local cCountry := PadR( "USA", 80 ) DEFINE DIALOG oDlg RESOURCE "map" REDEFINE ACTIVEX oActiveX ID 100 OF oDlg PROGID "Shell.Explorer" REDEFINE GET cStreet ID 200 OF oDlg REDEFINE GET cCity ID 300 OF oDlg REDEFINE GET cCountry ID 400 OF oDlg REDEFINE BUTTON ID ...

... // opendkeyset oRs:CursorLocation := 3 // local cache oRs:LockType := 3 // lockoportunistic IF xADMIN = 'Y' cSQL := "SELECT * FROM GROUPS ORDER BY PROGID,CODE" cTITLE := "Group Records Browse for ALL" ELSE cSQL := "SELECT * FROM GROUPS where progid = '"+xPROGID+"' ORDER BY CODE" cTITLE := "Group ...

Jeff, Don't you have access to that ActiveX docs ? You can also use its GUID instead of its PROGID ( http://en.wikipedia.org/wiki/Globally_Unique_Identifier ) which usually looks as a long sequence of numbers separated by "-" and between "{" and "}" Have you tried to ...

it is a 3rd party ActiveX that is used to control a medical device.

Any idea on how I would find the PROGID.

I looked at the DLL file with OleView (via the ITypeLib Viewer) but I can not see anything that looks like the ID.

Jeff,

The first step is to know the PROGID (is a string) of the ActiveX that you are going to use.

i.e. for Microsoft Excell the progid is "OWC11.Spreadsheet"

Whats the activex that you are going to use ?