Effacer dernière lettre d'une etiquette

kTButcher Messages postés 2 Date d'inscription mardi 16 septembre 2003 Statut Membre Dernière intervention 24 octobre 2004 - 22 sept. 2004 à 22:41
pcpunch Messages postés 1243 Date d'inscription mardi 7 mai 2002 Statut Membre Dernière intervention 18 février 2019 - 22 sept. 2004 à 23:19
Comment faire pour par exemple effacer la derniere lettre dune etiquette (comme un backspace mais pour une etiquette)

1 réponse

pcpunch Messages postés 1243 Date d'inscription mardi 7 mai 2002 Statut Membre Dernière intervention 18 février 2019 5
22 sept. 2004 à 23:19
Je supose que tu parle d'un label ??

Si c'est la cas, tous simplement :

If Len(Label1) <> 0 Then Label1.Caption = Left(Label1, Len(Label1) - 1)

Explication :

si la longeur du label1 n'est pas égal a 0, alors label1 égal le total -1 de ces caractéres de gauche.

En gros c ça

++
0
Rejoignez-nous