PC SOFT

FOROS PROFESIONALES
WINDEV, WEBDEV y WINDEV Mobile

|
|
|
FR
Inicio → WINDEV 2024 → Connexion DDE avec projet visual basic
Connexion DDE avec projet visual basic
Iniciado por michel-gasiglia, 06,abr. 2006 17:43 - 1 respuesta
#1
Publicado el 06,abril 2006 - 17:43
J'ai un problème de connexion entre un champ label d'une application VB et Windev.
j'arrive à lancer l'application à l'aide de DDElance mais je n'arrive pas à me connecter avec
DDEConnecte.
Comment si prend on, et quels sont les paramètres à passer ?
Si quelqu'un a une réponse, merci d'avance
#2
Publicado el 07,abril 2006 - 19:37
voici une partie du source lien DDE
// --------------------------------------------------------------------------------------
// LANCER GRAVE.EXE
// --------------------------------------------------------------------------------------
SI PAS ExeLancé(gsNomProgGrave) ALORS
SI PAS LanceAppli(gsNomProgGrave,exeIconise,exeNonBloquant,gsNomRepBL) ALORS
Erreur("Le programme d'acquisition n'a pas été lancé : ", ErreurInfo ())
RETOUR
FIN
FIN

// --------------------------------------------------------------------------------------
// ATTENDRE QUE GRAVE.EXE SOIT LANCE EFFECTIVEMENT
// --------------------------------------------------------------------------------------
BOUCLE
SI PAS ExeLancé(gsNomProgGrave) ALORS
Multitâche(50)
SINON
SORTIR
FIN
FIN
// --------------------------------------------------------------------------------------
// OUVRIR LE CONNEXION DDE EVEC GRAVE.EXE
// --------------------------------------------------------------------------------------
// nom de l'exe, nom de la feuille
gnNumConnexionGrave = DDEConnecte ("GRAVE", "ACQGRAVE")
SI gnNumConnexionGrave = 0 ALORS
plErreurDDE(DDEErreur(),gnNumConnexionGrave,1)
RETOUR
FIN

// --------------------------------------------------------------------------------------
// SE METTRE EN ATTENTE D'UNE MODIFICATION DU DEBIT TOTAL DE LA FENETRE D'ACQUISITIONS
// --------------------------------------------------------------------------------------
// PROCEDURE A EXECUTER EN CAS DE MODIFICATION DANS LA FENETRE VB
DDEEvénement("plAcquisitionTrameDDE", DDEAModifier)

// LIER LES CHAMPS DE LA FENETRE D'ACQUISITION
DDELien(gnNumConnexionGrave, "txtCompteur")
→ Volver a WINDEV 2024