Que des chiffres dans une textbox

Question

je r&#233;alise une IHM en VB6 avec beaucoup de textbox.
je voudrais r&#233;aliser une fonction qui avec une textbox en param&#232;tre, ne permette de rentrer que des nombres n&#233;gatifs, &#224; virgule ou non, sans aucune lettres. et ne pas permettre bien sur qu'il y ait plusieurs points ou signe -...
comment faire? je me gal&#232;re!

Zlub · Answer

Salut,

Sur l'&#233;venement press, tu peux controler que le KeyAscii est autoris&#233;



par exemple pour autoriser que les chiffres :



Private Sub txtbox_KeyPress(KeyAscii As Integer)

  If KeyAscii < vbKey0 Or KeyAscii > vbKey9 Then KeyAscii = 0

End Sub

++

Zlub

cs_DARKSIDIOUS · Answer

Eheh, il y a encore mieux : au lieu de passer le textbox en paramètre, laisse ta fonction définir quel textbox à le focus pour appliquer le filtre. C'est ce que j'ai fait pour un gros projet, et croit moi, au bout de 3 feuilles, on en a vite marre de rentrer en paramètre le nom des objets à filtrer ! Voici un exemple de filtre : Mets ce code dans un module : Public Sub MaskNegatif(ByRef frmFeuille As Object, ByRef sKey As Integer) '====================================================================== 'Sub : MaskNegatif 'Date : 20/11/2004 'Auteur : DarK Sidious 'But : Permet d'appliquer un masque pour changer la couleur du texte si le nombre est négatif '====================================================================== 'on active la routine de traitement d'erreur On Error Resume Next 'l'erreur etant minime, on continue l'éxécution normalement 'déclaration des variables privées Dim oControl As Object 'stocke le contrôle actif 'on permet d'effacer le dernier caractère If sKey = 8 Then Exit Sub 'on récupère le contrôle actif Set oControl = frmFeuille.ActiveControl 'on évite que l'utilisateur rentre du texte If Not IsNumeric(oControl.Text & Chr(sKey)) And Left(oControl.Text & Chr(sKey), 1) <> "+" And Left(oControl.Text & Chr(sKey), 1) <> "-" Then Let sKey = 0 End If If Val(oControl.Text & Chr(sKey)) < 0 Then Let oControl.ForeColor = vbRed Else Let oControl.ForeColor = vbWindowText End If End Sub Et ceci dans les événements KeyPress de tes textboxes : Private Sub Text1_KeyPress(..) call MaskNegatif(Me, KeyAscii) End Sub Comme cà, tu peux rapidement faire du copier coller de ce code pour l'appliquer à beaucoup de textbox sans devoir changer le nom des paramètres à chaque fois ! DarK Sidious Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

Zlub · Answer

Salut,

euh vi, mais c'est la m&#234;me chose que se que je lui propose sauf que c'est une focntion qui determine le mask

Vu qu'il faut quand m&#234;me definir les evenement keypress



Public Sub maskNumber(KeyAscii as Integer)

   If KeyAscii < vbKey0 Or KeyAscii > vbKey9 Then KeyAscii = 0

End Sub

du coups encore plus simple



 Private Sub Text1_KeyPress(..)

 

     call maskNumber(KeyAscii)

 

 End Sub

++

Zlub

CeNedra83 · Answer

Merci bien, j'essaye tout &#231;a...puis je combiner plusieurs masques dans la meme focntion, par ex, nombres n&#233;gatifs, entiers et &#224; virgules?

cs_DARKSIDIOUS · Answer

D&#233;sol&#233; ZLub, le temps que je poste, tu avais d&#233;j&#224; r&#233;pondu ;)



Oui en effet, ma fonction revient au m&#234;me que ce que tu propose.



Sinon, CeNedra83, il est tout &#224; fait possible d'appliquer plusieurs
masques &#224; un textbox, il faut juste bien d&#233;finir l'ordre (d'abord
n&#233;gatif, ensuite virgule, et enfin, entiers) pour obtenir des r&#233;sultats
coh&#233;rents.



Dans le m&#234;me ordre d'id&#233;e :

Masque n&#233;gatif

Masque virgule

Masque Entier

Masque Num&#233;rique

Masque Date

Masque texte

Masque alphanum&#233;rique



tout ces masque peuvent &#233;galement mis en place plus facilement en
utilisant le contr&#244;le MaskEdit de Microsoft, mais il faut alors
conna&#238;tre les formats, ce qui n'est pas chose ais&#233;e !

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

cs_hassen · Answer

je te conseil de faire non pas une fonction mais un control utilisateur UserControl 
qui permet de realiser les fonctionnalit&#233; que tu a mentionn&#233;
la base de ce control sera un control textbox

dans l'evenement KeyPress de text1 tu ecrit le code suivant:

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim CaractereAutorise As String


Text1.SelText = ""


CaractereAutorise = "-.0123456789" & Chr(vbKeyDelete) & Chr(vbKeyReturn) & Chr(vbKeyBack)
If InStr(1, CaractereAutorise, Chr(KeyAscii)) = 0 Then
    KeyAscii = 0
    Exit Sub
End If


If Chr(KeyAscii) "-" And Not (InStr(1, Text1.Text, "-") 0 And Text1.SelStart = 0) Then KeyAscii = 0If InStr(1, Text1.Text, ".") <> 0 And Chr(KeyAscii) "." Then KeyAscii 0


If Chr(KeyAscii) "." And Text1.Text "" Then
    Text1.Text = "0"
    Text1.SelStart = 1
End If


If Chr(KeyAscii) "." And Text1.Text "-" Then
    Text1.Text = "-0"
    Text1.SelStart = 2
End If


End Sub

tu vois ce n'est pas si difficile 

Hassen TUNISIE

Zlub · Answer

Salut,

oki DarkSidious ..

oki aussi pour MaskEdit

++

Zlub

CeNedra83 · Answer

Merci &#224; tous, avec tout &#231;a je vais pouvoir me d&#233;brouiller!!
++
CeNedra

CeNedra83 · Answer

DarkSidious je me suis aid&#233;e de ce que tu avais fait et de ce que j'avais d&#233;j&#224; fait pour faire ceci.
Cela marche tr&#232;s bien pour ce que je veux, sauf que &#231;a ne paermet pas de rentrer un signe moins!
alors que si j'&#233;cris le code dans l'&#233;v&#232;nement Keypress d'une textbox, cela marche tr&#232;s bien.
Quel est mon pb?

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

Gobillot · Answer

pourquoi tu fais pas un groupe de contr&#244;le avec les TexBox,

tu auras juste une seule proc&#233;dure

Daniel

CeNedra83 · Answer

Ben j'en ai fait pour certaines mais pas toutes car &#231;a m'arrange pas toujours.

doryam · Answer

Bonjour,



J'aurais aussi une solution &#224; proposer. Elle vaut ce qu'elle vaut.

La voici



Private Sub txtChamp_KeyPress(KeyAscii As Integer)

    IsDecimal txtChamp, KeyAscii, False

End Sub



'Le champ peut &#234;tre un Texte ou une zone Grid.

Public Function IsDecimal(ByRef objField As Object, _

                         
ByRef KeyAscii As Integer, _

                         
Optional ByVal blnIsDecimal As Boolean, _

                         
Optional ByVal blnAllowmoins As Boolean) As Boolean



    Dim lngPosition As Long

    Dim gstrDecDelim as string

    gstrDecDelim = "."



    'Teste si la touche est nunerique ou pas.

    If blnIsDecimal Then

        IsKeyDecimal KeyAscii, blnAllowmoins

    Else

        IsKeyNumeric KeyAscii, blnAllowmoins

    End If



    If KeyAscii = 0 Then

        Exit Function

    End If



    With objField

        'Si le point a ete tap&#233;...

        If KeyAscii = Asc(gstrDecDelim) Then

            'Si un point se trouve d&#233;j&#224; dans le champ...

            If InStr(.Text, gstrDecDelim) Then

                'Si le point n'est pas s&#233;lectionn&#233;...

               
If InStr(.SelText, gstrDecDelim) = 0 Then

                   
'Alors on ne veut pas cette touche.

                    KeyAscii = 0

                    Exit Function

                End If

            End If

        'Si pas de point...

        Else

            'Si on est tout &#224; gauche...

            If .SelStart = 0 Then

               
'Si un moins (-) se trouve d&#233;j&#224; dans le champ...

                If InStr(.Text, "-") > 0 Then

                   
'Si le moins (-) est s&#233;lectionn&#233;...

                   
If InStr(.SelText, "-") = 0 Then

                       
'Alors on ne vaut pas cette touche.

                       
KeyAscii = 0

                       
Exit Function

                    End If

                End If

            'Si
on est quelque part dans le champ, mais pas entierement &#224; gauche...

            Else

               
'On a pas le droit de taper un moins (-).

                If KeyAscii = Asc("-") Then

                    KeyAscii = 0

                    Exit Function

                End If

            End If

        End If

    End With



    IsDecimal = True



End Function







Doryam

doryam · Answer

Excuses, J'ai oublié la fonction IsKeyDecimal, La voici Public Function IsKeyDecimal(ByRef KeyAscii As Integer, _ Optional ByVal blnAllowMoins As Boolean) As Boolean Dim lngPos As Long Dim strMoins As String If blnAllowMoins Then strMoins = "-" End If If KeyAscii >= Asc(" ") Then If (KeyAscii < Asc("0") Or KeyAscii > Asc("9")) Then lngPos = InStr(",." & gstrDecDelim & strMoins, Chr(KeyAscii)) If lngPos = 0 Then Beep KeyAscii = 0 Else If blnAllowMoins Then If KeyAscii <> Asc(strMoins) Then KeyAscii = Asc(gstrDecDelim) End If Else KeyAscii = Asc(gstrDecDelim) End If IsKeyDecimal = True End If End If End If End Function Ah... Important: Je ne suis pas le créateur de ces lignes. Merci Doryam

cs_hassen · Answer

enfait je t'ai donner une solution en haut qui marche je l'ai tester


elle prend encharge - . 


si tu l'essay&#233;

Hassen TUNISIE

CeNedra83 · Answer

je veux bien, mais comme j'ai beaucoup de text box et pas toujours en groupe, si je dois taper ce code pour chaque &#231;a va etre p&#233;nible!

doryam · Answer

Il te suffit de rentrer une seule ligne par Textbox à vérifier et ceci dans l'évènement KeyPress comme suit:

Private Sub txtChamp_KeyPress(KeyAscii As Integer)
    IsDecimal txtChamp, KeyAscii, False
End Sub

et il puis met les deux Fonctions "IsDecimal" et "IsKeyDecimal" quelque part dans le Code de ta fenêtre où dans un Module en prenant soin de les déclarer en PUBLIC.

Doryam

Que des chiffres dans une textbox

16 réponses

Discussions similaires