Talkers

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 948 fois - Téléchargée 58 fois

Contenu du snippet

ce code permet de faire des differents styles d'ecriture. C'est personemmement celui k eg utilizé dans mon prog AOL

Source / Exemple :


Public Function H4cK_STYLE(Texte As String) As String
i = 2
For j = 1 To Len(Texte)
If i = 0 Then
result = result & LCase(Mid(Texte, j, 1))
i = 1
ElseIf i = 1 Then
result = result & LCase(Mid(Texte, j, 1))
i = 2
ElseIf i = 2 Then
result = result & UCase(Mid(Texte, j, 1))
i = 0
End If
Next j
H4cK_STYLE = result
End Function

Public Function Space_STYLE(Texte As String) As String
Dim result As String
For i = 1 To Len(Texte)
result = result & Mid(Texte, i, 1) & " "
Next i
Space_STYLE = result
End Function

Public Function Dots_STYLE(Texte As String) As String
Dim result As String
For i = 1 To Len(Texte)
result = result & Mid(Texte, i, 1) & "•"
Next i
Dots_STYLE = Mid(result, 1, Len(result) - 1)
End Function

Public Function Perso_STYLE(Texte As String, sign As String) As String
Dim result As String
For i = 1 To Len(Texte)
result = result & Mid(Texte, i, 1) & sign
Next i
Perso_STYLE = Mid(result, 1, Len(result) - 1)
End Function

Public Function Double_STYLE(Texte As String) As String
Dim result As String
For i = 1 To Len(Texte)
result = result & Mid(Texte, i, 1) & Mid(Texte, i, 1)
Next i
Double_STYLE = result
End Function

Public Function Lagger_STYLE(Texte As String) As String
Dim result As String
For i = 1 To Len(Texte)
result = result & "<html>" & Mid(Texte, i, 1) & "</html>"
Next i
Lagger_STYLE = result
End Function

Public Function Italy_STYLE(Text As String) As String
Dim result As String
j = 1
For i = 1 To Len(Text)
    If j = 1 Then
    result = result & "<font color=#008000>" & Mid(Text, i, 1)
    j = 2
    ElseIf j = 2 Then
    result = result & "<font color=#C0C0C0>" & Mid(Text, i, 1)
    j = 3
    ElseIf j = 3 Then
    result = result & "<font color=#ff0000>" & Mid(Text, i, 1)
    j = 1
    End If
    Next i
Italy_STYLE = result
End Function

Private Sub UserControl_Resize()
UserControl.Height = 510
UserControl.Width = 1230
End Sub

Conclusion :


Attention, c'est un controle Active X . sans les 4 dernieres lignes c une simple fonction

J'attends des commentaires et des critiques

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.