j'ai un probléme avec MASKEDBOXRésolu

Question

Bonjour,

quand je vous click sur button nouveau pour efface les données. de text1

mais les données reste dans ce text1.

par exemple:

text1 déjà contient les données suivant,

text1= 85 963.00

simple click, sur

- button nouveau  pour efface,

text1.mask = "## ###.00"

-mais les données reste dans text1, je vous efface les données.

merci.

sportmed · Accepted Answer

merci pour tous, j'ai réalise cette solution, voir: 



Private Sub Form_Load()

Dim NEWEFFACE As String

End Sub










Private Sub nouveau_Click() 
    

    With TEXT1

        NEWEFFACE = .Mask

        .Mask = ""

        .Text = ""

        .Mask = NEWEFFACE

    End With
    
End Sub

NHenry · Answer

Bonjour, 

Malgré ton explication très difficilement compréhensible, je pense que tu rehcrches du mauvaus coté.

Pourquoi tu ne fais pas :
Text1.Text=""
?

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, ce lien ou encore celui-ci[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

ucfoutu · Answer

Bonjour, NHenry,
Parce qu'il a choisi un contrôle MaskedEdit et l'a affublé d'un masque
Il ne peut donc y entrer dynamiquement que du texte correspondant au masque
S'il veut tout "effacer", il ne le peut donc qu'ainsi :
MaskEdBox1.Mask = ""
MaskEdBox1.Text = ""



____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Et s'il veut retrouver son masque à la saisie :
Private Sub MaskEdBox1_GotFocus()
  MaskEdBox1.Mask = "## ###.00"
End Sub

Tout cela restera "usine à gaz", c'est certain.
Mais il a sa réponse. 

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

sportmed · Answer

Bonjour,

j'ai déjà fait une format de text1:

Private Sub Form_Load()
text1.mask = "## ###.00"
end sub

ce je fait cette solution, 

MaskEdBox1.Mask = ""
MaskEdBox1.Text = ""

 Le format marche pas,
je vous simplement click sur button nouveau, les cette fonction permet de efface les données plus le format reste la même.

sportmed · Answer

LE SOLUTION EST LE SUIVANT,


text1.mask = "__ ___.__"

acive · Answer

Salut sportmed:
LE SOLUTION EST LE SUIVANT, 
text1.mask = "__ ___.__"
Ce n'est pas la solution... c'est uniquement toi qui le décide, c'est tout.
Regarde un exemple:
CE LIEN

Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

sportmed · Answer

merci pour tous, j'ai réalise cette solution, voir:



Private Sub Form_Load()

Dim NEWEFFACE As String

End Sub







Private Sub cmdClearD_Click() 'Effacer la date
    

    With TEXT1

        NEWEFFACE = .Mask

        .Mask = ""

        .Text = ""

        .Mask = NEWEFFACE

    End With
    
End Sub

acive · Answer

Oui...
sauf que ta variable est déclarée au mauvais endroit.
Soit tu la déclares en tant que publique et tu peux t'en servir dans n'importe quelle Sub:

'Déclarations Publiques ici:
Dim NEWEFFACE As String

Private Sub Form_Load()
'Déclaration privée (à utiliser uniquement dans la Sub)
'Exemple:
Dim Test As String
Test = "Effacer la date"
cmdClearD.Caption = Test
End Sub

Private Sub cmdClearD_Click() 'Effacer la date
    With Text1
        NEWEFFACE = .Mask
        .Mask = ""
        .Text = ""
        .Mask = NEWEFFACE
    End With
End Sub

Soit tu la déclares tout simplement dans la Sub en question:

Private Sub Form_Load()

End Sub

Private Sub cmdClearD_Click() 'Effacer la date
   Dim NEWEFFACE As String
   With Text1
        NEWEFFACE = .Mask
        .Mask = ""
        .Text = ""
        .Mask = NEWEFFACE
    End With
End Sub


PS. j'ai constaté que tu utilises les balises de code vb, c'est bien!... 

Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

sportmed · Answer

merci

J'ai un probléme avec MASKEDBOX

10 réponses

Votre réponse

Discussions similaires