OLE Container (Control: propiedades, métodos y eventos)

Artículo
04/11/2008

Propiedades

Align	Application	AutoActivate
AutoSize	AutoVerbMenu	BaseClass
Cancel	Class	ClassLibrary
Comment	ControlSource	Default
DocumentFile	DragIcon	DragMode
Enabled	Height	HelpContextID
HostName	Left	MouseIcon
MousePointer	Name	Object
OLEClass	OLELCID	OLETypeAllowed
Parent	ParentClass	Sizable
Stretch	TabIndex	TabStop
Tag	Top	Visible
WhatsThisHelpID	Width

Eventos

Destroy	DragDrop	DragOver
Error	GotFocus	Init
LostFocus	Moved	Resize
UIEnable

Métodos

AddProperty	CloneObject	DoVerb
Drag	Move	Refresh
ResetToDefault	SaveAsClass	SetFocus
ShowWhatsThis	Zorder

Ejemplo

El ejemplo siguiente agrega un control OLE Container a un formulario, y utiliza las propiedades OleClass y DocumentFile para especificar Microsoft Excel como el servidor de Automatización y una hoja de cálculo de Microsoft Excel como el archivo que se va a modificar.

La propiedad DocumentFile especifica una hoja de cálculo denominada Book1.xls en el directorio EXCEL de la unidad C. Este ejemplo no funcionará adecuadamente si el archivo y el directorio especificados en la propiedad DocumentFile no existen; quizás sea necesario modificar la propiedad DocumentFile para especificar un directorio y un archivo de hoja de cálculo existentes.

* El método DoVerb se usa para activar la hoja de cálculo para su modificación.

frmMyForm = CREATEOBJECT('Form')  && Create a Form
frmMyForm.Closable = .F.  && Disable the window pop-up menu

frmMyForm.AddObject('cmdCommand1','cmdMyCmdBtn')  && Add Command button
frmMyForm.AddObject("oleObject","oleExcelObject")  && Add OLE object

frmMyForm.cmdCommand1.Visible=.T.  && Display the "Quit" Command button

frmMyForm.oleObject.Visible=.T.  && Display the OLE control
frmMyForm.oleObject.Height = 50  && OLE control height

frmMyForm.Show  && Display the Form

frmMyForm.oleObject.DoVerb(-1)  && -1 for Edit

READ EVENTS  && Start event processing

DEFINE CLASS oleExcelObject as OLEControl
   OleClass ="Excel.Sheet"  && Server name
   DocumentFile = "C:\EXCEL\BOOK1.XLS"  && This file must exist 
ENDDEFINE

DEFINE CLASS cmdMyCmdBtn AS CommandButton  && Create Command button
   Caption = '\<Quit'  && Caption on the Command button
   Cancel = .T.  && Default Cancel Command button (Esc)
   Left = 125  && Command button column
   Top = 210  && Command button row
   Height = 25  && Command button height

   PROCEDURE Click
      CLEAR EVENTS  && Stop event processing, close form
ENDDEFINE

Vea también

OLE Container (Control) | Agregar OLE

Share via