Saisie numérique sans sub en 1 appel

Commenter

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

S'inscrire maintenant

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.

Du même auteur (picwin)