Eigenschaften, Methoden und Ereignisse des OLE-Container-Steuerelements

Artikel
04/01/2008

Eigenschaften

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

Ereignisse

Destroy	DragDrop	DragOver
Error	GotFocus	Init
LostFocus	Moved	Resize
UIEnable

Methoden

AddProperty	CloneObject	DoVerb
Drag	Move	Refresh
ResetToDefault	SaveAsClass	SetFocus
ShowWhatsThis	Zorder

Beispiel

Das folgende Beispiel fügt ein OLE-Container-Steuerelement zu einem Formular hinzu und legt mit den Eigenschaften OleClass und DocumentFile Microsoft Excel als OLE-Server und ein Microsoft Excel-Arbeitsblatt als zu bearbeitende Datei fest.

Die DocumentFile-Eigenschaft gibt ein Arbeitsblatt mit dem Namen BOOK1.XLS im Excel-Verzeichnis auf Laufwerk C an. Dieses Beispiel kann nicht fehlerfrei ausgeführt werden, wenn die in der DocumentFile-Eigenschaft angegebene Datei und das Verzeichnis nicht vorhanden sind. Es ist deshalb möglich, dass Sie die DocumentFile-Eigenschaft so ändern müssen, dass sie auf ein vorhandenes Arbeitsblatt in einem vorhandenen Verzeichnis verweist.

* Mit der DoVerb-Methode wird das Arbeitsblatt zur Bearbeitung geöffnet.

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

Siehe auch

OLE-Container-Steuerelement | Freigeben von Informationen und Hinzufügen von OLE

Freigeben über