Chr$ finder

Soyez le premier à donner votre avis sur cette source.

Vue 4 988 fois - Téléchargée 204 fois

Description

Ce petit (très petit) soft sert à trouver les numéros de code de charactères que vous ne connaissez pas... Il suffit de rentrer le charactère dans une TextBox, de cliquer sur le Bouton 'Go' et le numéro est trouvé...

Source / Exemple :


Private Sub Command1_Click()
    Dim i As Integer
    For i = 1 To 255
        Label1 = "Chr$(" & i & ") = " & Chr$(i)
        If Chr$(i) = Text1 Then
            MsgBox Label1, vbInformation, "Charactère Trouvé"
            Exit Sub
        End If
    Next i
    MsgBox "Aucune Correspondance trouvée pour '" & Text1 & "'.", vbInformation, "Charactère Introuvable"
End Sub

Conclusion :


Je vous avait prévenu... C'est vraiment un tout petit soft...

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

psykocrash
Messages postés
244
Date d'inscription
vendredi 14 juin 2002
Statut
Membre
Dernière intervention
17 mars 2009
-
si t'a peur ke l'user mette + d'un caractère t'a ka faire soit une autre boucle pour chaque caractère soit Left(Text1.Text, 1)
Voila (juste pour l'info, si tu connais pas Asc(), vo mieu te ke Left(String, 1) prend le 1er caractère de String a partir de la gauche, et Right(String, 5) prend les 5 1ers caractères de String ms cette fois a partir de la droite)
@+
psykocrash
Messages postés
244
Date d'inscription
vendredi 14 juin 2002
Statut
Membre
Dernière intervention
17 mars 2009
-
si t'a peur ke l'user mett
madcow41
Messages postés
54
Date d'inscription
vendredi 12 avril 2002
Statut
Membre
Dernière intervention
11 mars 2008
-
Je ne pense pas en effet qu'il y ait des caractères introuvables... Mais bon, j'essaye de gérer tt les cas possibles dans mes applications donc il est normal que cette commande apparaisse. En fait elle est utile si le Text1 n'a pas la propriété MaxLengh=1 Si ce n'est pas comme ça l'utilisateur peut rentrer 2 caractères par mégarde... Donc une chaine de caractères introuvables...
M'enfin bon, voilà
madcow41
Messages postés
54
Date d'inscription
vendredi 12 avril 2002
Statut
Membre
Dernière intervention
11 mars 2008
-
Je ne pense pas en effet qu'il y ait des caractères introuvables... Mais bon, j'essaye de gérer tt les cas possibles dans mes applications donc il est normal que cette commande apparaisse. En fait elle est utile si le Text1 n'a pas la propriété MaxLengh=1 Si ce n'est pas comme ça l'utilisateur peut rentrer 2 caractères par mégarde... Donc une chaine de caractères introuvables...
M'enfin bon, voilà
erreurs404
Messages postés
117
Date d'inscription
lundi 23 octobre 2000
Statut
Membre
Dernière intervention
12 août 2009
-
BobBigBoss > introuvables ??? tu veux pas plutôt dire non imprimables ?

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.