ASCII
wallon14
Messages postés
56
Date d'inscription
vendredi 17 octobre 2003
Statut
Membre
Dernière intervention
3 juillet 2005
-
18 juin 2004 à 16:36
wallon14 Messages postés 56 Date d'inscription vendredi 17 octobre 2003 Statut Membre Dernière intervention 3 juillet 2005 - 18 juin 2004 à 16:36
wallon14 Messages postés 56 Date d'inscription vendredi 17 octobre 2003 Statut Membre Dernière intervention 3 juillet 2005 - 18 juin 2004 à 16:36
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/23643-ascii
https://codes-sources.commentcamarche.net/source/23643-ascii
18 juin 2004 à 16:36
Toujours utile...
Pas contre je metterai pour le Comand1_click
Private Sub Command1_Click()
Text1.Text = ""
For x = 0 To 255
If Text1.Text = "" Then
Text1.Text Text1.Text & Val(x) & " " & Chr(x)
Else
Text1.Text Text1.Text & vbCrLf & Val(x) & " " & Chr(x)
End If
Next x
End Sub
J'ai mit un Text1.Text = "" ca permet de ne pas faire se succéder les lignes générées dans le cas ou le bouton afficher serait cliquer une seconde fois (voir plus...)