Discussion :

[lubinfo]

Bonjour,

En windev version 5.5 (et oui ...), je veux positionner le pointeur de la souris directement sur un bouton BTH_OK.

La fonction
//curseurpos(cpClient,BTN_OK..colonne+BTN_OK..largeur/2,BTN_OK..ligne+BTN_OK..hauteur/2)

ne fait rien du tout ?

Une idée ?

[jurassic pork]

Tiens voilà la réponse de copilot pour changer un peu, en plus il fait de l'humour :

Ah, Windev 5.5… une vraie madeleine de Proust ! À cette époque, l’API interne était assez limitée, mais il existe une solution classique : utiliser les fonctions Windows API pour déplacer le pointeur de la souris sur les coordonnées du bouton.
Étapes possibles

1. Récupérer les coordonnées du bouton
   
   • Chaque champ (bouton, zone de saisie, etc.) possède une position en X/Y dans la fenêtre.
   • Dans Windev, tu peux obtenir ces coordonnées avec PositionChamp() (si disponible dans ta version) ou en stockant manuellement la position du bouton.
   
   
2. Utiliser l’API Windows SetCursorPos

👉 En résumé :

• Tu récupères la position du bouton (via Windev ou calcul manuel).
• Tu convertis en coordonnées écran si nécessaire.
• Tu appelles SetCursorPos pour déplacer la souris.

En ce temps là les appels aux API windows se faisait via la fonction APIDLL32 (et non pas via la syntaxe moderne EXTERN qu’on retrouve dans les versions plus récentes).

Principe

• APIDLL32 permet d’appeler une fonction exportée par une DLL Windows.
• La syntaxe générale est :
  
  APIDLL32("User32.dll", "NomFonction", param1, param2, ...)

Exemple avec SetCursorPos

Pour déplacer le pointeur de la souris :


// Déplace la souris à la position (200,150) en coordonnées écran
APIDLL32("User32.dll", "SetCursorPos", 200, 150)


Pour viser ton bouton BTH_OK

1. Récupère les coordonnées du bouton dans la fenêtre (X, Y).
   
   • En Windev 5.5, tu peux utiliser Champ..X et Champ..Y (selon la version exacte, parfois X(BTH_OK) et Y(BTH_OK)).
   
   
2. Convertis-les en coordonnées écran si nécessaire (via APIDLL32("User32.dll","ClientToScreen", ...)).
3. Passe ces coordonnées à SetCursorPos.

Exemple schématique

pascal

// Supposons que BTH_OK est à la position (X(BTH_OK), Y(BTH_OK)) dans la fenêtre
xPos = X(BTH_OK)
yPos = Y(BTH_OK)

// Conversion en coordonnées écran si besoin
// ... appel à ClientToScreen via APIDLL32 ...

// Déplacement du curseur
APIDLL32("User32.dll", "SetCursorPos", xPos, yPos)


👉 Donc oui, dans Windev 5.5 c’est bien APIDLL32 qu’il faut utiliser pour appeler SetCursorPos ou ClientToScreen.

[lubinfo]

Bonjour,

Exemple typique : sous windev 5.5 c'est AppelDLL32(), APIDLL32 n'existe pas !

[jurassic pork]

Bonjour,

Exemple typique : sous windev 5.5 c'est AppelDLL32(), APIDLL32 n'existe pas !

Hello,
ce qui prouve que les I.A sont un peu à la ramasse quand il s'agit de windev surtout sur les versions anciennes.

Ami calmant, J.P

[frenchsting]

Bonjour,

Je m'immisce dans cette discussion : pour contourner les "manques" de WD5.5, je te conseille :
1. de rechercher quelles API utiliser avec une recherche gogol et de regarder le typage avec le WDAPI que tu as dans les versions récentes.
2. De faire un lanceAppli vers un exe développé en version plus récente dans le cas d'un "gros morceau".

[lubinfo]

Bonjour,

En fait curseurpos(cpClient,BTN_OK..Colonne+BTN_OK..largeur/2,BTN_OK..Ligne+BTN_OK..hauteur/2) fonctionne en mode exécutable mais pas en mode test.

Cela est peut-être dû au fait que j'exécute windev 5.5 dans une machine virtuelle Virtual Box Windows XP.

Merci

[serendib]

Bonjour,

En fait curseurpos(cpClient,BTN_OK..Colonne+BTN_OK..largeur/2,BTN_OK..Ligne+BTN_OK..hauteur/2) fonctionne en mode exécutable mais pas en mode test.

Cela est peut-être dû au fait que j'exécute windev 5.5 dans une machine virtuelle Virtual Box Windows XP.

Merci

Bonsoir lubinfo,

Sous windows 7 ça fonctionne en mode test.

[lubinfo]

Bonsoir lubinfo,

Sous windows 7 ça fonctionne en mode test.

Bonsoir,

C'est donc sans doute lié à l'utilisation d'une VM (ou bien de XP d'ailleurs).

Pour en avoir le coeur net je sortirais une machine XP de la naphtaline !