Police de caractere sur UseForm!?

salut JB et le Forum

Tu click droit dessus ensuite sur propriete et sur font et tu n'as plus qu'a choisir .

@+ Salim

Bonjour,

n'aie pas honte y'a pas de quoi!

dans ton label tu fais un clic droit propriétés et tu cliques sur "font"

Michel

Bonjour JB, Michel, Salim, le Forum

Il n'y a jamais de honte à poser une question poliment.

Donc, en plus des réponses de Salim et Michel qui concerne le Mode Design du UserForm par la fenêtre propriété, on peut aussi faire la même chose par programmation en Mode Run Time.

Imaginons un UserForm avec un Label1 et un CommandButton1 et un CommandButton2...

Le Bouton 1 va mettre le label en Time New Roman, taille 14, gras, Italic, et surligné.... Tandis que le Bouton 2 remettra le Label dans son état d'origine (les paramètres sont conservés par des Variables)

Option Explicit

Private TheFont As String
Private TheSize As Byte
Private TheBold As Boolean
Private TheItalic As Boolean
Private TheUnder As Boolean

Private Sub UserForm_Initialize()
With Me.Label1
'Je récupère les paramêtres du mode Design
TheFont = .Font.Name
TheSize = .Font.Size
TheBold = .Font.Bold
TheItalic = .Font.Italic
TheUnder = .Font.Underline

.Caption = "Je suis le Label1"
End With
End Sub


Private Sub CommandButton1_Click()
With Me.Label1.Font
.Name = "Times New Roman"
.Size = 14
.Bold = True
.Italic = True
.Underline = True
End With
End Sub

Private Sub CommandButton2_Click()
With Me.Label1.Font
.Name = TheFont
.Size = TheSize
.Bold = TheBold
.Italic = TheItalic
.Underline = TheUnder
End With
End Sub


Voilà c'est juste un petit exemple de ce que l'on peut faire avec un UserForm en RunTime...

Bon Après Midi
@+Thierry

Re: Pseudo JB existe déjà!

- Salut à toi JB(bis),

je te signale que j'utilise déjà ce pseudo depuis un bon bout de temps, alors peux-tu modifier le tien svp,

merci.

JB (l'ancien)