Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
I'm defeated. I may have to sell shoes!
Message
De
28/01/2013 18:49:26
 
 
À
28/01/2013 16:47:46
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Divers
Thread ID:
01564407
Message ID:
01564418
Vues:
107
You can't have ANY UI in a VFP COM component. That means WAIT WINDOW, MESSAGEBOX, ?, ??, and Forms will not work. You will have to output the test results to a text file or cursor.
Does that help?

>Hello Everyone,
>
>Can anyone get this to work? If I can get past this code I'll be able to finish the rest (I think) myself.
>
>Thanks in advance...
>
>
>CLEAR
>
>PUBLIC oComUtil, oFoxEvent, oMSMQEvent 
>
>* Setup up event handler to receive the messages
>oMSMQEvent = create("msmq.msmqevent")
>oComUtil = create("vfpcom.comutil")
>oFoxEvents = create("FoxEvent")
>
>? EVENTHANDLER(oMSMQEvent,oFoxEvent)
>
>
>DEFINE CLASS FoxEvent AS custom OLEPUBLIC
>	IMPLEMENTS FoxEvents IN "MSMQ.Msmqevent"
>
>	Procedure FoxEvents_Arrived(oQueue,Cursor)
>		WAIT WINDOW "Message Arrived" TIMEOUT 1
>	ENDPROC
>
>	Procedure FoxEvents_ArrivedError(Queue,ErrorCode,Cursor)
>		WAIT WINDOW "Message Arrived Error" TIMEOUT 1
>	ENDPROC
>
>ENDDEFINE
>
Craig Berntson
MCSD, Microsoft .Net MVP, Grape City Community Influencer
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform