Discussion :

[Razmote]

Bonjour à tous,

J'aimerai appliquer un style à des boutons de formulaires en VBA, comme ceci :


j'ai fait ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
fr!fermer.QuickStyle = 42
fr!fermer.UseTheme = True
fr!fermer.BackStyle = "Standard"
fr!fermer.Transparent = False
fr!fermer.Shape = 2
fr!fermer.BorderColor = "QuickStyle"
fr!fermer.ForeColor = "QuickStyle"
fr!fermer.BorderStyle = ""
fr!fermer.BorderWidth = ""

Ca marche partiellement...

Est ce que c'est déja possible de faire la même chose en VBA ?

Je ne trouve pas les paramètres dans les propriétés des boutons déja crées.

Merci d'avance.

[paidge]

Bonjour,

Est ce que c'est déja possible de faire la même chose en VBA ?

Pourquoi c'est quoi comme langage si c'est pas du VBA ?! Je viens de faire ça et ça marche :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Current()
    With Me.btn_test
        .QuickStyle = 42
        .UseTheme = True
        .BackStyle = 1
        .Transparent = False
        .Shape = 2
        .BorderColor = RGB(0, 0, 0)
        .ForeColor = RGB(255, 0, 0)
        .BorderStyle = 1
    End With
End Sub

[Razmote]

Salut Paidge,

Je viens de tester ton code et j'ai le même résultat qu'avec le mien :


On est loin de ce que j'ai fait directement dans le formulaire, d'ou ma question peut on le faire en VBA.

Merci pour ta réponse.

[paidge]

Lol, on doit avoir un problème d'incompréhension :p
Comment as-tu obtenu tes boutons ?

[Razmote]

Je les ai crée en mode formulaire...

J'ai cliqué sur Format et Style Rapide et la j'ai pris la dernière ligne du bas...

Peut être qu'on peut pas faire pareil en programmation...

J'ai pas trouvé dans les propriétés du boutons les paramètres correspondants.

Merci

[paidge]

Peut-être en regardant par ici ?

[Razmote]

Justement c'est de la que je suis parti...

[paidge]

En listant les propriétés du bouton (le code est disponible dans l'aide d'Access), je t'ai sélectionné celles-ci qui devraient t'intéresser. A toi de voir lesquelles tu veux utiliser et personnaliser :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
    With Me.btn_test
        .CursorOnHover = 0
        .BackStyle = 1
        .Transparent = False
        .UseTheme = True
        .Shape = 1
        .Bevel = 3
        .Glow = 0
        .Shadow = 17
        .SoftEdges = 0
        .Gradient = 25
        .QuickStyle = 38
        .QuickStyleMask = -1
        .BackColor = 5066944
        .BackThemeColorIndex = 5
        .BackTint = 100
        .BackShade = 100
        .BorderStyle = 1
        .BorderWidth = 0
        .BorderColor = 5066944
        .BorderThemeColorIndex = 5
        .BorderTint = 100
        .BorderShade = 100
        .HoverColor = 7435213
        .HoverThemeColorIndex = 5
        .HoverTint = 80
        .HoverShade = 100
        .PressedColor = 3685279
        .PressedThemeColorIndex = 5
        .PressedTint = 100
        .PressedShade = 80
        .HoverForeColor = 16777215
        .HoverForeThemeColorIndex = 1
        .HoverForeTint = 100
        .HoverForeShade = 100
        .PressedForeColor = 16777215
        .PressedForeThemeColorIndex = 1
        .PressedForeTint = 100
        .PressedForeShade = 100
        .ForeColor = 16777215
        .ForeThemeColorIndex = 1
        .ForeTint = 100
        .ForeShade = 100
        .GridlineColor = 10921638
    End With

[Razmote]

Merci Paidge,

Je les avais vu aussi, mais je te dis pas la galère pour savoir quoi modifier pour avoir un résultat identique...

C'est pour ça que j'étais parti sur l'option QuickStyle car je pensais que ça serait beaucoup plus simple...

Je crois que je vais laisser tomber et garder mes boutons par défaut...

Merci de ton aide en tout cas.

[paidge]

T'as qu'à créer ton bouton avec le style qui t'intéresse. Puis sur l’événement clic de ton bouton, tu places ce code :

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
16
17
18
19
20
21
22
Private Sub btn_test_Click()
    Dim prp As Object
 
    On Error GoTo Err_btn_test_Click
 
    For Each prp In Me.btn_test.Properties
        Debug.Print "." & prp.Name & " = " & prp.Value
    Next prp
 
Exit_btn_test_Click:
    Set prp = Nothing
Exit Sub
 
Err_btn_test_Click:
    If Err = 2187 Then
        Debug.Print "." & prp.Name & " = Uniquement disponible en mode création."
        Resume Next
    Else
        Debug.Print "." & prp.Name & " = Erreur: " & Err.Description
        Resume Next
    End If
End Sub

Tu vas récupérer les propriétés et leurs valeurs pour les placer dans ton code afin de recréer le bouton comme tu le souhaites

[Razmote]

Haaaa pas bête ça...

Je vais aller tester

Merci.

[Razmote]

Salut PAidge,

Avec ton bout de code j'ai pu voir ce qu'il me fallait et ça fonctionne parfaitement...

Je mets la routine ici, ça peut servir :

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
16
17
18
19
20
21
22
23
 
' -----------------------------------------------------------------------
' bouton en 3D
' -----------------------------------------------------------------------
Function bouton_3d(fr As Form, bouton As String, Optional style As Integer)
 
    ' valeur par défaut
    If style = 0 Then style = 41
    With fr(bouton)
        .ForeThemeColorIndex = 1
        .ForeTint = 100
        .ForeShade = 100
        .BackStyle = 1
        .Transparent = False
        .UseTheme = True
        .Shape = 1
        .Glow = 0
        .SoftEdges = 0
        .Gradient = 25
        .QuickStyle = style
        .QuickStyleMask = -1
    End With
End Function

et son appel :

Code :

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

1
2
 
bouton_3d fr, fr!premier.Name, 36

Le style va de 36 à 42 pour l effet 3D...

Voila

Merci encore.