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
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.