affichage progressifRésolu

Question

Salut, j'ai un probl&#232;me &#233;pineux &#224; r&#233;soudre.... je voudrais faire en
sorte qu'un texte s'affiche dans un textbox, sur plusieurs lignes...
mais lettre par lettre, mais qu'en plus, le scroll de ce textbox soit
cal&#233; vers le bas, genre, au fur et &#224; mesure de l'affichage, qu'on ne
soit pas oblig&#233; de scoller manuellement pour lire...



Pour l'affichage lettre par lettre j'avais fait comme &#231;a : un "Text1"
contenait tout le texte &#224; afficher, et un "Text2" &#233;tait r&#233;git par timer
qui disait "Text1.text = text2.text", et qui controlait la propri&#233;t&#233;
".maxlength" de text1. ce qui donnait l'illusion d'un affichage
progressif. MAIS ... &#231;a le fait pas
kan le texte &#224; afficher d&#233;passe la hauteur de"text1". J'a pas trouv&#233; de
soluce... &#224; part pit&#232;te m'arranger pour donner le focus constament &#224;
text1, et faire en sorte que le curseur soit "pouss&#233;" en permanence
vers la droite... ce qui forcerait le scroll &#224; se "d&#233;rouler"....



Si vous avez des suggestions plus efficaces et qui fassent moins "MacGyver" que ma soluce, piti&#233; faites-moi signe !!



 Merci d'avance pour vos lumi&#232;res ! 



vegetalain

jannoman · Accepted Answer

salut

Dim n As Integer


Private Sub Command1_Click()
n = 1
Timer1.Enabled = True
End Sub


Private Sub Timer1_Timer()
Me.Text1.Text = Mid(Me.Text2.Text, 1, n)
Me.Text1.SelStart = n
Me.Text1.Refresh
n = n + 1
End Sub

A+.
Thomas.

cs_DARKSIDIOUS · Answer

Pour faire scroller manuellement le scrollbar d'une textbox, il suffit d'utiliser la propri&#233;t&#233; SelStart :



Text1.SelStart = len(Text1.Text)



Note : ta question fait partie des questions r&#233;cursives qui sont
demander plusieurs fois pas mois, une toute petite recherche sur le
forum t'aurais permis de trouver plus rapidement une solution !

_____________________________________________________________________

vegetalain · Answer

Rahalalaala &#231;a d&#233;chire !!!  merci beaucoup pour l'infos !!!

A plus,
vegetalain, super content !

Affichage progressif

3 réponses

Discussions similaires