Discussion :

[faressam]

Bonjour

J'ai un boutton, "C1", et si jamais une condition de mon code n'est pas vérifié, alors il change le Caption du Boutton, alors il passe de "Corriger" à "Nouvelle Recherche" :

Code :

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

1
2
 
C1.Caption = "Nouvelle Recherche"

Sauf que le boutton doit s'agrandir pour contenir cette Chaîne, j'ai fait ça :

Code :

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

1
2
 
C1.SizeToFit

Mais ça ne marche pas.

il affiche un message d'erreur " option marchant seulement dans le mode Création ".

J'ai declaré C1 :

Code :

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

1
2
 
Dim C1 As Control

Merci de me dire comment faire pour que le boutton s'agrandi Automatiquement.


Mais je pense qu'il n'accepte pas de crée un Boutton sur le Formulaire

[Invité]

Bonjour

Comme te dis le message il faut que tu passes en mode création, voici un petit tuto de Caféine à lire : http://cafeine.developpez.com/access...utoextensible/

Starec

[faressam]

Justement je voulais te demander, qu'elle est l'utilité d'agrandir un boutton autmatiquement en mode Création, on peut le faire par la souris.

Et sinon existe- t'il d'autre méthode d'agrandir la taille d'un boutton selon le texte de sa Caption.

Sinon si il n'ya pas d'autre alternatifs, merci de me dire seulement la propriété qui determine la taille d'un boutton.

[Invité]

Re

Tu peux rentrer en mode création par programmation, un exemple avec cette contribution http://www.developpez.net/forums/sho...d.php?t=369242 où je passes en mode création par programmation.

Et à mon avis il n'en existe pas d'autres. Le tuto de Caféine te donne les indications nécessaires.

Starec

[francishop]

Bonsoir,

On peut imaginer un bouton :Commande0
Gauche-->0,397cm
Haut-->1,005cm
Largeur-->3cm
Hauteur-->0,499cm
Index tabulation -->0

Un peu de code dans le module du formulaire :

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
Option Compare Database
Dim FH As Integer
 
 
Sub VariablePosition()
    With Me.Controls("Commande" & FH)
        .FontBold = True
        .ForeColor = 16711680
        .FontItalic = True
        .FontSize = 10
        .FontUnderline = True
        .Height = 373       'on lui ajoute 90 à sa valeur originale
'(Hauteur qu'on va compenser en "TOP")
        .Width = 2151       'on lui ajoute 450 à sa valeur originale
        .Left = 14        'on le déplace à gauche de 225, la moitié 
'de de ce qu'on lui a ajouté en Width (Largeur)
    End With
    'On traite le Top indépendemment puisqu'il sera différent à chaque bouton
    If FH = 0 Then Commande0.Top = 525    'on lui ôte 45 
'= la moitié de de ce qu'on a ajouté en Hauteur
End Sub
   '*************************************************** 
 
'On restaure les valeurs initiales en sortant le curseur de chaque bouton 
'par le "survol" de la zone détail.
Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    With Me.Controls(FH)
        .FontBold = False
        .ForeColor = -2147483630
        .FontItalic = False
        .FontSize = 8
        .FontUnderline = False
        .Height = 283
        .Width = 1701
        .Left = 234 'Gauche
    End With
    If FH = 0 Then Commande0.Top = 570
 
End Sub

Sur le bouton :

Code :

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

1
2
3
4
Private Sub Commande0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    FH = Commande0.TabIndex
    VariablePosition
End Sub

On peut le concevoir avec des étiquettes en se servant de la propriété tag(Remarque)
en faisant attention au risque de doublons

Tout ceci est adapté pour plusieurs boutons-->Commande1-->Index tabulation -->1 etc.
Pour le cas présent il suffit d'adapter au besoin avec quelque "If.."

Cordialement