OVH Cloud OVH Cloud

astuce richtextbox

1 réponse
Avatar
sam
bonjour,
j'ai une appli qui affiche les conenu de fichier ascii=20
dans un richtextbox, avec scrollbar horizontal et vertical.

j'ai mis sur l'ev=E8nement cli la s=E9lection automatique de=20
toute la ligne.
or, pour certaine ligne, la fin de ligne est pleine=20
d'espaces, ce qui d=E9porte automatiquement le curseur en=20
fin de ligne =E0 droite, ce qui fait qu'on ne voit pas le=20
d=E9but de la ligne, sauf =E0 utiliser l'ascenseur.

y-a-t-il une astuce ?

1 réponse

Avatar
Fab!
*********************
"sam"

bonjour,
j'ai une appli qui affiche les conenu de fichier ascii
dans un richtextbox, avec scrollbar horizontal et vertical.

j'ai mis sur l'evènement cli la sélection automatique de
toute la ligne.
or, pour certaine ligne, la fin de ligne est pleine
d'espaces, ce qui déporte automatiquement le curseur en
fin de ligne à droite, ce qui fait qu'on ne voit pas le
début de la ligne, sauf à utiliser l'ascenseur.

y-a-t-il une astuce ?

********************

Utiliser TRIM ?

LTrim, RTrim et Trim, fonctions, exemple
Cet exemple utilise les fonctions LTrim et RTrim pour éliminer
respectivement les espaces se trouvant à gauche et à droite d'une variable
chaîne. La fonction Trim permet d'éliminer les deux types d'espace.

Dim MyString, TrimString
MyString = " <-Trim-> " ' Initialise la chaîne.
TrimString = LTrim(MyString) ' TrimString = "<-Trim-> ".
TrimString = RTrim(MyString) ' TrimString = <-Trim->".
TrimString = LTrim(RTrim(MyString)) ' TrimString = "<-Trim->".
' L'utilisation de la fonction Trim seule produit le même résultat.
TrimString = Trim(MyString) ' TrimString