Visual Basic : piti blem

Recherche :

Dernière réponse
Sujet : Visual Basic : piti blem
la_trique	pas de lettres possibles, pas de chiffres, pas de back space (c'est chian) mais de suppr marche. si saisie d'un caractère non autorisé : BEEP !!!!!!! si la zone de saisie est txtSaisie Private Sub txtSaisie_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 Beep End If End Sub La_trique.com

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

la_trique

pas de lettres possibles, pas de chiffres, pas de back space (c'est chian) mais de suppr marche. si saisie d'un caractère non autorisé : BEEP !!!!!!!

si la zone de saisie est txtSaisie

Private Sub txtSaisie_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
Beep
End If
End Sub

La_trique.com

mandrin0

CARBON_14 a écrit a écrit :

Y a pas un évenement LostFocus sur la zone de saisie ?
Si oui, on passe là quand un autre contrôle "prend la main". On peut alors vider le contenu du champ.

pas mieux :sol:

Carbon_14

Y a pas un évenement LostFocus sur la zone de saisie ?
Si oui, on passe là quand un autre contrôle "prend la main". On peut alors vider le contenu du champ.
Sinon, faut voir la liste des évenements de la case QUE L'ON QUITTE par TAB (sinon difficile de savoir d'où l'on vient), ça doit exister.

la fonction IsNumeric marche nikel, merci les gars
maintnenat gun autre blem :est il possible de supprimer le contenu d'une case à remplir lorsque l'utilisateur appuie sur TAB pour passer de case en case on va dire.

Carbon_14

Si on a un champ de nom Text1 (dans mon vieux source, je sais plus si j'avais pas un "groupe" de Text1() d'où Index)

Sub Text1_KeyPress (Index As Integer, KeyAscii As Integer)
// on passe ici avant d'afficher le caractère

If KeyAscii < 48 or KeyAscii > 57 Then ' pas numérique
ou (si ASC() existe, j'ai un trou :) )
If KeyAscii < asc("0" ) or KeyAscii > asc("9" ) Then ' pas numérique
Beep ' ou analogue, je sais plus trop
KeyAscii = 0 ' je sais plus ce qu'il faut faire pour empêcher le caractère de passer, faudrait que je teste ce soir.
End If
End Sub

je vaiqs voir ca Guru

Guru	Le contrôle MaskEdit n'existe pas déjà en VB3 ? Parce qu'il permet de créer un champ input sur lequel est appliqué un masque de saisie limitant ce qui peut être saisi par l'utilisateur. [edtdd]--Message édité par Guru--[/edtdd]

Merci les gars, je vais voir cela
je vous tiens au courant
:hello:

Pitounet

if isnumeric(variable) then

end if

elle s'utilise comment cette fonction?comme ca :
If Variable IsNumeric Then
.....
End If
????

mandrin0

fonction IsNumeric

tu veux dire qu'il faut faire un petit prog pour analyser la chaine de caractère saisie afin de voir si elle ne contient pas de lettre?c'est pas ma lcomme idée, faut ke je vois ca.
Mais sinon,y a pas moyen de faire entendre un bip lorsque l'utlisateur appui sur une touche qui ne soit pas un chiffre?ca éviterais d'analyser la chaine saisie mais je sais pas si ce serais plu long comme prog ! :sarcastic:

Carbon_14

VB3, c'est pas mal ! Je suis resté à ce numéro là avant de passer au C (16 bits) :D .

Il me semble qu'il y a un évenement KeyPress associé à la zone de saisie (quelqu'elle soit dès que c'est du texte).
On récupère le code ASCII du caractère tapé au clavier avant qu'il soit affiché. On peut alors le transformer, l'absorber pour ne pas apparaître, ou le laisser passer tel quel.

Je ne sais plus si ASC() existe en VB3 (ou analogue) pour vérifier. Les chiffres vont de 0 à 9 (ASCII 30Hexa à 39Hexa soit 48Décimal à 57D sauf erreur).
Par contre, je ne sais plus ce qu'il faut renvoyer si on veut empêcher le caractère d'apparaître. Essayer 0 ? Il me semble qu'il y a un second argument dans le passage de paramètres. Faut tatonner.

juju_le_barbare

slt,

Tu créé ta case texte, tu dbl clik dessus, tu arrives dans la zone de code et tu dois voir a peu près 'texte1_clik...'
En dessous tu tapes :

euh ... j'me rappelle plus ... ya une fonction qui permet de savoir si une touche tapée contient du texte ou des chiffres ... zut celui qui la connait l'indique ...

juju --==[ zé un trou de mémoire ...........

[#001ce2]voila, je débute depuis hier le Visual Basic (version 3 sous win 3.1, c vraiment pour commencer):j'aimerai savoir s'i lest possible d'interdire à l'utilisateur de taper des lettres dans une case réservé pour entrer des chiffres.[#001ce2]

merci