URGENT!!! Saisie de nombres dans une listbox ??
akhiro
Messages postés
15
Date d'inscription
lundi 11 février 2002
Statut
Membre
Dernière intervention
22 juin 2002
-
21 juin 2002 à 22:31
akhiro Messages postés 15 Date d'inscription lundi 11 février 2002 Statut Membre Dernière intervention 22 juin 2002 - 22 juin 2002 à 18:54
akhiro Messages postés 15 Date d'inscription lundi 11 février 2002 Statut Membre Dernière intervention 22 juin 2002 - 22 juin 2002 à 18:54
A voir également:
- URGENT!!! Saisie de nombres dans une listbox ??
- Erreur de saisie - Conseils pratiques -C / C++ / C++.NET
- Formulaire de saisie excel ✓ - Forum Visual Basic 6
- Nombres en árabe ✓ - Forum Delphi / Pascal
- Vba listbox additem ✓ - Forum Visual Basic 6
- Nombre de jours dans une année ✓ - Forum VB.NET
3 réponses
fredlynx
Messages postés
662
Date d'inscription
mercredi 16 janvier 2002
Statut
Modérateur
Dernière intervention
16 octobre 2010
3
21 juin 2002 à 23:05
21 juin 2002 à 23:05
Tu peux par les API dire à ta textbox de n'accepter que les chiffres..
*********** Déclarations
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Public Const ES_NUMBER = &H2000&
Public Const GWL_STYLE = (-16)
*********** Fonction
SetWindowLong Text1.hWnd, GWL_STYLE, GetWindowLong(Text1.hWnd, GWL_STYLE) Or ES_NUMBER
<center>http://www.lynx-asp.fr.st
WebMaster</center>
*********** Déclarations
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Public Const ES_NUMBER = &H2000&
Public Const GWL_STYLE = (-16)
*********** Fonction
SetWindowLong Text1.hWnd, GWL_STYLE, GetWindowLong(Text1.hWnd, GWL_STYLE) Or ES_NUMBER
<center>http://www.lynx-asp.fr.st
WebMaster</center>
akhiro
Messages postés
15
Date d'inscription
lundi 11 février 2002
Statut
Membre
Dernière intervention
22 juin 2002
22 juin 2002 à 07:04
22 juin 2002 à 07:04
Bonjour,
Et bien je vais tester cette solution.
Une chose est sur c'est que quand je vois les lignes de code, je me dit que j'en ai encore à apprendre, ça c'est sur... J'aurais jamais trouve rça tout seul ;-)
Un grand merci.
Et bien je vais tester cette solution.
Une chose est sur c'est que quand je vois les lignes de code, je me dit que j'en ai encore à apprendre, ça c'est sur... J'aurais jamais trouve rça tout seul ;-)
Un grand merci.
akhiro
Messages postés
15
Date d'inscription
lundi 11 février 2002
Statut
Membre
Dernière intervention
22 juin 2002
22 juin 2002 à 18:54
22 juin 2002 à 18:54
Un collègue de formation m'a donné une autre solution pour laquelle j'ai opté :
ici superficie_bat représente évidemment le textbox dans lequel l'utilisateur devra saisir la superficie du batiment.... (donc que des chiffres) ;-)
Private Sub superficie_bat_KeyPress(KeyAscii As Integer)
If InStr(1, "0123456789", Chr$(KeyAscii)) = 0 And KeyAscii <> 9 And KeyAscii <> 8 Then ' 9 est le code pour 'Del' et 8 pour 'Backspace'
KeyAscii = 0 'n'affiche pas le caractère
End If
End Sub
ici superficie_bat représente évidemment le textbox dans lequel l'utilisateur devra saisir la superficie du batiment.... (donc que des chiffres) ;-)
Private Sub superficie_bat_KeyPress(KeyAscii As Integer)
If InStr(1, "0123456789", Chr$(KeyAscii)) = 0 And KeyAscii <> 9 And KeyAscii <> 8 Then ' 9 est le code pour 'Del' et 8 pour 'Backspace'
KeyAscii = 0 'n'affiche pas le caractère
End If
End Sub