MaskEdBox en majuscule
Résolu
Sinsitrus
Messages postés
849
Date d'inscription
samedi 11 juin 2005
Statut
Membre
Dernière intervention
21 août 2015
-
14 mars 2008 à 19:42
Sinsitrus Messages postés 849 Date d'inscription samedi 11 juin 2005 Statut Membre Dernière intervention 21 août 2015 - 14 mars 2008 à 20:47
Sinsitrus Messages postés 849 Date d'inscription samedi 11 juin 2005 Statut Membre Dernière intervention 21 août 2015 - 14 mars 2008 à 20:47
A voir également:
- MaskEdBox en majuscule
- Sql majuscule ✓ - Forum VB.NET
- Forcer la saisie en majuscule dans un Edit ? ✓ - Forum Delphi / Pascal
- Requête SQL - ORDER BY majuscule-minuscule - Forum Visual Basic 6
- Mettre la casse en majuscule sur un TextBox ✓ - Forum Visual Basic 6
- Python majuscule première lettre - Forum Delphi / Pascal
2 réponses
cs_casy
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
40
14 mars 2008 à 20:34
14 mars 2008 à 20:34
Forcément, le fait d'attribuer un texte au MaskEdBox1 va déclenché l'évènement Change dans lequelle tu attribut du texte qui déclenche l'évènement dans lequel ....... Tout ça jusqu'à ce que la pile des appels déborde d'ou le message d'erreur
Soit tu n'es pas forcé dutiliser l'évènement Change, dans ce cas il te faut trouver une autre astuce avec un autre évènement comme par exemple dans l'évènement keyPress, systématiquement modifier le caractère saisie par son correspondant majuscule :
Private Sub MaskEdBox1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub<hr />
, ----
[code.aspx?ID=41455 By Renfield]
Soit tu es obligé d'utiliser l'évènement Change. Dans ce cas il faut que tu flagge ton code pour empecher qu'il soit réentrant (càd qu'il ne se réexecute alors qu'il est déjà en train de s'executer Ex:
Private Sub MaskEdBox1_Change()
Static flag As Boolean 'variable statique obligatoire pour conserver la valeur d'un appel à l'autre
'Test du Flag
If flag Then Exit Sub
'Début du flaggage
flag = True
'Traitement
MaskEdBox1 = StrConv(MaskEdBox1.Text, vbUpperCase)
MaskEdBox1.SelStart = Len(MaskEdBox1.Text)
'Fin du flaggage
flag = False
End Sub
, ----
[code.aspx?ID=41455 By Renfield]
---- Sevyc64 (alias Casy) ----</italique> <hr size ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #
Soit tu n'es pas forcé dutiliser l'évènement Change, dans ce cas il te faut trouver une autre astuce avec un autre évènement comme par exemple dans l'évènement keyPress, systématiquement modifier le caractère saisie par son correspondant majuscule :
Private Sub MaskEdBox1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub<hr />
, ----
[code.aspx?ID=41455 By Renfield]
Soit tu es obligé d'utiliser l'évènement Change. Dans ce cas il faut que tu flagge ton code pour empecher qu'il soit réentrant (càd qu'il ne se réexecute alors qu'il est déjà en train de s'executer Ex:
Private Sub MaskEdBox1_Change()
Static flag As Boolean 'variable statique obligatoire pour conserver la valeur d'un appel à l'autre
'Test du Flag
If flag Then Exit Sub
'Début du flaggage
flag = True
'Traitement
MaskEdBox1 = StrConv(MaskEdBox1.Text, vbUpperCase)
MaskEdBox1.SelStart = Len(MaskEdBox1.Text)
'Fin du flaggage
flag = False
End Sub
, ----
[code.aspx?ID=41455 By Renfield]
---- Sevyc64 (alias Casy) ----</italique> <hr size ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #
Sinsitrus
Messages postés
849
Date d'inscription
samedi 11 juin 2005
Statut
Membre
Dernière intervention
21 août 2015
14 mars 2008 à 20:47
14 mars 2008 à 20:47
Salut !
Puré !!!!!! Merci beaucoup Casy !
J'ai opté pour les deux dans deux cas bien différents ^^ Merci !
----------
OS : Windows XP SP2
Platforme : VB 6.0 + SP6
Ok VB6.0 c'est pas net !
Puré !!!!!! Merci beaucoup Casy !
J'ai opté pour les deux dans deux cas bien différents ^^ Merci !
----------
OS : Windows XP SP2
Platforme : VB 6.0 + SP6
Ok VB6.0 c'est pas net !
