barre de défillement dans une textboxRésolu

Question

J'ai créé une interface qui permet de écrir sous forme de programme des coordonnées. Et je voudrais qu'à chaque fois qu'un morceau de text s'écrit, ma barre de défillement montre cette partie (et ne remonte pas jusqu'en haut).
Merci d'avance pour votre aide!

jrivet · Accepted Answer

Salut,

On a déjà du te le dire mais "ca ne fonctionne pas" ne veux RIEN dire pour nous. NOus ce que l'on souhaite savoir c'est y a t il erreur ou pas ?

J'ai testé ce code avant de le proposé.
Un Formulaire avec un TextBox: 
Propriété 
- MultiLine à True
- ScrollBars à 2 - Vertical.
- Height = 675

Un Bouton

Ce code pour tester (suffit d'appuyer sur le bouton => cela ne fait ce que tu souhaites, alors expliques mieux car je ne comprend plus)

Option Explicit

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 EM_LINESCROLL = &HB6

Private Sub Command1_Click()
  Call SendMessage(Text1.hwnd, EM_LINESCROLL, 0, 0)
End Sub<hr />Private Sub Form_Load()
Dim i As Integer
For i = 1 To 10
   Text1.Text = Text1.Text & "Ligne " & i & vbCrLf
Next
End Sub , ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

Salut,
Quel est le code utilisé pour l'ajout du text dans le famleux TextBox?

Peu être peux tu essayer de jouer avec la propriété SelStart du TExtBox

@+: Ju£i?n
Pensez: Réponse acceptée

aurore52230 · Answer

le code utilisé pour l'ajout de text dans ma textbox c un bouton!
Je n'ai pas de propriété SelStart dans ma TExtBox!

Neo020585 · Answer

Bonjour,

Lorsque tu ajoute du texte, tu utilise la méthode AppendText() ?
Pour aller directement au dernier élément ajouté, je te conseille TextBox1.ScrollToCaret()

"Une chose me laisse perplexe : Est-ce moi ou les autres qui sont fous ?" A. Einstein

jrivet · Answer

Salut,
De quel VB parle t on?

@+: Ju£i?n
Pensez: Réponse acceptée

Neo020585 · Answer

Bonjour,

Effectivement, comme jrivet le signale, je tiens à préciser que mon code est du VB.NET.

"Une chose me laisse perplexe : Est-ce moi ou les autres qui sont fous ?" A. Einstein

aurore52230 · Answer

Et bien moi je bosse sur Visual Basic 6.0!

jrivet · Answer

Re,

Essaie peu être

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 EM_LINESCROLL = &HB6

Private Sub Command1_Click()
   Call SendMessage(Text2.hwnd, EM_LINESCROLL, 0, 0)
End Sub<hr />, ----
[code.aspx?ID=41455 By Renfield]

NB: SelStart Propriété disponible dans le code.
De plus de dire "
                        
                        le code utilisé pour l'ajout de text dans ma textbox c un bouton!"  ne le prend pas mal mais cela n'aide pas. Nous ce que l'on souhaite c'est le code qui s'execute lors de l'appui sur le bouton.

Enfin... essaie ce que je t'ai donné

@+: Ju£i?n
Pensez: Réponse acceptée

Kristof_Koder · Answer

Ou simplement ceci :

  With Text2
    .SelStart = Len(.Text)
  End With

aurore52230 · Answer

Jrivet, j'ai essayé se que tu m'as donné mais ça ne fonctionne pas!
Quand a Kristof-Koder je vais essayer se que tu m'as donné!
Encore merci pour votre aide.

aurore52230 · Answer

Cookie
 : 
Anciennement


petit

aurore52230 · Answer

C'est bon ça fonctionne, je l'avais mal utilisé.
Merci!

Barre de défillement dans une textbox

12 réponses

Votre réponse

Discussions similaires