Salut

Voici un petit Soft qui permet de faire des magnifiques dégradés de couleurs :
Le RastabaGradeur Caractéristique du RastabaGradeur :- Vous pouvez écrire vos messages en dégradé de couleur ! Original & c'est sympa

- Vous pouvez directement mettre en Gras votre texte, Souligner, mettre en italique et meme
Barrer certains mots - Si vous avez MS Word d'installé sur votre PC, vous aurez acces directement au correcteur d'orthographe ! MERCI
- Et une petit bouton pour "Copier" directement le texte mis en forme, il vous suffira juste d'allez dans le Forum
Voici un petit exemple :
De la Couleur, en veux-tu ??? En VoilàTout d'bord,
télécharger le RastabaGradeur(vous aurez peut etre besoin du
FrameWork de Microsoft , pour faire marcher ce petit soft, donc si vous avez un message d'erreur lorsque vous lancé le
RG, téléchargez ce petit addon)
Il vous suffia d'ecrire votre texte dans la fenetre du RG (voir exemple ci dessous)

Vous avez la possibilité de choisir 3 ton de couleurs différent que va prendre votre dégradé (voir si dessous)

Vous avez la possibilité a l'avance de mettre votre texte en forme (gras, souligne, italique & barrer)
Voici le résultat :
De la Couleur, en veux-tu ??? En VoilàEt le Top du Top, vous avez la possibilité de passer un coup de correcteur d'orthographe & de grammaire (Uniquement si vous avez MS Word d'installé), ne pas hésiter d'utiliser cette fonction !
AVANT :
APRES :

Pour les coddeurs en herbe, voici le code source du RG en VBNET (
© Franck 2004 pour le RsF)
Avant toutes modifications du code, mais surtout redistribution du code source, vous etes priez de nous faire une demande au préalable...
| CODE |
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Send.Text = "" Dim coldebR, coldebG, coldebB As Integer Dim colcenR, colcenG, colcenB As Integer Dim colfinR, colfinG, colfinB As Integer Dim nblet, nblet2, i, resR, resG, resB As Integer Dim reshexR, reshexG, reshexB As String
nblet = Len(h2.Text) / 2 nblet2 = Len(h2.Text) - nblet
coldebR = Button2.BackColor.R coldebG = Button2.BackColor.G coldebB = Button2.BackColor.B
colfinR = Button4.BackColor.R colfinG = Button4.BackColor.G colfinB = Button4.BackColor.B
colcenR = Button3.BackColor.R colcenG = Button3.BackColor.G colcenB = Button3.BackColor.B
degrade(Mid(h2.SelectedText, 1, nblet), coldebR, coldebG, coldebB, colfinB, colfinG, colfinR) degrade(Mid(h2.SelectedText, nblet + 1, nblet2), colfinR, colfinG, colfinB, colcenB, colcenG, colcenR)
Send.SelectAll() Clipboard.SetDataObject(Send.SelectedText) h2.Paste() End Sub
Private Sub degrade(ByVal texte As String, ByVal coldebr As Integer, ByVal coldebg As Integer, ByVal coldebb As Integer, ByVal colfinb As Integer, ByVal colfing As Integer, ByVal colfinr As Integer) Dim resR, resG, resB, i As Integer Dim resHexR, resHexG, resHexB As String[B]
For i = 1 To Len(texte) resR = coldebr + (i / Len(texte)) * (colfinr - coldebr) resG = coldebg + (i / Len(texte)) * (colfing - coldebg) resB = coldebb + (i / Len(texte)) * (colfinb - coldebb)
resHexR = Hex(resR) If Len(resHexR) = 1 Then resHexR = "0" & resHexR resHexG = Hex(resG) If Len(resHexG) = 1 Then resHexG = "0" & resHexG resHexB = Hex(resB) If Len(resHexB) = 1 Then resHexB = "0" & resHexB
Send.Text += "[COLOR=#" & resHexR & resHexG & resHexB & "]" & Mid(texte, i, 1) & "[/COLOR]" Next
End Sub |
Et grace au RastabaGradeur, vos Messages prendront une autre dimension !!!Tout le mérite & les remerciements vont directement à
Franck Utilisez au mieux ce soft pour égailler vos posts (sans en abuser

)
Merci beaucoup Franck pour ce Soft Vraiment génial !

A très bientot

PS : Pour plus de clareté, j'ai rassemblé toutes les infos sur le RG & je les ai mise dans ce Topic. Je réactualiserai ce post pour ajouter les modifications à venir, postez uniquement pour proposer des idées d'améliorations, ou des questions sur le fonctionnement du RG