Nombre de menu dans votre form

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 173 fois - Téléchargée 45 fois

Contenu du snippet

Bon d'accord je vois pas vraiment l'interet du code mais si c'est utilile a quelqu'un bien c'est parfait

Source / Exemple :


Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function GetMenu Lib "user32" (ByVal hWnd As Long) As Long

Private Sub Command1_Click()
Dim hMenu As Long
hMenu = GetMenu(Me.hWnd)
Me.Caption = GetMenuItemCount(hMenu)
End Sub

Conclusion :


Je rappel à ceux qui sont pas content de virer la page

A voir également

Ajouter un commentaire

Commentaires

Messages postés
85
Date d'inscription
mardi 6 janvier 2004
Statut
Membre
Dernière intervention
7 mai 2007

max12
Je cherchais un moyen de tester si ma form a un menu.
Et je n'avais rien trouvé jusqu'à tomber sur ta source.

C'EST EXACTEMENT CE QUE J'AVAIS BESOIN !!!

Je tiens a te remercier franchement.
S'il y avait quatre ans tu n'avais pas posté ta source,
j'aurais continuer a galérer.


10/10
Messages postés
21
Date d'inscription
samedi 13 octobre 2001
Statut
Membre
Dernière intervention
25 avril 2002

Bon Bon Bon encore les décalages ....
Messages postés
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014

Je vie pas en france, c'était p-ê le réveillon pour toi (Décalage horère)
Messages postés
1277
Date d'inscription
mercredi 21 mars 2001
Statut
Modérateur
Dernière intervention
21 juin 2009
2
1ere source de 2002!
toi aussi t'avait pas envie de dormir apres le reveillon?
Messages postés
415
Date d'inscription
mardi 3 avril 2001
Statut
Membre
Dernière intervention
26 avril 2008

ehhh... et sa sert à: ...??

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.