Discussion :

[tibofo]

Bonjour,
je viens de lire http://argyronet.developpez.com/offi...=page_9#L9-3-1

extrait : "Pour une sécurité totale, vous pouvez décocher toutes ou partie des cases mais cela reste risqué si vous n'avez pas prévu le code pour les rétablir ou bien pour accéder à votre application en mode Création, par exemple avec un bouton caché…

Sinon, nombreuses pourraient être les personnes qui posteraient sur le forum en écrivant qu'elles ont suivi ces conseils et que depuis, elles ne peuvent plus rien faire avec leur application…

"

Comment faire un bouton caché que je pourrais moi, utiliser en cas de besoin.
Je ne comprends pas.
Merci

Thibault

[micniv]

Comment faire un bouton caché ...

Bonjour,

Tu peux faire un bouton caché de différentes manières
mais l'une est est de créer ... un bouton que tu rends transparent et que tu réduis au minimum (qqls mm) et tu places le code sur double-clic plutôt que sur clic
Le plus dur est encore de le situer dans un endroit dont on se souviendra 6 mois après !

Voili-voilou

[tibofo]

Merci MicNiv pour ta réponse.

Mais as-tu un exemple du code à placer ?

A+
Thibault

[micniv]

Aucun code , juste changer les ptés du boutons de commande

[argyronet]

Bonjour,

Donc effectivement une fois que tu as rendu ton bouton transparent, il est important de faire en sorte que l'utilisateur ne clique pas dessus par hasard sans le faire exprès.
Pour ce faire, tu exploites l'argument Shift avec les constantes représentants respectivement la touche Control, la touche Shift et la touche Alt.
En combinant l'ensemble de ces valeurs que tu peux additionner, tu peux simuler le fait que si le bouton est le bouton de droite et que la combinaison Shift est égale à la valeur de ton choix, par exemple Shift + Control, tu peux effectivement autoriser un événement à se déclencher ou une procédure à s'exécuter...
Voici un exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub cmdTransparent_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'*******************************************************************
'Pour la forme...
Const vbLeftButton = 1                                'Le bouton gauche
Const vbRightButton = 2                               'Le bouton droit
Const vbMiddleButton = 4                              'Le bouton central
 
Const vbShiftMask = 1                                 'La touche MAJ
Const vbCtrlMask = 2                                  'La touche CTRL
Const vbAltMask = 4                                   'La touche ALT
'*******************************************************************
    If Button = vbRightButton And Shift = (vbShiftMask + vbCtrlMask) Then
        MsgBox "C'est bien, tu as trouvé la combine !!!", , "Bravo"
    End If
End Sub

Argy