quelle serait la commande pour faire disparaitre une lettre entrée
j'explique j'étudie en programmation et je fais un programme de pendu (Jeux)
après avoir entré une lettre dans un mon txtBox je voudrais qu'elle disparaisse pour pouvoir en entrer une autre sans l'enlever moi-meme?? comment faire SVP
Michou0001

TonTexbox.Text = ""


---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #    [ Lien ]

Salut,
Pour moi, il n'y a pas une commande, mais plusieurs commandes qui deviennent donc une procédure.
Ca pourrait ressembler à ça:

Private Sub Form_Load()
    MsgBox ValideStringPendu("ABCb")
End Sub

Private Function ValideStringPendu(ByVal myValue As String) As String
'# Ne teste donc que le dernier caractère avec les autres
    If Len(myValue) < 2 Then Exit Function
    If InStr(1, Left$(myValue, Len(myValue) - 1), Right$(myValue, 1), vbTextCompare) <> 0 Then
    '("Instr" est une nouvelle commande de VB6!)
        '# Le dernier caractère existe déjà dans la séquence myValue.
        '# On supprime le dernier caractère:
        ValideStringPendu = Left$(myValue, Len(myValue) - 1)
    Else
        '# Le dernier caractère n'a pas été trouvé.
        '# On mémorise le tout:
        ValideStringPendu = myValue
    End If
End Function

titicar

Oups... j'ai oublié un cas (sinon, tu ne pourras jamais commencer le jeu!)... changement de la function:

Private Function ValideStringPendu(ByVal myValue As String) As String
'# Ne teste donc que le dernier caractère avec les autres
    ValideStringPendu = myValue 'Par défaut
    If Len(myValue) < 2 Then Exit Function
    If InStr(1, Left$(myValue, Len(myValue) - 1), Right$(myValue, 1), vbTextCompare) <> 0 Then
    '("Instr" est une nouvelle commande de VB6!)
        '# Le dernier caractère existe déjà dans la séquence myValue.
        '# On supprime le dernier caractère:
        ValideStringPendu = Left$(myValue, Len(myValue) - 1)
    End If
End Function

titicar

merci , je teste