Détection d'une lettre parmi une série de chiffreRésolu

Question

J'ai des textbox dans lesqelles on ne peut rentrer que des chiffres.
il sont compar&#233;s &#224; des constantes avec la fonction val.
mais je voudrais d&#233;tecter si l'utilisateur rentre un truc du style 569yu5 ou 5pifh, bref s'il y a une lettre pr&#233;sente.
Comment faire?
Merci
++
CeNedra

Gobillot · Accepted Answer

permettra de ne rentrer que des chiffres









Option Explicit



Const GWL_STYLE = (-16)

Const ES_NUMBER = &H2000&



Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias
"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal
dwNewLong As Long) As Long



Private Sub Form_Load()

   Dim Style As Long

   

   Style = GetWindowLong(Text1.hwnd, GWL_STYLE)

   SetWindowLong Text1.hwnd, GWL_STYLE, Style Or ES_NUMBER

   

End Sub


Daniel

CeNedra83 · Answer

euh, excuse moi mais je ne vois pas trop comment utiliser &#231;a...je l'ai recopi&#233;, mais je peux toujours entrer des lettres dans ma texte box...

Gobillot · Answer

normalement &#231;a marche.

on ne doit plus pouvoir rentrer que des chiffres et rien d'autre

est ce que tu as mis le code au bon endroit ?

Daniel

CeNedra83 · Answer

si c'est bon, je te remercie bien

CeNedra83 · Answer

enfin, oui, mais le pb, c'est que je ne peux plus rentrer de"-", m&#234;me en premier.est il possible de n'autoriser que la touche moins sur la premi&#232;re cas? je dois pouvoir rentrer des nombres n&#233;gatifs ou &#224; virgule!

Gobillot · Answer

non pas avec cette m&#233;thode.

il faut faire autre chose





Private Sub Text1_KeyPress(KeyAscii As Integer)



    Select Case KeyAscii

        Case 8:

        Case 45: If InStr(Text1, "-") > 0 Then KeyAscii = 0

     
               
If Text1.SelStart <> 0 Then KeyAscii = 0

        Case 46: If InStr(Text1, ".") > 0 Then KeyAscii = 0

        Case 48 To 57:

        Case Else: KeyAscii = 0: Beep

        End Select



End Sub


Daniel

CeNedra83 · Answer

merci mille fois!

cs_franckydeluka · Answer

>>>Daniel
je trouve que ce que tu as fait avec tes APIs est super mais j'arrive pas &#224; saisir pleinement leur mode de fonctionnement.. &#224; quoi correspondent ces valeurs ?

 &H2000& ?
-16 ?

et surtout qu'est-ce que te renvoi ces APIs du coup ?



Deluka.

Gobillot · Answer

c'est seulement des constantes.

chaque fen&#234;tre est li&#233; a un attribut sur 32 bits qui refl&#232;te ses propri&#233;t&#233;s.

il y a le style normal et le style &#233;tendu.





tient pourquoi celui ci n'y est pas ?

Const WS-NUMBER = &H2000

peut &#234;tre parce que c'est pas pour les fen&#234;tres



 Const GWL_STYLE = -16

 Const WS_OVERLAPPED = &H0&            'titleBAr et X

 Const WS_TABSTOP =
&H10000           
'la fenetre est r&#233;active au tab

 Const WS_MAXIMIZEBOX = &H10000        'symbole 'Maximiser'

 Const WS_GROUP =
&H20000             
'rassemblage de toutes les fenetres et boutons de commande dans un
groupe

 Const WS_MINIMIZEBOX = &H20000        'symbole 'minimiser'

 Const WS_SIZEBOX =
&H40000           
'la fenetre peut etre redimenssionner

 Const WS_THICKFRAME = &H40000

 Const WS_SYSMENU =
&H80000           
'la fenetre a une barre de titre

 Const WS_HSCROLL =
&H100000          
'la fenetre a des scrollbars horizontaux

 Const WS_VSCROLL =
&H200000          
'la fenetre a un scrollbar vertical

 Const WS_DLGFRAME =
&H400000         
'titleBar et c une boite de dialogue

 Const WS_BORDER =
&H800000           
'la fenetre a des bordures

 Const WS_CAPTION = &HC00000           'la fenetre a un titre

 Const WS_MAXIMIZE = &H1000000         'la fenetre est maximis&#233;e

 Const WS_CLIPCHILDREN = &H2000000     'les fenetres enfants ne regourpent pas la fenetre m&#232;re

 Const WS_CLIPSIBLINGS = &H4000000     'les fenetres enfants ne regourpent pas la fenetre m&#232;re

 Const WS_DISABLED = &H8000000         'la fenetre est d&#233;sactiv&#233;e

 Const WS_OVERLAPPEDWINDOW = &HCF0000  'la fenetre a des clipcontrols (-OX)

 Const WS_VISIBLE = &H10000000         'la fenetre est visible

 Const WS_MINIMIZE = &H20000000        'la fenetre est r&#233;duite

 Const WS_CHILD = &H40000000           'la fenetre est une enfant

 Const WS_POPUP = &H80000000           'mode popup

 Const WS_POPUPWINDOW = &H80880000     'mode popup (toolbox)

    

 Const GWL_EXSTYLE = -20

 Const WS_EX_LEFT =
&H0&              
'alignement a gauche de la fenetre

 Const WS_EX_LTRREADING =
&H0&         'la
lecture du texte se fait de Gauche a droite

 Const WS_EX_RIGHTSCROLLBAR = &H0&     'des scrollbars a droite

 Const WS_EX_DLGMODALFRAME =
&H1&      'la fenetre a une double
bordure (permet une toolbas)

 Const WS_EX_DRAGDETECT = &H2&

 Const WS_EX_NOPARENTNOTIFY = &H4&    
'n'envoie pas de message &#224; sa parente quand elle est cr&#233;&#233;e ou d&#233;truite

 Const WS_EX_TOPMOST =
&H8&           
'la fenetre est toujorus visible

 Const WS_EX_ACCEPTFILES = &H10&       'drag and Drop possible

 Const WS_EX_TRANSPARENT = &H20&       'la fenetre est transparente

 Const WS_EX_MDICHILD =
&H40&          'la
fenetre est une MDI child window

 Const WS_EX_TOOLWINDOW =
&H80&        'c'est une
toolwindow (toolbar flottante,& une barre de titre plus petite,
n'appara&#238;t pas dans la Task bar)

 Const WS_EX_WINDOWEDGE = &H100&       'bords de la fenetre sizable

 Const WS_EX_PALETTEWINDOW = &H188&

 Const WS_EX_CLIENTEDGE = &H200        'la fenetre &#224; une bordure avec un look 3D

 Const WS_EX_OVERLAPPEDWINDOW = &H300&

 Const WS_EX_CONTEXTHELP = &H400&      '? dans la titleBar

 Const WS_EX_RIGHT =
&H1000&          
'alignement a droite de la fenetre

 Const WS_EX_RTLREADING = &H2000&      'lecture de droite a gauche du texte possible

 Const WS_EX_LEFTSCROLLBAR = &H4000&   'la scrollbar a gauche

 Const WS_EX_CONTROLPARENT = &H10000   'permet de naviguer avec la touche Tab

 Const WS_EX_STATICEDGE = &H20000      'la fenetre &#224; une bordure style 3D

 Const WS_EX_APPWINDOW = &H40000

 Const WS_EX_LAYERED = &H80000

 Const WS_EX_NOACTIVATE = &H8000000    '(Win 2000) La fenetre ne peut etre activ&#233;e


Daniel

cs_franckydeluka · Answer

Ok c'est cool tout &#231;a 
mais j'essayais de comprendre comment &#231;a marche parce que faire un copier/coller de ta source &#231;a peut aider c'est sympa mais savoir pourquoi tu met &#231;a ? comment marche ces APIs ? genre &#224; quoi correspond ce troisi&#232;me param&#232;tre ?:

SetWindowLong Text1.hwnd, GWL_STYLE, Style Or ES_NUMBER

je suis all&#233; sur le site de microsoft et ils me donnent la m&#234;me liste mais pas le fonctionnement de ces APIs

Deluka.

Gobillot · Answer

on va chercher l'attribut correspondant au contr&#244;le avec Get,

ceci afin d'ajouter ou de supprimer des propri&#233;t&#233;s



Style = GetWindowLong(Text1.hwnd, GWL_STYLE)



pour ajouter c'est OR, on peut en mettre autant qu'on veut &#224; la suite, attention il y a des incompatibilit&#233;s de propri&#233;t&#233;s.



SetWindowLong Text1.hwnd, GWL_STYLE, Style Or ES_NUMBER



pour supprimer c'est plus difficile, en fait faut faire un masque pour conserver tous les autres



SetWindowLong Text1.hwnd, GWL_STYLE, style And (Not ES_number) 




Daniel

cs_franckydeluka · Answer

>>>Daniel : ok c'est cool merci bien !! et bonne prog !



Deluka.

Détection d'une lettre parmi une série de chiffre

12 réponses

Discussions similaires