Méthode facile pour creer un texte 3d

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 342 fois - Téléchargée 36 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
rebixav Messages postés 130 Date d'inscription dimanche 16 décembre 2007 Statut Membre Dernière intervention 28 janvier 2013
22 juin 2013 à 10:46
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
ariaznzman Messages postés 1 Date d'inscription jeudi 28 janvier 2010 Statut Membre Dernière intervention 10 juillet 2010
10 juil. 2010 à 10:25
WAWWWWWWWWWWWWWWWWWW GOOOOOOOOOOOOOD
rhonin33 Messages postés 10 Date d'inscription jeudi 18 octobre 2007 Statut Membre Dernière intervention 22 juillet 2011 3
14 janv. 2008 à 17:39
ok merci comme j'aime pas prendre les codes sans les comprendres je voulais être sur.
Merci
Nightman150 Messages postés 30 Date d'inscription vendredi 17 mai 2002 Statut Membre Dernière intervention 14 juin 2008
14 janv. 2008 à 14:56
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.
rhonin33 Messages postés 10 Date d'inscription jeudi 18 octobre 2007 Statut Membre Dernière intervention 22 juillet 2011 3
14 janv. 2008 à 08:55
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.