Méthode facile pour creer un texte 3d

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 986 fois - Téléchargée 34 fois

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

Ajouter un commentaire

Commentaires

Messages postés
130
Date d'inscription
dimanche 16 décembre 2007
Statut
Membre
Dernière intervention
28 janvier 2013

c'est super mais je trouvais cela un peu flou est pas très propre, je l'ais juste améliorer en sub !

Public Sub String_to_text_3D(text As String, pict As PictureBox, Optional police As String = "Courier New", _ Optional taille As Byte 8, Optional profondeur_3D As Byte 30)

pict.FontName = police
pict.FontSize = taille
pict.Cls

If profondeur_3D > 60 Then profondeur_3D = 60
For intCount% = 1 To profondeur_3D Step 2
pict.ForeColor = RGB(140 - intCount, 140 - intCount, 140 - intCount)
pict.CurrentX = intCount
pict.CurrentY = intCount
pict.Print text
Next intCount

pict.ForeColor = RGB(0, 0, 0)
pict.CurrentX = intCount
pict.CurrentY = intCount
pict.Print text

End Sub
Messages postés
1
Date d'inscription
jeudi 28 janvier 2010
Statut
Membre
Dernière intervention
10 juillet 2010

WAWWWWWWWWWWWWWWWWWW GOOOOOOOOOOOOOD
Messages postés
10
Date d'inscription
jeudi 18 octobre 2007
Statut
Membre
Dernière intervention
22 juillet 2011
3
ok merci comme j'aime pas prendre les codes sans les comprendres je voulais être sur.
Merci
Messages postés
30
Date d'inscription
vendredi 17 mai 2002
Statut
Membre
Dernière intervention
14 juin 2008

Salut rhonin33,
Le texte est mis dans la picture box et l'effet 3D est créé avec la boucle
qui décale un peu à chaque tour de boucle.
Messages postés
10
Date d'inscription
jeudi 18 octobre 2007
Statut
Membre
Dernière intervention
22 juillet 2011
3
Salut je suis debutant en vb j'essaye de comprendre ce code, donc en fait le texte saisi (dans le text box) est "copié" dans la picture box (avec l'effet 3D qui suit?

Ex.:Si je saisi "bonjour" dans le textbox, j'aurais bonjour en 3D dans ma picturebox?
Afficher les 8 commentaires

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.