Discussion :

[soso78]

Salut,

Voilà, j'ai un petit problème qui doit pas être compliqué, mais voilà.

A savoir, j'ai une chaine de caractère :

__________aaaaaa_________________________________________________

J'ai ce masque :

_________________________________________________________________

Lorsque l'utilisateur appui sur la touche "sup", je souhaite remplacer le caractère de la 1ère chaine par son masque, mais uniquement celui sous le curseur.

Pour cela, j'ai le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
            'Récupère le caractère sous le curseur
            strChar = Mid$(txtText.Text, txtText.SelStart, 1)
 
            'Récupère le masque correspondant
            strMask = Mid$(mstrMask, txtText.SelStart, 1)
 
            'Remplace le caractère par son masque
            txtText.Text = Replace(txtText.Text, strChar, strMask, txtText.SelStart, 1)

En fait, il me fournit ce résultat :

_aaaav___________________________________________________________

Qu'est-ce que j'ai oublié ?

Merci par avance.

[ProgElecT]

Salut

La valeur renvoyée par la fonction Replace est une chaîne,
une fois les substitutions effectuées,
qui commence à la position spécifiée par l'argument start
et se termine à la fin de la chaîne expression.
Il ne s'agit pas d'une copie de la chaîne d'origine du début à la fin.

Donc, apres essais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Option Explicit
Dim mstrMask As String
Dim strChar As String
Dim strMask As String
Dim LeText As String
Dim T As Integer
 
Private Sub Form_Load()
txtText = "__________aaaaaa_________________________________________________"
mstrMask = "__________BCDEFG_________________________________________________"
End Sub
 
Private Sub txtText_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 46 Then
KeyCode = 0
'Récupère le caractère sous le curseur
    T = txtText.SelStart
    strChar = Mid$(txtText.Text, T + 1, 1)
 
    'Récupère le masque correspondant
    strMask = Mid$(mstrMask, T + 1, 1)
 
    'Remplace le caractère par son masque
    LeText = Left$(txtText.Text, T)
    LeText = LeText & strMask & Right$(txtText.Text, (Len(txtText.Text) - T) - 1)
    txtText.Text = LeText: txtText.SelStart = T
End If
 
End Sub

A+