Un petit exemple sur comment faire descendre l'Ascenseur d'une TextBox :
- etre en MULTILINE
- SCROLLBAR en Vertical
- Utiliser SELSTART
J'arrivais pas à touver alors je medis que quelqu'un en aura peut-être besoin...
Source / Exemple :
Option Explicit
'
'
'************************************************
'
' Ce petit Prog montre coment
' faire descendre l'ascenseur sur
' la fin d'un texte en utilisant "SelStart"
'
'************************************************
'
'
Private Sub Check1_Click()
Montre_Fin_Texte
End Sub
Private Sub Command1_Click()
AjouteTexte "Du texte en plus..."
End Sub
Sub Montre_Fin_Texte()
If Check1.Value = 1 Then Text1.SelStart = Len(Text1.Text) Else Text1.SelStart = 1
End Sub
Sub AjouteTexte(Texte As String)
Text1.Text = Text1.Text + Texte + vbCrLf + vbCrLf
Montre_Fin_Texte
End Sub
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.