TextBoxRésolu

Question

Bonjour,
Je d&#233;bute encore en VB6, et j'ai un petit souci assez simple a r&#233;gler je pense :
Je voudrais enp&#234;cher que l'utilisateur entre des lettres ou autre dans une TextBox. Je veux que seuls les chiffres et le point soient accepter. J'ai fait quelques essais sur l'&#233;v&#232;nement KeyPress, sans succ&#232;s 

Merci d'avance !



-=[MaX_62]=-

jpleroisse · Accepted Answer

Bonjour, je pense que ce code r&#233;pond &#224; ton attente

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If Not IsNumeric(CStr((Text1.Text))) Then
MsgBox "Vous ne pouvez entrer que des valeurs num&#233;riques", vbInformation + vbCritical
Text1.Text = ""
Text1.SetFocus
End If
End Sub

jpleroisse

medaz · Answer

bonjour 



Private Sub Text1_KeyPress(KeyAscii As Integer)

  '46  c'est le keyascii du '.'

  '57  c'est le keyascii du '9'

  'tout ce qui n'aprtient pas a cet interval est igniorer

  If KeyAscii < 46 Or KeyAscii > 57 Then

    KeyAscii = 0

    Exit Sub

  End If

  

End Sub



je pense que ce code va t'aidra un peu

a+

pascallac · Answer

bonjour
apres avoir recus de l'aide je me fait un plaisir de vous aidez 
voici le code que j'ais utilis&#233; pour mon programme
il remplace le point par la virgule 

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 46 Then 'si c'est un point (.) on le change en virgule (,)
    KeyAscii = 44
End If
If InStr("0123456789," & Chr(8), Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub
autorise les touches numerique et virgule
la touche return est active aussi permet une correction 

cordialement 
pascal

MaX_62 · Answer

Merci de vos r&#233;ponses rapides 



-=[MaX_62]=-

Gobillot · Answer

Solution directe:

Const GWL_STYLE = (-16)
Const ES_NUMBER = &H2000&

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 Sub Form_Load()
   Dim Style As Long
   Style = GetWindowLong(Text1.hwnd, GWL_STYLE)
   SetWindowLong Text1.hwnd, GWL_STYLE, Style Or ES_NUMBER
End Sub

Daniel

pascallac · Answer

gobillot
certainement plus direct 

mais pour moi plus difficile &#224; comprendre

cordialement 
pascal

MaX_62 · Answer

Idem, pour moi, j'ai pas compris grand chose mais &#231;a fonctionne bien &#233;galement. Merci !



-=[MaX_62]=-

medaz · Answer

bonjour tout le monde ca fait plaisir d'avoir plusieurs solution.



-- jpleroisse je vois que tu ecrase tout le contenu de la zone de texte si c'est numeric

ds ce cas a chaque fois que l'untilisateur ce trompe il faut qu'il retape tout depuis le debut




Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If Not IsNumeric(CStr((Text1.Text))) Then
MsgBox "Vous ne pouvez entrer que des valeurs num&#233;riques", vbInformation + vbCritical
Text1.Text = ""
Text1.SetFocus
End If
End Sub





-- pascal  c'est bien comme idee ca va me servir moi meme



merci tout le monde

TextBox

8 réponses

Discussions similaires