Discussion :

[Elnarvalo]

Bonjour,

je travaille avec une zone de texte qui contient énormément de texte. J'ai donc une barre de défilement qui me permet de visionner verticalement mon texte. Mon premier problème est que quand je l'utilise, le défilement ne se fait que quand je la lâche. Est ce possible que le défilement se fasse en même temps qu'on bouge la barre défilement (comme sur ce site).

Mon deuxième soucis est que lorsque je passe de ma zone de texte à un autre contrôle, ma zone de texte remonte au début alors que je voudrais qu'elle reste là ou elle est. J’espère être assez clair mais j 'ai peur que non.

Est ce que quelqu'un connait les propriétés pour gérer cela? Ou faut il passer par du vba?

Merci bien

[Elnarvalo]

J'ai cherché surtout pour la 2ième partie. J'ai trouvé un début de solution. C'est de récupérer la position quand on est dans la zone de texte puis de mettre à chaque contrôle un set.focus sur le texte est de placer le curseur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim textePos As Long
 
Private Sub ZT_texte_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
	textePos = Zt_texte.SelStart
End Sub
 
Private Sub Zl_cat_1_Click()
	Me.Zt_texte.SetFocus
	Me.Zt_texte.SelStart = textePos
End Sub

Le problème est qu'il y a plusieurs contrôles donc le texte remonte puis se replace plein de fois. J'ai essayé de mettre l'instruction à la sortie de la zone de texte mais ça ne change rien.

Quelqu'un a t'il une idée?

[Elnarvalo]

Pour ceux que ça intéresse. Pour la première question, il suffit de mettre dans les propriétés Données/format du texte : texte enrichi.

Résolu pour moi donc je ne vais pas continuer à me prendre la tête, mais je pense qu'on peut faire mieux pour la seconde partie donc je ne mets pas comme résolu.

Au plus tard possible