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.