Discussion :

[malek_dz77]

Bonjour a tous
J'arrive pas faire defiler la barre de defillement d'une zone de texte mulligne automatiquement.

Merci.

[DarkVader]

Essaies en utilisant la propriété selstart

Exemple avec un controle VScroll

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub VScroll1_Change()
    Me.Text1.SelStart = CInt(VScroll1 * Len(Me.Text1.Text) / 100)
End Sub

[ridan]

Salut,

Il y a aussi une solution avec l'API SendMessage :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    Private Const WM_VSCROLL = &H115
    Private Const SB_LINEDOWN = 1
 
Private Sub Command1_Click()
SendMessage Text1.hwnd, WM_VSCROLL, SB_LINEDOWN, 0
End Sub

Si tu veux atteindre la fin ... utilises la constante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Const SB_BOTTOM = 7

++