Affichage progressif [Résolu]

Messages postés
746
Date d'inscription
mardi 25 mars 2003
Dernière intervention
14 juillet 2015
- - Dernière réponse : vegetalain
Messages postés
746
Date d'inscription
mardi 25 mars 2003
Dernière intervention
14 juillet 2015
- 21 janv. 2006 à 16:14
Salut, j'ai un problème épineux à ré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é vers le bas, genre, au fur et à mesure de l'affichage, qu'on ne
soit pas obligé de scoller manuellement pour lire...



Pour l'affichage lettre par lettre j'avais fait comme ça : un "Text1"
contenait tout le texte à afficher, et un "Text2" était régit par timer
qui disait "Text1.text = text2.text", et qui controlait la propriété
".maxlength" de text1. ce qui donnait l'illusion d'un affichage
progressif. MAIS ... ça le fait pas
kan le texte à afficher dépasse la hauteur de"text1". J'a pas trouvé de
soluce... à part pitète m'arranger pour donner le focus constament à
text1, et faire en sorte que le curseur soit "poussé" en permanence
vers la droite... ce qui forcerait le scroll à se "dérouler"....



Si vous avez des suggestions plus efficaces et qui fassent moins "MacGyver" que ma soluce, pitié faites-moi signe !!



Merci d'avance pour vos lumières !



vegetalain
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
258
Date d'inscription
jeudi 17 avril 2003
Dernière intervention
20 février 2008
3
Merci
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.

Merci jannoman 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 104 internautes ce mois-ci

Messages postés
15838
Date d'inscription
jeudi 8 août 2002
Dernière intervention
4 mars 2013
0
Merci
Pour faire scroller manuellement le scrollbar d'une textbox, il suffit d'utiliser la propriété SelStart :



Text1.SelStart = len(Text1.Text)



Note : ta question fait partie des questions récursives qui sont
demander plusieurs fois pas mois, une toute petite recherche sur le
forum t'aurais permis de trouver plus rapidement une solution !

_____________________________________________________________________
Messages postés
746
Date d'inscription
mardi 25 mars 2003
Dernière intervention
14 juillet 2015
0
Merci
Rahalalaala ça déchire !!! merci beaucoup pour l'infos !!!

A plus,
vegetalain, super content !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.