Comment faire descendre l'ascenseur ou scrollbar pour une textbox

Télécharger le projet
Commenter

Description

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (louisvbfrance)