une fois j’ai copier collé un texte avec un lien dans ce TextArea, et il avais gardez tous les reglage et les liens était clicable, mais une fois sauvegardé dans un .txt et rechargé en suite les lien n’était plus clicable et la forme etait uni sans couleur sans police sans taille particulière, donc TextArea est capable de gerer ce genre de text, mais comment lui demander de former un texte en activant toutes ces options ?
est du texte brut. As-tu lu mon texte en anglais d’il y a quelques minutes ?
Ceci dit: ce nest pas parce qu’un Control “sait” (la preuve: ça marche !) faire quelque chose… qu’il sait vraiment le faire.
Un enfant sait répéter un texte, cela ne veut pas dire qu’il le comprend.
J’ai écrit - pour toi - le bout de code décrit ici:
Mais la ligne qui contient une URL comme celle ci: DesktopTextArea
n’est pas affichée.
Je déjeune et je vois si je trouve une autre idée.
Copie d’écran de mon fichier rtf de test:
La ligne en bleu soulignée contient une URL (active), mais elle n’est pas affichée dans le TextArea.
j’ai déjà fait le code qui permet d’ouvrir une URL mais en pressant la touche commande et en faisant un double clique sur le lien et ça fonctionne, mais bon ce n’est pas aussi beau que un simple clique sur une URL en bleu, c’est pour cela que j’ai posé la question et j’ai trouvé un comportement bizard avec cette méthode notamment quand je fait un collé dans le TextArea, donc j’ai viré le code quand j’ai vu que en faisant un control clique sur le lien le menu contextuel me propose d’ouvrir le lien, donc ça va
le comportement bizarre c’est quand la touche commande est enfoncé et que je fait autre chose que de double cliquer, comme un commande C
voilà le code a mettre dans l’évènement selectionchanged
c’est une bidouile de mon point de vu
le lien doit être entouré de chevrons
if Keyboard.CommandKey then
dim i, Debut, Longeur, SelecStartMem as integer
SelecStartMem = me.SelectionStart
for i = me.SelectionStart DownTo 0
me.SelectionLength = 1
if me.SelectedText = “<” then
Debut = i + 1
exit
else
me.SelectionStart = me.SelectionStart -1
me.SelectionLength = 1
if me.SelectedText = “>” then
Debut = 0
me.SelectionLength = 0
exit
end if
end if
next
if Debut = 0 then
me.SelectionStart = SelecStartMem
beep
else
for i = Debut To me.Text.Length
me.SelectionLength = 1
if me.SelectedText = “>” then
me.SelectionStart = Debut
me.SelectionLength = Longeur - 1
System.GotoURL(me.SelectedText)
'AfficheURLDansSafari(me.SelectedText)
exit
else
Longeur = Longeur +1
me.SelectionStart = me.SelectionStart + 1
end if
next