Affichage progressif [Résolu]

vegetalain 746 Messages postés mardi 25 mars 2003Date d'inscription 14 juillet 2015 Dernière intervention - 21 janv. 2006 à 12:02 - Dernière réponse : vegetalain 746 Messages postés mardi 25 mars 2003Date d'inscription 14 juillet 2015 Dernière intervention
- 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
jannoman 258 Messages postés jeudi 17 avril 2003Date d'inscription 20 février 2008 Dernière intervention - 21 janv. 2006 à 12:45
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

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 121 internautes ce mois-ci

cs_DARKSIDIOUS 15838 Messages postés jeudi 8 août 2002Date d'inscription 4 mars 2013 Dernière intervention - 21 janv. 2006 à 12:40
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 !

_____________________________________________________________________
vegetalain 746 Messages postés mardi 25 mars 2003Date d'inscription 14 juillet 2015 Dernière intervention - 21 janv. 2006 à 16:14
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.