Fader aol

Commenter

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

S'inscrire maintenant

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.

Du même auteur (ZeSpaceDroid)