MÉTHODE FACILE POUR CREER UN TEXTE 3D
lucky07ir
Messages postés
133
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
18 avril 2004
-
11 mai 2003 à 15:56
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
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
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/7047-methode-facile-pour-creer-un-texte-3d
https://codes-sources.commentcamarche.net/source/7047-methode-facile-pour-creer-un-texte-3d
22 juin 2013 à 10:46
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
10 juil. 2010 à 10:25
14 janv. 2008 à 17:39
Merci
14 janv. 2008 à 14:56
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.
14 janv. 2008 à 08:55
Ex.:Si je saisi "bonjour" dans le textbox, j'aurais bonjour en 3D dans ma picturebox?
7 juil. 2005 à 15:14
15 mai 2003 à 09:07
11 mai 2003 à 15:56