Section de caractere
pcastain
Messages postés
43
Date d'inscription
mardi 15 juillet 2003
Statut
Membre
Dernière intervention
7 novembre 2006
-
25 févr. 2004 à 09:18
pcastain Messages postés 43 Date d'inscription mardi 15 juillet 2003 Statut Membre Dernière intervention 7 novembre 2006 - 27 févr. 2004 à 09:03
pcastain Messages postés 43 Date d'inscription mardi 15 juillet 2003 Statut Membre Dernière intervention 7 novembre 2006 - 27 févr. 2004 à 09:03
3 réponses
pcpunch
Messages postés
1243
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
5
25 févr. 2004 à 10:54
25 févr. 2004 à 10:54
Voila un petit exemple qui permet de filtrer l'entrée dans un textbox ( ordre : Maj, Min,chiffre,chiffre,min,maj)
Private Sub Text1_KeyPress(KeyAscii As Integer)
Static x As IntegerIf KeyAscii 8 Then x x - 1: Exit Sub
If x > 5 Then KeyAscii = 0
Select Case x
Case 0 'majuscule
If KeyAscii >= 65 And KeyAscii <= 90 Then x = x + 1 Else KeyAscii = 0
Case 1 'minuscule
If KeyAscii >= 97 And KeyAscii <= 122 Then x = x + 1 Else KeyAscii = 0
Case 2 'numerique If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii 0 Else x x + 1
Case 3 'numerique If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii 0 Else x x + 1
Case 4 'minuscule
If KeyAscii >= 97 And KeyAscii <= 122 Then x = x + 1 Else KeyAscii = 0
Case 5 'majuscule
If KeyAscii >= 65 And KeyAscii <= 90 Then x = x + 1 Else KeyAscii = 0
End Select
End Sub
++
Private Sub Text1_KeyPress(KeyAscii As Integer)
Static x As IntegerIf KeyAscii 8 Then x x - 1: Exit Sub
If x > 5 Then KeyAscii = 0
Select Case x
Case 0 'majuscule
If KeyAscii >= 65 And KeyAscii <= 90 Then x = x + 1 Else KeyAscii = 0
Case 1 'minuscule
If KeyAscii >= 97 And KeyAscii <= 122 Then x = x + 1 Else KeyAscii = 0
Case 2 'numerique If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii 0 Else x x + 1
Case 3 'numerique If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii 0 Else x x + 1
Case 4 'minuscule
If KeyAscii >= 97 And KeyAscii <= 122 Then x = x + 1 Else KeyAscii = 0
Case 5 'majuscule
If KeyAscii >= 65 And KeyAscii <= 90 Then x = x + 1 Else KeyAscii = 0
End Select
End Sub
++
pcastain
Messages postés
43
Date d'inscription
mardi 15 juillet 2003
Statut
Membre
Dernière intervention
7 novembre 2006
26 févr. 2004 à 08:46
26 févr. 2004 à 08:46
Merci pcpunch, ça marche super
si je peut te poser une autre question,
je veux recuperer des clées de registre,
mon probleme c'est la gestion d'erreur
malgré mon on error si la clé n'exist pas ça plante
si dessous une partie du code, si tu peut me dire ou je merde merci d'avance:
Public Path As String
Dim Master As Object
Private Sub Form_Load()
On Error GoTo MASTERINCONNU
Set Master = CreateObject("Wscript.Shell")
Path = Master.RegRead("HKLM\Software\PC\Master")
If Path <> "" Then
TbxMaster = Path
Path = ""
Else
MASTERINCONNU:
Path = "Inconnu"
TbxMaster = Path
Path = ""
End If
End Sub
Pascal
si je peut te poser une autre question,
je veux recuperer des clées de registre,
mon probleme c'est la gestion d'erreur
malgré mon on error si la clé n'exist pas ça plante
si dessous une partie du code, si tu peut me dire ou je merde merci d'avance:
Public Path As String
Dim Master As Object
Private Sub Form_Load()
On Error GoTo MASTERINCONNU
Set Master = CreateObject("Wscript.Shell")
Path = Master.RegRead("HKLM\Software\PC\Master")
If Path <> "" Then
TbxMaster = Path
Path = ""
Else
MASTERINCONNU:
Path = "Inconnu"
TbxMaster = Path
Path = ""
End If
End Sub
Pascal
pcastain
Messages postés
43
Date d'inscription
mardi 15 juillet 2003
Statut
Membre
Dernière intervention
7 novembre 2006
27 févr. 2004 à 09:03
27 févr. 2004 à 09:03
pour le probleme de gestion d'erreur j'ai trouvé.
par contre pour le filtrage des caracteres çà marche bien mais si je passe dans une autre txbox et que je revient sur celle que je controle,(avec la sourie ou tab) le controle ne marche plus,pour info j'ai un focus sur cette txbox et malgrer le retour du text du focus, le controle ne se relance pas.
aurais tu une idée pour que le controle se reactive achaque fois que l'on retourne dans la txbox.
merci
Pascal
par contre pour le filtrage des caracteres çà marche bien mais si je passe dans une autre txbox et que je revient sur celle que je controle,(avec la sourie ou tab) le controle ne marche plus,pour info j'ai un focus sur cette txbox et malgrer le retour du text du focus, le controle ne se relance pas.
aurais tu une idée pour que le controle se reactive achaque fois que l'on retourne dans la txbox.
merci
Pascal
