Saisie numérique sans sub en 1 appel

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 870 fois - Téléchargée 36 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

Commenter la réponse de cs_Crazyht

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.