MSN DÉGRADÉS DE COULEURS msn, Source N°39558

Information sur la source

Catégorie :Réseau & Internet Classé sous : msn Niveau : Débutant Date de création : 14/09/2006 Date de mise à jour : 15/09/2006 15:49:41 Vu / téléchargé: 18 947 / 1 746

Auteur : debutant VB

Ecrire un message privé

Note :

4,50 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (7)

Ajouter un commentaire et/ou une note

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

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

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

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

msn utilitaire
- Form1.frm 2 579 octets
- Project1.vbp 754 octets
- Project1.vbw 49 octets

Télécharger le zip

Historique

15 septembre 2006 15:49:41 :: Modification de la description.

Sources du même auteur

Toutes les sources de debutant VB

Sources de la même categorie

Toutes les sources de la catégorie Réseau & Internet

Sources en rapport avec celle ci

Commentaires

Commentaire de diablamanshadow le 14/09/2006 20:25:36

bonsoir,
ton logiciel me retourne ca :

(139,051,162)D(122,045,142)i(104,038,122)a(087,032,101)b(070,026,081)l(052,019,061)a(035,013,040)m(017,006,020)a(000,000,000)n

cependant dans windows live messenger avec l'addon plus bah y me dit nom incomplet et fonctionne pas trop bien :-/
Commentaire de debutant VB le 14/09/2006 21:02:41

Non, ce n'ai pas pour modifier le nom, c'est pour les messages envoyés.
De plus, pour qu'on voit le message en couleurs, il faut avoir MSN +.
Commentaire de debutant VB le 14/09/2006 21:10:38

(^^ ce n'est pas)
C'est normal que ça te donne ça au fait.
Merci d'ajouter votre commentaire.
Commentaire de Alain Proviste le 15/09/2006 00:31:20 administrateur CS

précise dans la description qu'il faut msn+ :)
Commentaire de lilbitch le 22/06/2007 02:14:50

salut moi je voudrais avoir tous les temps en couleur?
Commentaire de lilbitch le 22/06/2007 02:18:07

salut c'est pour toujours avoir les texte que j'ecris en dégradé comment je fait?
Commentaire de debutant VB le 22/06/2007 16:05:28

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

Ajouter un commentaire

Discussions en rapport avec ce code source

msn messenger par Badine

Besoin d'aide pour un msn messnger en vb par Black Samourail

MSN chat room par [vbtom]

Le look à la MSN messenger / XP par lhalin

msn recherche par greg13

Chat type MSN par Jielde

composant msn par Kevergeek

lien avec MSN par diablosv

Rechreche composant MSN messenger!!!!! par Amano