Msn dégradés de couleurs

Soyez le premier à donner votre avis sur cette source.

Vue 28 459 fois - Téléchargée 1 892 fois

Description

On indique la phrase à colorer, ainsi que la couleur de départ et d'arrivée,
et le résultat est mit dans le presse papiers.
Il ne vous reste plus qu'à faire "coller" pendant une conversation.
Il sert pour les messages envoyés, et non pour changer le nom,
et pour voir les couleurs, il faut avoir MSN +.

Source / Exemple :


Public Sub CRGB(ByVal Couleur As Long, Red As Long, Green As Long, Blue As Long)
    
Blue = Int(Couleur / 65536)
Green = Int((Couleur - (65536 * Blue)) / 256)
Red = Couleur - ((Blue * 65536) + (Green * 256))
    
End Sub

Private Sub Form_Load()
Dim texte As String
texte = InputBox("Phrase ?", "Texte à colorer ?", "bonjour !")
If Len(texte) > 68 Then
    MsgBox "Phrase trop longue (> 68 caractères).", vbCritical, "ERREUR"
    Unload Me
    Exit Sub
End If
Dim tableau() As String
ReDim tableau(Len(texte) - 1) As String
Dim num As Byte
For num = 0 To UBound(tableau)
    tableau(num) = Mid(texte, num + 1, 1)
Next
Dim couleurs(5) As Long
MsgBox "Veuillez selectionner la couleur de départ.", vbInformation, "Info"
CDlg1.ShowColor
MsgBox "Veuillez selectionner la couleur d'arrivée.", vbInformation, "Info"
CRGB CDlg1.Color, couleurs(0), couleurs(1), couleurs(2)
CDlg1.ShowColor
CRGB CDlg1.Color, couleurs(3), couleurs(4), couleurs(5)
Dim stat As Byte
Dim rgb(2) As String
Dim tres As String
tres = ""
Dim num2 As Byte
For num = 0 To UBound(tableau)
    rgb(0) = CInt(((num / UBound(tableau)) * couleurs(3)) + ((1 - (num / UBound(tableau))) * couleurs(0)))
    rgb(1) = CInt(((num / UBound(tableau)) * couleurs(4)) + ((1 - (num / UBound(tableau))) * couleurs(1)))
    rgb(2) = CInt(((num / UBound(tableau)) * couleurs(5)) + ((1 - (num / UBound(tableau))) * couleurs(2)))
    For num2 = 0 To 2
        Do While Len(rgb(num2)) < 3
            rgb(num2) = "0" & rgb(num2)
        Loop
    Next
    tres = tres + "(" & rgb(0) & "," & rgb(1) & "," & rgb(2) & ")" & tableau(num)
Next
MsgBox "Résultat mit dans le presse papiers.", vbInformation, "Fin"
Clipboard.Clear
Clipboard.SetText tres
Unload Me
End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

debutant VB
Messages postés
93
Date d'inscription
lundi 3 juillet 2006
Statut
Membre
Dernière intervention
25 juin 2010
-
1: Lancer mon programme
2: Ecrire la phrase ou le mot à colorer
3: Sélectionner les 2 couleurs de départ et d'arrivée (pour le dégradé)
4: Le résultat est mit dans le presse-papier : Aller dans la fenêtre de conversation et faire Coller (Ctrl+V ou clic droit)

Je rappelle qu'il faut avoir MSN +.
lilbitch
Messages postés
2
Date d'inscription
vendredi 22 juin 2007
Statut
Membre
Dernière intervention
22 juin 2007
-
salut c'est pour toujours avoir les texte que j'ecris en dégradé comment je fait?
lilbitch
Messages postés
2
Date d'inscription
vendredi 22 juin 2007
Statut
Membre
Dernière intervention
22 juin 2007
-
salut moi je voudrais avoir tous les temps en couleur?
cs_Alain Proviste
Messages postés
908
Date d'inscription
jeudi 26 juillet 2001
Statut
Modérateur
Dernière intervention
1 février 2015
1 -
précise dans la description qu'il faut msn+ :)
debutant VB
Messages postés
93
Date d'inscription
lundi 3 juillet 2006
Statut
Membre
Dernière intervention
25 juin 2010
-
(^^ ce n'est pas)
C'est normal que ça te donne ça au fait.
Merci d'ajouter votre commentaire.

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.