XL 2016 VBA - Déclarations des fonctions l'API Windows

[Dudu2]

Bonjour,

Je voudrais avoir la confirmation de la manière de déclarer les fonctions de l'API Windows selon les constantes de compilation prédéfinies. Avec l'exemple de GetParent().

J'ai vu ce type de déclaration...

#If VBA7 Then
    #If Win64 Then
        Declare PtrSafe Function GetParent Lib "user32" (ByVal hwnd As LongPtr) As LongPtr
    #Else
        Declare PtrSafe Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
    #End If
#Else
    Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
#End If

Mais la doc Windows dit:

Les variables LongPtr (long integer sur les systèmes 32 bits, longLong integer sur les systèmes 64 bits)

Donc ceci devrait suffire non ?

#If VBA7 Then
    Declare PtrSafe Function GetParent Lib "user32" (ByVal hwnd As LongPtr) As LongPtr
#Else
    Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
#End If

D'autre part, question subsidiaire, dans cette page par ailleurs très utile, je vois ça:

#If Win64 Then
    Declare PtrSafe Function GetWindowLongPtr Lib "user32" Alias "GetWindowLongPtrA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As LongPtr
#Else
    Declare PtrSafe Function GetWindowLongPtr Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As LongPtr
#End If

Qu'est-ce qui est la "vraie" référence à la fonction ? GetWindowLongPtr ou GetWindowLongPtrA / GetWindowLongA?


Merci par avance.

 

[Staple1600]

Mais je sais bien @Staple1600, on discute Regarde la pièce jointe 1151686.


Oui, c'est sûr, mais parfois on est bien content de proposer des boutons libellés aux différentes options / choix à proposer à l'utilisateur. Et je te garantis que ça m'est très utile assez souvent. Sinon on fait quoi ? Un InputBox avec des choix de 1 à n construits en String et le choix à saisir ? Ok, ça peut se faire...

Jadis, je faisais des classeurs hyper-chiadés avec tout plein d'userform et de VBA, destinés à mes collègues.

Puis un jour, quand j'en ai eu marre qu'ils me dérangent pour des " ça marche pas ou ça marche plus", je suis passé à la rédaction de tutos(*) et me suis transformé en VRP du KISS et du DIY.
(formules, TCD, PowerQuery etc)
Mes collègues furent alors tout content de faire par eux-mêmes et moi j'étais plus tranquille et j'avais plus de temps pour développer mes propres outils.

 

[Dudu2]

C'est ce que je m'escrime à dire à une personne pour qui j'ai fait un truc monstrueux (parce que les fonctionnalités demandées étaient monstrueuses). Des mois de dev pour la sortir de semaines de manips manuelles avec quelques clics.
"Documente ce que tu fais pour que tu puisses laisser les autres se débrouiller"
Écrire ce qu'on fait et faire ce qu'on écrit. C'est pas ça le slogan de la Qualité ?

 

[patricktoulon]

aloes you'te hapyy or not happy

 

[Dudu2]

Je suis complètement happy .

Je ne déclare plus les API pour VBA6 et j'utilise donc simplement du LongPtr pour tous mes Handles (et contextes) et je renvoie l'utilisateur/développeur à ceci:

'-------------------------------------------------------------------------------------------------------
'API declarations. For Office 2007 and below remove PtrSafe and remplace LongPtr by Long in all the code
'Reference: https://www.cadsharp.com/docs/Win32API_PtrSafe.txt
'-------------------------------------------------------------------------------------------------------

Et je pique toutes mes déclarations dans cette page:

https://www.cadsharp.com/docs/Win32API_PtrSafe.txt

 

[Staple1600]

@Dudu2
Merci pour le partage de lien

 

[dysorthographie]

Bonjour,

De la main droite j’a pris le fichier WIN32API.TXT ;

De la main gauche le fichier Win32API_PtrSafe.txt ;

J’ai placé le tout délicatement dans un mixeur ;

J’ai prononcé les paroles magiques :

« À abracadabra » !

Et Saperlipopette voila ce qui en est sortie !

 

[Dudu2]

Bonjour,
Ah oui, sacré formule magique ! Ça dépote !
T'as pris l'info originelle où ?

 

[dysorthographie]

pour WIN32API.TXT je suis l'heureux détenteur d'une vielle licence Visual Studio 6!

pour Win32API_PtrSafe.txt : Microsoft!https://www.microsoft.com/download/...a5-eef9-4baf-8dbc-63fbd2dd982b&displaylang=en


j'ai ça encore pour VB6!

 

[Dudu2]

Super, merci pour ces infos !

 

[Dudu2]

@dysorthographie, avant que je n'exécute le fichier Office2010Win32API_PtrSafe.exe, que va-t-il se passer et en quoi son installation va m'aider ?
J'ai pas bien compris les explications de la page https://www.microsoft.com/en-us/download/details.aspx?id=9970

 

[dysorthographie]

Il va juste décompresser le fichier mais je peux te le donner !

mais le fichier Win32API.XLSX est plus convivial il fait un synthèse des 2 fichiers Win32API et tu peux filtrer!
tu peux même rajouter une colonne qui fixe le contexte d'utilisation!

 

[Dudu2]

Ok j'ai stocké.
Merci !