Cette source permet d'afficher la source d'une page présente sur le net ou en local ...
Si vous avez d'autres méthodes pour y parvenir ... n'hésitez pas à me mailez : bigbang00@caramail.com
voila ...
@+
bigbang
bigbang00@caramail.com
Source / Exemple :
' dans le zip
Conclusion :
Si vous voulez des commentaires, voulez faire des remarques, constatez des bugs ou toutes autres choses, n'hésitez surtout pas a me mailez à bigbang00@caramail.com
@+ et bonne prog...
bigbang
' on met la source dans txtSource ...
txtSource = Replace(source, Chr(10), vbNewLine)
Sub modif()
For t = 1 To Len(Text1.Text)
DoEvents
If Mid(Text1.Text, t, 1) = Chr(10) Then
Position = t
DoEvents
Text1.Text = Left(Text1.Text, Position - 1) & vbNewLine & Right(Text1.Text, Len(Text1.Text) - Position)
t = t + 1
DoEvents
End If
DoEvents
Next t
End Sub
c tout con et sa evite d'avoir des barres qui s'affichent enfin c mon cas sous win98
@+
source genial
skram
bigbang
bigbang00@caramail.com
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.