Saisie numérique sans sub en 1 appel

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 971 fois - Téléchargée 42 fois

Contenu du snippet

oblige la saisie numeric sans être obliger de tester la saisie

Source / Exemple :


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

Const GWL_STYLE = (-16)
' Restricts input to the edit control to digits only
Const ES_NUMBER = &H2000

' et dans le form load
  'Restrict Min, Max and Value fields to numbers only
  SetWindowLong txtValue.hwnd, GWL_STYLE, GetWindowLong(txtValue.hwnd, GWL_STYLE) Or ES_NUMBER

Conclusion :


cpasdemoi C trouver dans un source de CCRP sur http://www.mvps.org/ccrp/
thank Crazyht

A voir également

Ajouter un commentaire

Commentaires

cs_Crazyht
Messages postés
1523
Date d'inscription
mardi 18 décembre 2001
Statut
Modérateur
Dernière intervention
21 août 2010
4 -
Mouaip t'aurai pu au moins traduire ce que tu as Pomper sur http://www.vb2themax.com/ et dire que CT pas de toi :(
Alan71
Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004
-
ch'comprend pas tout la...

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.