Seulement des chiffres dans le champ Text
pioug43
Messages postés
32
Date d'inscription
lundi 23 décembre 2002
Statut
Membre
Dernière intervention
3 novembre 2006
-
24 mars 2003 à 09:24
albator7k Messages postés 9 Date d'inscription lundi 24 mars 2003 Statut Membre Dernière intervention 27 mars 2003 - 24 mars 2003 à 10:02
albator7k Messages postés 9 Date d'inscription lundi 24 mars 2003 Statut Membre Dernière intervention 27 mars 2003 - 24 mars 2003 à 10:02
A voir également:
- Seulement des chiffres dans le champ Text
- Sql decimal 2 chiffres après virgule - Forum SQL
- Text box ✓ - Forum Visual Basic
- #1075 - un seul champ automatique est permis et il doit être indexé - Forum Delphi / Pascal
- Sql server concaténer plusieurs lignes dans un seul champ - Forum SQL
- Ajouter un champ dans une table sql ✓ - Forum ASP / ASP.NET
2 réponses
fredlynx
Messages postés
662
Date d'inscription
mercredi 16 janvier 2002
Statut
Modérateur
Dernière intervention
16 octobre 2010
3
24 mars 2003 à 09:32
24 mars 2003 à 09:32
Version code :
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub 'Backspace
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
Version API :
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 Const ES_NUMBER = &H2000&
Private Const GWL_STYLE = (-16)
SetWindowLong Text1.hWnd, GWL_STYLE, GetWindowLong(Text1.hWnd, GWL_STYLE) Or ES_NUMBER
Text1.Refresh
<center>http://www.fredlynx.com
</center>
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub 'Backspace
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
Version API :
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 Const ES_NUMBER = &H2000&
Private Const GWL_STYLE = (-16)
SetWindowLong Text1.hWnd, GWL_STYLE, GetWindowLong(Text1.hWnd, GWL_STYLE) Or ES_NUMBER
Text1.Refresh
<center>http://www.fredlynx.com
</center>
albator7k
Messages postés
9
Date d'inscription
lundi 24 mars 2003
Statut
Membre
Dernière intervention
27 mars 2003
24 mars 2003 à 10:02
24 mars 2003 à 10:02
mets ça
Private Sub Combo4_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0
End Sub
Private Sub Combo4_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0
End Sub
