Eigenschaften, Methoden und Ereignisse des OLE-Container-Steuerelements

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

  • Last updated on