Discussion :

[Yves2507]

Bonjour

j'essai de réaliser le tutorial de tofalu sur l'insertion d'une barre de menu dans un formulaire.

http://warin.developpez.com/access/tutorielcontext1/

j'ai copier les modules et réaliser ma barre d'outils mis le code sur l'évenement souris appuyé mais l'orsque je clic sur mon étiquette fichier rien ne ce produit.

Auriez vous une piste.

[Tofalu]

Montre ton code

[Yves2507]

Sur le module mduAPI:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Public Type POINTAPI
    X As Long
    Y As Long
End Type
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long

[/list]Sur l'évenement souris appuyé:

• [code]Private Sub Étiquette121_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)
  End Sub[code]
  
  la barre s'appelle menufichier
  

[Yves2507]

ca y est cela fonctionne j'ai tous refait et cela marche.

Je ne sais pas ou était l'erreur mais bon !!!!!

Je voudrai coder les fonction copier dans le presse papier de windows et coller depuis le presse papier.
Comment faire?

[cafeine]

Hello,

merci de cloturer ce sujet avec un joli

Puis d'en ouvrir un autre pour une autre question.

[kgb1917]

Bonjour à vous,

j'aurai besoin de vos lumières sur un point concernant le tuto de tofalu sur la barre de menu.
J'ai suivi le tuto à la lettre et il fonctionnait très bien jusqu'à ce que je ferme la base (compactage auto sur fermeture). A la réouverure, sur click dans la barre, j'ai un message "Erreur 11 - Division par 0".

Qqu'un aurait-il une explication ?

Par avance merci

[Yves2507]

Je ne peux résoudre t'on problème.Mais à mon avis il vaudrai mieux que tu poste dans un nouveau message car celui ci ne sera probablement que peu relu.