Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Declare

Declare

3 réponses
Avatar
garnote
Bonsoir,

Où peut-on trouver la liste de ces énigmatiques Declare ... ?

Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As
Integer

Sub Bouton1_QuandClic()
Const m As Integer = &H10
If GetKeyState(m) < 0 Then
MsgBox "Maj a été appuyé."
Else
MsgBox "Maj n'a pas été appuyé."
End If
End Sub

Serge
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
docm
Bonjour garnote.
On trouve ici 940 fonctions API expliquées et accompagnées d'exemples.
http://www.mentalis.org/apilist/apilist.php
Amicalement.


"garnote" wrote in message
news:SpJyc.35229$%
Bonsoir,

Où peut-on trouver la liste de ces énigmatiques Declare ... ?

Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As
Integer

Sub Bouton1_QuandClic()
Const m As Integer = &H10
If GetKeyState(m) < 0 Then
MsgBox "Maj a été appuyé."
Else
MsgBox "Maj n'a pas été appuyé."
End If
End Sub

Serge




Avatar
garnote
Merci pour le lien.

Serge


"docm" a écrit dans le message de news:

Bonjour garnote.
On trouve ici 940 fonctions API expliquées et accompagnées d'exemples.
http://www.mentalis.org/apilist/apilist.php
Amicalement.


"garnote" wrote in message
news:SpJyc.35229$%
Bonsoir,

Où peut-on trouver la liste de ces énigmatiques Declare ... ?

Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As
Integer

Sub Bouton1_QuandClic()
Const m As Integer = &H10
If GetKeyState(m) < 0 Then
MsgBox "Maj a été appuyé."
Else
MsgBox "Maj n'a pas été appuyé."
End If
End Sub

Serge








Avatar
docm
Fait plaisir.
Gérard

"garnote" wrote in message
news:ALJyc.35393$%
Merci pour le lien.

Serge


"docm" a écrit dans le message de news:

Bonjour garnote.
On trouve ici 940 fonctions API expliquées et accompagnées d'exemples.
http://www.mentalis.org/apilist/apilist.php
Amicalement.


"garnote" wrote in message
news:SpJyc.35229$%
Bonsoir,

Où peut-on trouver la liste de ces énigmatiques Declare ... ?

Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As
Integer

Sub Bouton1_QuandClic()
Const m As Integer = &H10
If GetKeyState(m) < 0 Then
MsgBox "Maj a été appuyé."
Else
MsgBox "Maj n'a pas été appuyé."
End If
End Sub

Serge