Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

MSN DÉGRADÉS DE COULEURS


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é: 22 608 / 1 786

Note :
4,5 / 10 - par 4 personnes
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 !

Télécharger le zip

Historique

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

Commentaires et avis

signaler à un administrateur
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 :-/

signaler à un administrateur
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 +.

signaler à un administrateur
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.

signaler à un administrateur
Commentaire de Alain Proviste le 15/09/2006 00:31:20 administrateur CS

précise dans la description qu'il faut msn+ :)

signaler à un administrateur
Commentaire de lilbitch le 22/06/2007 02:14:50

salut moi je voudrais avoir tous les temps en couleur?

signaler à un administrateur
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?

signaler à un administrateur
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 dans le forum

msn messenger [ par Badine ] comment programmer une aplication chat internetc a dir le serveur est distant a l autre bout de la planetec a dir il passe a traver les fire wire j ai Besoin d'aide pour un msn messnger en vb [ par Black Samourail ] Salut toul monde je programme actuellement un lgiciel du genre msn messenger service et pour fair pro j'airepris l'interface de 'l archiecture orienté MSN chat room [ par [vbtom] ] Bonjour, SI quelqu'un pouvait m'expliquer comment les chat MSN marchent...C'est avec un control Active X mais c'est tout ce que je sais...SI quelqu Le look à la MSN messenger / XP [ par lhalin ] Salut à tous,Savez-vous comment créer des frame avec le look à la MSN MEssenger ou XP, avec les bord arrondis, les couleurs pastels, les ptit boutons msn recherche [ par greg13 ] gregJe cherche des programmeur vb6 qui peuvent communiquer avec moi grâce a msn Chat type MSN [ par Jielde ] Voila je cherche des personnes pour faire un chat type msn, ICQ, Aim,... comme VBfrance Messenger ( dont je ne remerci pas pour n'avoir pas voullu no composant msn [ par Kevergeek ] comment s'appelle le composant msn ? je ne le trouve po...et si je ne l'ai pa, où est-ce que je pe le trouveer ? merci(msn est installé et fonctionne) lien avec MSN [ par diablosv ] je voudrait faire un lien avec msn cela est il possible via le VBex : rajouter des messages d'attenteMERCI bcp Rechreche composant MSN messenger!!!!! [ par Amano ] Voilà c'est con mais il me manque la librairie d'MSN messenger et je la trouve pas sur le net.Alors je fais appelle a votre générosité pour m'envoyer


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version

Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,733 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.