Fader aol

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 841 fois - Téléchargée 37 fois

Contenu du snippet

Je sais que bcp de monde cherche à faire son fader AOL mais que personne n'y arrive. Plus maintenant ! C'est grace à qui ca hein ?
Pour se faire il faut 1 module AOL comprenant les fonctions ChatSend, MultiFade et RGBtoHEX (http://www.softproject-v2.fr.st)
Il faut :
- COMDLG32.OCX
- 1 TextBox
- 3 PictureBox
- 1 CheckBox (pr le wavy)

Source / Exemple :


Private Sub p1_Click()
cdlg1.ShowColor
p1.BackColor = cdlg1.Color
End Sub

Private Sub p2_Click()
cdlg1.ShowColor
p2.BackColor = cdlg1.Color
End Sub

Private Sub p3_Click()
cdlg1.ShowColor
p3.BackColor = cdlg1.Color
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim ColorArray(3)
ColorArray(1) = p1.BackColor
ColorArray(2) = p2.BackColor
ColorArray(3) = p3.BackColor
If Check1.Value = 1 Then a$ = MultiFade(3, ColorArray, Text1.Text, True) Else a$ = MultiFade(3, ColorArray, Text1.Text, False)
Text1.Text = ""
ChatSend (a$)
End If
End Sub

Conclusion :


cdlg1 étant le CommonDialog et p1 -> p3 les PictureBox
Facile non ? Fonctions en plus (gras, italiqe, souligné, barré, sauvegarde des couleurs) : ecrivez moi

A voir également

Ajouter un commentaire Commentaires
Messages postés
7
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
29 juillet 2003

Mouais Ze.. t'aurais pu quand même au moins expliquer comment est foutu le module, pc la tu ne fais que appliquer ses fonctions.. aucune utilitée
Messages postés
17
Date d'inscription
mercredi 9 octobre 2002
Statut
Membre
Dernière intervention
15 mars 2003

g mi nivo 2 ?
Messages postés
188
Date d'inscription
dimanche 29 octobre 2000
Statut
Membre
Dernière intervention
18 août 2005

faut pa pousser, c pas du niveau 2 ça !!
Messages postés
2865
Date d'inscription
samedi 2 novembre 2002
Statut
Membre
Dernière intervention
11 mai 2009
11
excuse moi, mais je ne vois pas l'utilité de ce code...

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.