Types de textes, [elite et hacker] pour agrémenté vos textbox et label =)
Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 834 fois - Téléchargée 67 fois
Contenu du snippet
Voila 2 types de texte qui donne un style a votre texte.
Hackers: SaLuT CoMMeNT Ca Va ?
Elite: SäLût lës Amîs !
Coded By Bart en Basic avec VB6.
Site: mutexinc.free.fr
Mail: mutexsoft@hotmail.com
Hackers: SaLuT CoMMeNT Ca Va ?
Elite: SäLût lës Amîs !
Coded By Bart en Basic avec VB6.
Site: mutexinc.free.fr
Mail: mutexsoft@hotmail.com
Source / Exemple :
Function Text_Hacker(Texte As String) 'Coded By Bart [MuTeX] (Mail: Bartman1er@aol.com) Let inptxt$ = Texte Let lenth% = Len(inptxt$) Do While NumSpc% <= lenth% Let NumSpc% = NumSpc% + 1 Let NextChr$ = Mid$(inptxt$, NumSpc%, 1) If NextChr$ = "A" Then Let NextChr$ = "a" If NextChr$ = "E" Then Let NextChr$ = "e" If NextChr$ = "I" Then Let NextChr$ = "i" If NextChr$ = "O" Then Let NextChr$ = "o" If NextChr$ = "U" Then Let NextChr$ = "u" If NextChr$ = "b" Then Let NextChr$ = "B" If NextChr$ = "c" Then Let NextChr$ = "C" If NextChr$ = "d" Then Let NextChr$ = "D" If NextChr$ = "z" Then Let NextChr$ = "Z" If NextChr$ = "f" Then Let NextChr$ = "F" If NextChr$ = "g" Then Let NextChr$ = "G" If NextChr$ = "h" Then Let NextChr$ = "H" If NextChr$ = "y" Then Let NextChr$ = "Y" If NextChr$ = "j" Then Let NextChr$ = "J" If NextChr$ = "k" Then Let NextChr$ = "K" If NextChr$ = "l" Then Let NextChr$ = "L" If NextChr$ = "m" Then Let NextChr$ = "M" If NextChr$ = "n" Then Let NextChr$ = "N" If NextChr$ = "x" Then Let NextChr$ = "X" If NextChr$ = "p" Then Let NextChr$ = "P" If NextChr$ = "q" Then Let NextChr$ = "Q" If NextChr$ = "r" Then Let NextChr$ = "R" If NextChr$ = "s" Then Let NextChr$ = "S" If NextChr$ = "t" Then Let NextChr$ = "T" If NextChr$ = "w" Then Let NextChr$ = "W" If NextChr$ = "v" Then Let NextChr$ = "V" If NextChr$ = " " Then Let NextChr$ = " " Let Newsent$ = Newsent$ + NextChr$ Loop Text_Hacker = Newsent$ End Function Function Text_Elite(Texte As String) 'Coded By Bart [MuTeX] (Mail: Bartman1er@aol.com) Let inptxt$ = Texte Let lenth% = Len(inptxt$) Do While NumSpc% <= lenth% DoEvents Let NumSpc% = NumSpc% + 1 Let NextChr$ = Mid$(inptxt$, NumSpc%, 1) Let nextchrr$ = Mid$(inptxt$, NumSpc%, 2) If nextchrr$ = "ae" Then Let nextchrr$ = "æ": Let Newsent$ = Newsent$ + nextchrr$: Let crapp% = 2: GoTo Greed If nextchrr$ = "AE" Then Let nextchrr$ = "Æ": Let Newsent$ = Newsent$ + nextchrr$: Let crapp% = 2: GoTo Greed If nextchrr$ = "oe" Then Let nextchrr$ = "": Let Newsent$ = Newsent$ + nextchrr$: Let crapp% = 2: GoTo Greed If nextchrr$ = "OE" Then Let nextchrr$ = "": Let Newsent$ = Newsent$ + nextchrr$: Let crapp% = 2: GoTo Greed If crapp% > 0 Then GoTo Greed If NextChr$ = "A" Then Let NextChr$ = "À" If NextChr$ = "a" Then Let NextChr$ = "å" If NextChr$ = "B" Then Let NextChr$ = "ß" If NextChr$ = "C" Then Let NextChr$ = "Ç" If NextChr$ = "c" Then Let NextChr$ = "¢" If NextChr$ = "D" Then Let NextChr$ = "Ð" If NextChr$ = "d" Then Let NextChr$ = "d" If NextChr$ = "E" Then Let NextChr$ = "Ê" If NextChr$ = "e" Then Let NextChr$ = "è" If NextChr$ = "f" Then Let NextChr$ = "" If NextChr$ = "H" Then Let NextChr$ = "H" If NextChr$ = "I" Then Let NextChr$ = "" If NextChr$ = "i" Then Let NextChr$ = "î" If NextChr$ = "k" Then Let NextChr$ = "|" If NextChr$ = "L" Then Let NextChr$ = "£" If NextChr$ = "M" Then Let NextChr$ = "/\/\" If NextChr$ = "m" Then Let NextChr$ = "m" If NextChr$ = "N" Then Let NextChr$ = "N" If NextChr$ = "n" Then Let NextChr$ = "ñ" If NextChr$ = "O" Then Let NextChr$ = "Ø" If NextChr$ = "o" Then Let NextChr$ = "ö" If NextChr$ = "P" Then Let NextChr$ = "¶" If NextChr$ = "p" Then Let NextChr$ = "Þ" If NextChr$ = "r" Then Let NextChr$ = "®" If NextChr$ = "S" Then Let NextChr$ = "§" If NextChr$ = "s" Then Let NextChr$ = "$" If NextChr$ = "t" Then Let NextChr$ = "" If NextChr$ = "U" Then Let NextChr$ = "Ú" If NextChr$ = "u" Then Let NextChr$ = "µ" If NextChr$ = "V" Then Let NextChr$ = "\/" If NextChr$ = "W" Then Let NextChr$ = "W" If NextChr$ = "w" Then Let NextChr$ = "vv" If NextChr$ = "X" Then Let NextChr$ = "X" If NextChr$ = "x" Then Let NextChr$ = "×" If NextChr$ = "Y" Then Let NextChr$ = "¥" If NextChr$ = "y" Then Let NextChr$ = "ý" If NextChr$ = "!" Then Let NextChr$ = "¡" If NextChr$ = "?" Then Let NextChr$ = "¿" If NextChr$ = "." Then Let NextChr$ = " " If NextChr$ = "," Then Let NextChr$ = "" If NextChr$ = "1" Then Let NextChr$ = "¹" If NextChr$ = "%" Then Let NextChr$ = "" If NextChr$ = "2" Then Let NextChr$ = "²" If NextChr$ = "3" Then Let NextChr$ = "³" If NextChr$ = "_" Then Let NextChr$ = "¯" If NextChr$ = "-" Then Let NextChr$ = "" If NextChr$ = " " Then Let NextChr$ = " " If NextChr$ = "<" Then Let NextChr$ = "«" If NextChr$ = ">" Then Let NextChr$ = "»" If NextChr$ = "*" Then Let NextChr$ = "¤" If NextChr$ = "`" Then Let NextChr$ = "" If NextChr$ = "'" Then Let NextChr$ = "" If NextChr$ = "0" Then Let NextChr$ = "º" Let Newsent$ = Newsent$ + NextChr$ Greed: If crapp% > 0 Then Let crapp% = crapp% - 1 DoEvents Loop Text_Elite = Newsent$ End Function
A voir également
- Types de textes, [elite et hacker] pour agrémenté vos textbox et label =)
- Créer son label - Forum Visual Basic 6
- Tkinter label - Forum Python
- Hacker un qcm en ligne ✓ - Forum Javascript / DHTML
- Label javascript - Forum Javascript / DHTML
- Textbox vba ✓ - Forum Visual Basic 6
8 déc. 2006 à 19:51
3 mai 2005 à 19:09
text_hacker text1.text
lenq_software@hotmail.com
15 oct. 2004 à 00:14
Merci.
26 oct. 2002 à 17:38
10 juil. 2001 à 20:22
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.