Discussion :

[le.dod]

Je cherche à faire des effets d'ombre ou de contour sur les polices.

Je ne saisi pas par ou commençer.

Merci pour votre aide.

[SpaceFrog]

Dans quoi elle est la police ???
éventuellement tu peux le faire avec deux labels l'un sur l'autre (zorder)
en mettant le fond du label au premier plan transparent et en mettant la police d'arrière plan en gris.
et décalant le top du label d'arrièreplan dans le sens de l'ombre voulue voire en modifiant la taille mais attention au centrage ...

Tout dépend de l'effet recherché...
Maintenant s'il s'agit d'une ombre floue ça va être beaucoup plus compliqué ...

[le.dod]

Je suis en train de créer un activeX, et ce que je voudrai c'est afficher la police en cours et avoir une option soit pour faire apparaitre le contour (et uniquement le contour) ou alors créer un effet d'ombre.

[SpaceFrog]

Qu'entends tu par police en cours ?
Et ou veux tu mettre la police ombrée ou contourée ?

[HCath]

Salut,

Si c'est un point de départ que tu cherches, tu peux commencer par ceci, par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Me.FontSize = 32
Me.ScaleMode = vbPixels
Me.CurrentX = 20
Me.CurrentY = 20
Me.ForeColor = vbWhite
Me.Print "Salut !"
Me.CurrentX = 18
Me.CurrentY = 18
Me.ForeColor = vbBlue
Me.Print "Salut !"

A+
HCath

[le.dod]

J'entand par police en cours la police sélectioné pour le UserControl que je veux afficher sur le UserControl

[SpaceFrog]

Warf HCATH, tu vois pas le beanz , fau tout écris deux fois en calculant à chaque fois le déclalge de positionnement ...

Au fait HCATH t'as perdu ton image ???

[HCath]

On peut optimiser !
Là c'est un petit exemple où le code est volontairement décomposé pour se faire une idée.
A+
HCath

[le.dod]

J'ai résolu mon probleme
Merci pour votre aide.

[SpaceFrog]

Un aperçu de ta solution serait la bienvenue...
A moins que cela ne relève du secret défense ou de la propriété intellectuelle ...

[le.dod]

UserControl.ScaleMode = vbPixels
X = UserControl.ScaleWidth / 2 - (UserControl.TextWidth(Msg) / 2)
Y = UserControl.ScaleHeight / 2 - (UserControl.TextHeight(Msg) / 2)
UserControl.ForeColor = vbRed
UserControl.CurrentX = X
UserControl.CurrentY = Y - 1
UserControl.Print Msg
UserControl.CurrentX = X - 1
UserControl.CurrentY = Y
UserControl.Print Msg
UserControl.CurrentX = X
UserControl.CurrentY = Y + 1
UserControl.Print Msg
UserControl.CurrentX = X + 1
UserControl.CurrentY = Y
UserControl.Print Msg
UserControl.ForeColor = Progression.ForeColor
UserControl.CurrentX = X
UserControl.CurrentY = Y
UserControl.Print Msg

Voila le code pour créer un contour. Pour vraiment voir l'efficacité il faut mettre une taille de police assez grosse.

[SpaceFrog]

Bien vu ! 8)

Merci beaucoup pour le retour d'info