OVH Cloud OVH Cloud

Caractères spéciaux dans un formulaire ?

3 réponses
Avatar
Apitos
Bonjour,

Comment introduire des caract=E8res sp=E9ciaux dans in Label ?

J'ai fait cette proc=E9dure mais j'aimerais pouvoir choisir un
caract=E8re sp=E9cial :

Private Sub CommandButton1_Click()
Label1.Font.Name =3D "Wingdings"
Label1.Font.Charset =3D 2
End Sub

Merci.

3 réponses

Avatar
Tisane
Bonjour Apitos,

Comment introduire des caractères spéciaux dans in Label ?
J'ai fait cette procédure mais j'aimerais pouvoir choisir un
caractère spécial :
Private Sub CommandButton1_Click()
Label1.Font.Name = "Wingdings"
Label1.Font.Charset = 2
End Sub


Je ne comprends pas bien ce que tu veux obtenir :
une étiquette qui affiche uniquement un wingding ?
Dans ce cas, tu as aussi vite fait de le transformer en image (via Paint par
exemple).
Donne un exemple concret, sinon.

--
Tisane

Avatar
Apitos
A l'initialisation du formulaire :

Private Sub UserForm_Initialize()
Label1.Font.Name = "Wingdings"
Label1.Caption = Chr(47)
Label2.Caption = "Adresse postale"
Label3.Font.Name = "Wingdings"
Label3.Caption = Chr(41)
Label4.Caption = "Tel"
Label5.Font.Name = "Wingdings"
Label5.Caption = Chr(56)
Label6.Caption = "E-mail"
End Sub

Et voila un exemple de ce que j'aimerais avoir sur le formulaire :

http://cjoint.com/?klsDHN8ZjM

Merci.
Avatar
Apitos
ça y'est j'ai trouvé :

Private Sub UserForm_Initialize()
Label1.Font.Name = "Wingdings"
Label1.Font.Size = "12"
Label1.Caption = ChrW(61487)
Label2.Caption = "Adresse postale"

Label3.Font.Name = "Wingdings"
Label3.Font.Size = "12"
Label3.Caption = ChrW(61481)
Label4.Caption = "Tel"

Label5.Font.Name = "Wingdings"
Label5.Font.Size = "12"
Label5.Caption = ChrW(61496)
Label6.Caption = "E-mail"
End Sub

Mais j'aimerais optimisé le code ...