Access VBA
Bayoussou
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
OlivrT Messages postés 323 Date d'inscription Statut Membre Dernière intervention -
OlivrT Messages postés 323 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Quand j'ai fait le code ci-dessou en BVA pour faire les sous menu d'une menu ça ne marche pas est ce que je peut avoir une aide de quelqu'un
Le code est tel:
Private Sub lblFichier_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim pt As POINTAPI
Dim NbPointParPouceX As Long, NbPointParPouceY As Long
'récupère la position de la souris
GetCursorPos pt
'Récupère le nombre de pixel par pouce
NbPointParPouceX = GetDeviceCaps(GetDC(0), 88)
NbPointParPouceY = GetDeviceCaps(GetDC(0), 90)
'Affiche la barre de menu à l'endroit souhaité
CommandBars("MenuFichier").ShowPopup pt.X - (X / (1440 / NbPointParPouceX)), pt.Y + (lblFichier.Height - Y) / (1440 / NbPointParPouceY)</gras></gras>
End Sub
Quand j'ai fait le code ci-dessou en BVA pour faire les sous menu d'une menu ça ne marche pas est ce que je peut avoir une aide de quelqu'un
Le code est tel:
Private Sub lblFichier_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim pt As POINTAPI
Dim NbPointParPouceX As Long, NbPointParPouceY As Long
'récupère la position de la souris
GetCursorPos pt
'Récupère le nombre de pixel par pouce
NbPointParPouceX = GetDeviceCaps(GetDC(0), 88)
NbPointParPouceY = GetDeviceCaps(GetDC(0), 90)
'Affiche la barre de menu à l'endroit souhaité
CommandBars("MenuFichier").ShowPopup pt.X - (X / (1440 / NbPointParPouceX)), pt.Y + (lblFichier.Height - Y) / (1440 / NbPointParPouceY)</gras></gras>
End Sub
2 réponses
Salut,
quel est le message d'erreur, à quelle ligne ? Où as-tu récupéré ce code (on dirait du VB pur et non du VBA) ?
quel est le message d'erreur, à quelle ligne ? Où as-tu récupéré ce code (on dirait du VB pur et non du VBA) ?
Pas grave, on peut très bien utiliser des API dans le VBA d'Access.
Le type de variable POINTAPI n'est pas un type public dans Microsoft Access.
Tu as certainement déclarer une API dans un module ou dans le formulaire où se trouve ton évènement.
Est-elle bien déclarée ?
Quel est le message d'erreur exact ?
Par contre moi j'aimerai comprendre l'utilité d'aller positionner une barre d'outil à la hauteur d'un Label ... ;-)
Le type de variable POINTAPI n'est pas un type public dans Microsoft Access.
Tu as certainement déclarer une API dans un module ou dans le formulaire où se trouve ton évènement.
Est-elle bien déclarée ?
Quel est le message d'erreur exact ?
Par contre moi j'aimerai comprendre l'utilité d'aller positionner une barre d'outil à la hauteur d'un Label ... ;-)