Discussion :

[thechef]

bonjour,

je suis entrain de faire un clavier virtuele
j'aimerai savoir comment je peut supprimer une lettre quand l'utilisateur clique sur supprimer dans le clavier virtuele
j'ai fait espace ecrir.Text = ecrir.Text + " " mais supprimer j'i pas pu la faire.

[nico9360]

salut
tu veux supprimer la dernière lettre saisie, c'est ca?

si oui
quand tu cliques sur éffacer
utilise la méthode len pour connaitre le nombre de caractére dans ta textbox
puis utilise la méthode Mid(string, start[, length]) pour récupérer ta chaine sauf le dernier caractére.
puis tu remplaces dans ta textbox

string = ce qu'il y a dans ta textbox
start = début de la position de la partie de la chaine a garder
lenght = longueur de la chaine a garder (ici ce que tu as récupéré avec la méthode len -1)

cordialement

[iclic]

Bonjour,

Len, mid ne sont pas des méthodes ,mais des fonctions:ceci pour être précis.

Alors thechef fais ceci

Code :

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

1
2
3
4
 
if  'cliquer sur supprimer' then
      ecrir.text = left( ecrir.text, len (ecrir.text) -1 )
end if

A+

[gwems]

salut j' ai réaliser deja un clavier virtuel tu trouvera tout sur le forum VB6 et antérieur ou alors ds le VBA access

et si tu veux des conseils demande moi j l ai fait ca marche...

[thechef]

merci beaucoup, ca marcher,
est ce que tu sais comment retourner a la ligne ?

salut gwems, si tu peut me donner ton clavier virtuel pour avoir une idée
moi je suis entrain de faire un avec le style XP

a bientôt.

[gwems]

voici comme prevu ce que j ai réaliser

Code :

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

Public gStr_Chaine As String

Code :

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

1
2
3
Private Sub Commande22_Click() '****lettre A******
EnvoiChaine "A"
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commande60_Click() '****touche supprimer******
 
 If Me.Texte13.Visible = True And Me.Texte13.Locked = False Then
 If gStr_Chaine <> "" Then
gStr_Chaine = Mid(gStr_Chaine, 1, Len(gStr_Chaine) - 1)
Me.Texte13.SetFocus
SendKeys gStr_Chaine
Else
Me.Texte13 = ""
End If
End If
End Sub

voila pour les touches utilisées et alors la méthode...

Code :

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

1
2
3
4
5
6
7
8
Sub EnvoiChaine(pStr_Chaine As String)     'methode clavier
If Me.Texte13.Visible And Me.Texte13.Locked = False Then
 gStr_Chaine = gStr_Chaine & pStr_Chaine
    Me.Texte13.SetFocus
    Me.Texte13.Value = ""
    SendKeys gStr_Chaine
 End If
end sub

ca marche bien et il le reconnait bien pour faire des filtres ce qui n' etait pas le cas lorsque j avais essayer " mot = mot & "A"