Help pour trouver un bugRésolu

Question

je dispose d'une ihm avec beaucoup de text box, et je dois empecher dans certaines que des lettres y soient rentr&#233;es. je ne evux autoriser que des nombres &#224; virgule ou non, positifs ou n&#233;gatifs.


j'ai &#233;crit ceci, cela marche tr&#232;s bien, sauf qu'on ne peut pas rentrer des signe - !


si on &#233;crit le meme code dans l'&#233;v&#232;nement keypress d'une textbox, &#231;a marche!


pouvez vous m'aider?


Public Sub Mask(ByRef frmFeuille As Object, ByRef KeyAscii As Integer)


'on active la routine de traitement d'erreur
On Error Resume Next
'l'erreur etant minime, on continue l'&#233;x&#233;cution normalement


'd&#233;claration des variables priv&#233;es
Dim oControl As Object 'stocke le contr&#244;le actif


    'on r&#233;cup&#232;re le contr&#244;le actif
    Set oControl = frmFeuille.ActiveControl


        Select Case KeyAscii
        Case 8:
        Case 45: If InStr(oControl.Text, "-") > 0 Then KeyAscii = 0
                      If oControl.Text.SelStart <> 0 Then KeyAscii = 0
        Case 46: If InStr(oControl.Text, ".") > 0 Then KeyAscii = 0
        Case 48 To 57:
        Case Else: KeyAscii = 0: Beep
        End Select
    
End Sub

puis 
Private Sub txt_dim_mire_camD_KeyPress(KeyAscii As Integer)


call mask(me, keyascii)  
End Sub

aieeeuuuuu · Accepted Answer

salut, le probléme vient de la ligne If oControl.text.SelStart <> 0 Then KeyAscii = 0 en fait la methode selStart ne s'applique pas sur le texte de la texte box mais sur la textbox elle meme remplace donc la ligne par If oControl.SelStart <> 0 Then KeyAscii = 0 et ca devrait fonctionner je pense (si cela marche directement sur

aieeeuuuuu · Answer

je disais donc :)

si ca marche dans l'evenement keypress c'est surement du a une erreur de copier coller.

j'espere que ca repond a ta question

CeNedra83 · Answer

merci mille fois &#231;a marche, trop cool!!!!!!!
++
CeNedra

Help pour trouver un bug

3 réponses

Discussions similaires