problème de textbox...Résolu

Question

Voilà quel est mon problème: 
j'ai une série de textBox donc j'en ai fait un groupe de contrôle pour les afficher par boucle....

bref je veux dans certains textbox des nombres et pas dans d'autres...
sur le site j'ai trouvé le code suivant :

Private Sub Text2_KeyPress(KeyAscii As Integer)If InStr("0123456789", Chr(KeyAscii)) 0 Then KeyAscii 0
End Sub

qui fonctionne très bien... mais en essayant de l'adapter j'arrive à ça... en théorie...

Private Sub Text2(1)_KeyPress(KeyAscii As Integer)If InStr("0123456789", Chr(KeyAscii)) 0 Then KeyAscii 0
End Sub

par exemple...

Et ben ça !!!! ça pose un problème...
donc j'aimerais savoir comment faire en pratique et si on peut l'inclure dans une boucle....

En vous remerciant d'avance.

JoePatent · Accepted Answer

Private Sub Text2(1)_KeyPress(KeyAscii As Integer)If InStr("0123456789", Chr(KeyAscii)) 0 Then KeyAscii 0
End Sub

Quand tu es dans un groupe, l'entete devrait plutot se lire comme suit

Private Sub Text2_KeyPress(KeyAscii As Integer, index as integer)

de sorte que si tu ne te préocupes pas de l'index, le code a l'Interieur ne change pas.  Et tout les text box seront affecté egalement.

Toutefois, si tu veut que certain textebox ait du texte et d'autre seulement des chiffres, voici un exemple de code a mettre dans l'evenement.
Private Sub Text2_KeyPress(KeyAscii As Integer, index as integer)
case select Index
case 1,3,5
  if estChiffre(keyascii) then keyascii = 0 end if
end select
end sub

Joe Patent

cs_DARKSIDIOUS · Answer

Utilise plutôt la fonction iSNumeric pour savoir s'il s'agit d'un chiffre ou pas !
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

Problème de textbox...

2 réponses

Discussions similaires