[VB.NET] Textbox -> seulement des chiffres sans API?

Version imprimable

22/04/2005, 16h14
Pleymo

[VB.NET] Textbox -> seulement des chiffres sans API?

Salut

Je veux savoir s'il es possible de faire un fonction qui accepte seulement les chiffres. J'ai vu plusieurs exemples sur le net mais ils utilisent tous les APIs

Est-il possible de faire une telle fonction sans utiliser les APIs??

Si oui, j'aimerais que vous me donniez des hints! pour le faire...

Merci beaucoup!
22/04/2005, 16h19
ld9474

tu peux tester sur un des evenements keydown, keyup ou keypress la touche ou le caractère qui a été saisi et annuler cette saisie si cela ne te convient pas.
22/04/2005, 16h47
Pleymo

salut

merci pour les infos...mais tu vien de me perdre...!

pourrais tu me donner un peu de code avec ca car la je ne sais pas trop ou commencer...je n'ai jamais utiliser ces evenements...

merci !
22/04/2005, 16h59
del-dongo
tu peux intercepter l'evnement onkeypress de ton textbox
et tester si le caractère est de type numeric
Code:

1 2 3 4 5 6 private void bsiTextBox1_KeyPress(object sender, System.Windows.Forms.KeyPressEventArgs e) { if( !Char.IsDigit(e.KeyChar) ) e.Handled = true; }
evidemment il y a plein d'autres tests à effectuer... et l'idéal serait de te créer ton propre composant de type numericTextbox qui hérite de textbox et qui effectue tous ces traitements...

comme je vois ca lair beaucoup plus compliqué sans les API héhé

si par exemple je decide de prendre les API et que je veux afficher un message derreur lorsque ce nest pas des lettres...ou il fau que jeplace cette ligne :

Code:

lberror.Text = "Des chiffres!"

avec ce code ci des API

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
    Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Const ES_NUMBER As Long = &H2000&
    Private Const GWL_STYLE As Long = -16
 
Private Sub MakeNumericOnly(ByVal Obj As Object)
        '# Cette variable contiendra le Style de notre Controle :
        '# il s'agit d'une combinaison de differentes valeurs...
        Dim Style As Long
 
        '# On récupère le style actuel
        Style = GetWindowLong(Obj.hwnd, GWL_STYLE)
 
        '# On ajoute le style ES_NUMBER...
        Style = Style Or ES_NUMBER
 
        '# et on replace le tout dans le Controle
        SetWindowLong(Obj.hwnd, GWL_STYLE, Style)
    End Sub
 
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MakeNumericOnly(txtAjout.text)
          End Sub

merci!

22/04/2005, 18h57
Pleymo

bonjour...

existe t il une facon avec une variable qui compare toute les lettres dispo dans lalphabet..

je pourrai genre faire ceci :

Dim variable
variable = CultureInfo.CurrentCulture.CompareInfo.IndexOf(textbox.text, "variable pour les lettres" , CompareOptions.IgnoreCase)

de cette facon je pourrai donc savoir si mon textbox contient des lettre ou pas... serais p-e plus simple comme cela...

qu'en pensez vous?
22/04/2005, 19h34
Thomas Lebrun

La solution de del-dongo me plait assez :)

Sinon, à la place de Char.IsDigit, tu peut utiliser la fonction IsNumeric d'Erebuss:

http://www.developpez.net/forums/vie...835281#1835281 :wink:
23/04/2005, 00h31
Dinytro

oui c'est clair, la solution del-dongo est la plus simple je pense ... pas besoin d'API pour ce genre de traitement...
25/04/2005, 09h32
ld9474

Question bête qui m'est venue ce week end:
Si l'utilisateur reste appuyé sur une touche suffisemment longtemps pour que le mode repeat se mette en route quel évènement peut gérer ca?
Le test ne serait il pas plus efficace sur le keyup?
25/04/2005, 09h46
Louis-Guillaume Morand

Citation:

Envoyé par ld9474

Question bête qui m'est venue ce week end:
Si l'utilisateur reste appuyé sur une touche suffisemment longtemps pour que le mode repeat se mette en route quel évènement peut gérer ca?
Le test ne serait il pas plus efficace sur le keyup?

d'où l'interêt parfois de vérifier à la fin, avec par exemple une expression regulière et un errorprovider qui affiche un petit point d'exclamation a coté du controle ainsi qu'un message (ce que veut faire playmo justement)

et c'est sans API :)
25/04/2005, 14h00
Pleymo

merci bien a tous... jai resolu tout mes problemes grace a vous! héhé

vous etes vraiment indispensable!! hahahaha

bonne journée a tous!