PopUpMenu Avec FaceId

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour patricktoulon,

Voilà c'est parfait tu as fait tout que je souhaité.
J'ai même réduit le nombre de Sub qui appelle les commandes en un seul Sub :

Dans le module de ton code j'ai rajouté :

Code:

1
2
3
[...]
Public NomMenu As String
[...]

En suite dans le même module j'ai ajouté un Sub :

Code:

1
2
3
4
5
6
Sub MenuNom()
    On Error Resume Next
    Dim Recup_Nom
    Recup_Nom = CommandBars.ActionControl.Caption
    NomMenu = Replace(Recup_Nom, "&", "")
End Sub

Un des Menu Dans le USF :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Label1_Click()

    Dim boutons
    Label1.Font.Bold = True: Label1.SpecialEffect = 2: Label1.ForeColor = RGB(0, 0, 110)
    boutons = Array( _
    "&Ouvrir:23:1:Choix_Bouton", _
    "&Enregistrer:3:1:Choix_Bouton:true", _
    "&Imprimer:4:1:Choix_Bouton", _
    "&Couper:21:0:Choix_Bouton:", _
    "&Coller:171:0:Choix_Bouton", _
    Array("&Couper Son:478:1:Choix_Bouton", "&Remettre Son:272:1:Choix_Bouton", "&Son Application"), _
    "&Quitter:1088:1:Choix_Bouton:")
    Menu boutons, Label1, "usf"
    Label1.Font.Bold = False: Label1.SpecialEffect = 3: Label1.ForeColor = RGB(0, 0, 0)
    Label5 = NomMenu  <--Ici j'appelle le nom du bouton sur le quel j'ai cliqué dessus
End Sub

Et dans un seul module je gère toutes les commandes des boutons que je souhaites créer :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Choix_Bouton()
MenuNom
 
If NomMenu = "Ouvrir" Then MsgBox "Vous avez choisi Ouvrir", vbInformation
If NomMenu = "Enregistrer" Then MsgBox "Vous avez choisi Enregistrer", vbInformation
If NomMenu = "Imprimer" Then MsgBox "Vous avez choisi Imprimer", vbInformation
If NomMenu = "Couper Son" Then PlayOff
If NomMenu = "Remettre Son" Then PlayOnIntro
If NomMenu = "Quitter" Then PlayOff: Unload USF1
 
If NomMenu = "Propriété" Then MsgBox "Vous avez choisi Propriété", vbInformation
End Sub

Grand merci à toi

22/03/2017, 16h30
patricktoulon

re

de rien
mais une seule sub je te le déconseille si tu veux les développer après walouh walouh!!!!!

alors ???? oublié ton vieux code avec les apis hein !!!?
22/03/2017, 17h11
GuiJenn34

Ho oui ton code et vachement mieux....

Après je peux créer un Sub par Menu créé aussi.

En faite ce qui était lourd en visuel c'est un Sub par bouton Alors que maintenant je peux avoir un Sub général où un Sub par Menu, où bien grâce a ton code si une commande spéciale je crée le Sub pour cette commande tout simplement.

:)

Mais maintenant que j'ai mes menu faut les alimenter et là cela fait maintenant plus d'une semaine que je cherche et je ne trouve pas !!
Se sera donc un nouveau forum "comment convertir un PDF" en Word, Excel, Image [Tiff jepg, bnp etc...], CSV etc... en simple fichier où en masse.

J'ai regardé de partout en VBS, VBA, VB6 et il y en a mais il ne fonctionne pas chez moi, car il fallait installé ci installé ça...
Je vais faire une demande prochainement sur ça.

Je te dirais surement @+ ;)
23/03/2017, 00h14
patricktoulon

re

je dirais que pour convertir un pdf to X il y a quelques solutions
la première sans installer quoi que ce soit: on a tous adobe reader X.x dans nos pc pour pouvoir visionner les pdf

on peut manipuler les touches par un object wscript.shell
mais c'est pas le plus sur
il y a Kiki29 qui est le maitre en la matière il aime bien lui les P De Fouff tu peux potasser toutes ses contribs y a faire
23/03/2017, 13h29
GuiJenn34

Merci pour tout patricktoulon.

Pour info je viens de faire le post :
https://www.developpez.net/forums/d1...p-etc-csv-etc/

Maintenant j'espère que Kiki29 pourra m'aider :P

Voir 40 message(s) de cette discussion en une page