cmd_click()
select case len(txtb.text)
case 0
msgbox "Rien a supprimer..."
case 1,2
txtb.text = ""
case >2 (ou case else en fait ...)
txtb.text = left(txtb.text,len(txtb.text)-2)
end select
end
Ca c'est le code, maintenant je t'explique.
la fonction left(...) te permet de tronquer une chaine, ex:
left(string,nbrcara)
"42" = left("42waza42",2)
"Super" = left("Superxxxxxxxxxxxx",5)
etc...
Par contre, tu ne peux pas recuperer plus de caractere qu'il y en a, tu dois donc gerer les erreurs d'une facon ou d'une autre, le plus simple etant de verifier que len(string) > a len(ce_que_tu_veux_recuperer).
cmd_click()
select case len(txtb.text)
case 0
msgbox "Rien a supprimer..."
case 1,2
txtb.text = ""
case >2 (ou case else en fait ...)
txtb.text = left(txtb.text,len(txtb.text)-2)
end select
end
Ca c'est le code, maintenant je t'explique.
la fonction left(...) te permet de tronquer une chaine, ex:
left(string,nbrcara)
"42" = left("42waza42",2)
"Super" = left("Superxxxxxxxxxxxx",5)
etc...
Par contre, tu ne peux pas recuperer plus de caractere qu'il y en a, tu dois donc gerer les erreurs d'une facon ou d'une autre, le plus simple etant de verifier que len(string) > a len(ce_que_tu_veux_recuperer).