Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
I'm defeated. I may have to sell shoes!
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Divers
Thread ID:
01564407
Message ID:
01564547
Vues:
70
yes you can. You just can SHOW any ui.



>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
>>
Everything makes sense in someone's mind
public class SystemCrasher :ICrashable
In addition, an integer field is not for irrational people
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform