Bitmap et brushes : texte avec une texture

Télécharger le projet
Commenter

Description

C'est en fait le portage du code de radada :
http://www.vbfrance.com/code.aspx?ID=17764

de .Net vers Vb6.... oui, je sais, en general, on fais (ou on tente) le contraire.....

je trouvais interessant de presenter ca, même si ca n'est pas le seul moyen d'y parvenir. EBArtSoft ne me contredira pas ;-)

Ca permet de dessiner du texte, en utilisant une texture...

Source / Exemple : 


Public Function DrawBrushedText(ByVal hdc As Long, ByVal x As Single, ByVal y As Single, ByVal Str As String, ByVal hBrush As Long) As Boolean
    '# On assigne le Brush au DC, et on memorise l'ancien
    Dim oldBrush As Long
    oldBrush = SelectObject(hdc, hBrush)
    
    '# On definit l'origine du motif
    SetBrushOrgEx hdc, x, y, 0&
    
    '# On recupere les dimensions du texte.
    Dim width As Long: width = DCTextWidth(hdc, Str)
    Dim height As Long: height = DCTextHeight(hdc, Str)
    
    '# On dessinne notre texte
    PatBlt hdc, x, y, width, height, PATINVERT
    TextOut hdc, x, y, Str, Len(Str)
    DrawBrushedText = PatBlt(hdc, x, y, width, height, PATINVERT)
    
    '# On remet l'ancien Brush dans le DC
    SelectObject hdc, oldBrush
End Function

Conclusion :


Un label possédant la capacité d'avoir une texture, va bientôt voir le jour.... avec d'autres effets, que je vous concocte....
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Renfield)