Information générale
Catégorie:
Contrôles ActiveX en VFP
Thanks, Jon, that was just what I was missing.
We'd end up with something like this:
*
* Save this to temp.prg and run it.
*
PUBLIC x
x = NewObject('temp','temp.prg')
x.Show()
*
**************************************************
*-- Class: temp
*-- BaseClass: form
*
DEFINE CLASS temp AS form
AutoCenter = .T.
Visible = .T.
LockScreen = .F.
Name = "Form1"
ADD OBJECT OleControl1 AS OleMsComm WITH ;
Top = 0, ;
Left = 0, ;
Height = 100, ;
Width = 100, ;
Visible = .F., ;
Name = "Olecontrol1"
ENDDEFINE
*
DEFINE CLASS OleMsComm AS OLECONTROL
OLECLASS = 'MSCommLib.MsComm.1'
ENDDEFINE
*
******************************************
I tried it and it works. Is it possible to add activex controls like this one to containers other than forms? That was what Tom was trying to do.
Gregg
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