Méthode facile pour creer un texte 3d

Commenter

Contenu du snippet

Ce programme affiche un texte 3D au meme temp que la saisie...

Source / Exemple : 


'Le code de la forme :
'Creer un pictureBox :picbox
'Creer un textbox txtmessage
Dim intCount As Integer

Private Sub Form_Activate()
txtMessage.SetFocus
End Sub

Private Sub txtMessage_Change()
' Effacer le picture box
picbox.Cls

For intCount = 1 To 250
    ' La couleur du picBox devient progressivement  jaune
    picbox.ForeColor = RGB(intCount + 1, intCount + 1, 0)
    'Creer l'effet 3D
   picbox.CurrentX = intCount
    
    picbox.CurrentY = intCount
    'Afficher le texte
    picbox.Print txtMessage.Text
Next intCount
End Sub

'Il faut que le picture box soit avec un AutoRedraw=true

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 (Nightman150)