Information générale
Catégorie:
COM/DCOM et OLE Automation
I created the following program and called it from a CommandButton Click event on a form. I have the OLE object (word) display on the form Isometric, the user needs to double click to activate word.
PARAMETERS pcFile, frmType
RELEASE oForm
PUBLIC oForm
oForm = CREATEOBJECT("Form") && Create Form
oForm.Closable = .F. && Disable Close button
oForm.Width = 414 && Form height
oForm.Height = 453 && Form width
oForm.AutoCenter = .T.
IF frmType = "LETTER"
oForm.Caption = "View/Modify Letter"
ELSE
oForm.Caption = "View/Modify Template"
ENDIF
oForm.WindowType = 1
oForm.AddObject("shape1", "shpMyShape") && Add Shape
oForm.AddObject("cmdExit", "cmdMyCmdBtn" && Add Exit Command Button
oForm.AddObject("oleObject", "oleWord") && Add Ole Container object
oForm.cmdExit.Visible = .T. && Display Exit button
oForm.Shape1.Visible = .T.
oForm.oleObject.Left = 24
oForm.oleObject.Height = 409
oForm.oleObject.Width = 313
oForm.oleObject.Top = 12
oForm.oleObject.Visible = .T.
oForm.oleObject.Stretch = 1 && isometric
oForm.Show && Display the form
CLEAR CLASS oleWord
CLEAR CLASS cmdMyCmdBtn
CLEAR CLASS shpMyShape
DEFINE CLASS oleWord AS OleControl
OleClass = "Word.Document.8"
DocumentFile = pcFile
OleTypeAllowed = 0
ENDDEFINE
DEFINE CLASS cmdMyCmdBtn As CommandButton && Create Command Button
Caption = "E\ Cancel = .T. && Default Exit command button
Width = 61
Height = 25
Left = 348
Top = 408
PROCEDURE Click
oForm.RemoveObject("oleObject")
oForm.RemoveObject("cmdExit")
oForm.RemoveObject("shape1")
oForm.Release
ENDDEFINE
DEFINE CLASS shpMyShape As Shape && Create Shape
BackColor = 16777215 && shape fill color
BackStyle = 1
Left = 12
Top = 0
Height = 433
Width = 328
ENDDEFINE
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement