PROBLEME 1 ScrollBox pour 5 TextBox !!

Question

Je suis un débutant en prog et je suis à la recherche d'un code permettant de controler 5 textbox (formant un genre de tableau) avec une seule ScrollBar. La ScrollBar doit donc faire descendre les 5 textbox simultanément quand leurs tailles n'est plus assez grande (à partir de 18 lignes)....

Je voudrais également que quand je rajoute du texte à la fin des 5 textbox, la scrollbar soit forcément en bas, affichant le dernier texte ajouté. 
J'ai trouvé un code sur le forum mais je n'arrive pas à l'adapter, de plus je ne vois pas bien à quoi correspondent les variables (ctrl et posit) :

Private Sub VScroll1_Change()
     Dim ctrl As Control
     Static posit As Integer
     For Each ctrl In Controls
      If TypeOf ctrl Is TextBox Then
      If posit < VScroll1.Value Then
      ctrl.Top = ctrl.Top - VScroll1.Value
      Else
      ctrl.Top = ctrl.Top + VScroll1.Value
      End If
      End If
      Next
      posit = VScroll1.Value
      End Sub

Faut-il déclarer une scrollbar dans les textbox ?

Merci de bien vouloir me répondre

econs · Answer

En jouant sur Text1.SelStart, tu pourras dire où tu veux placer ton curseur dans le TextBox

Manu

Stratodarus · Answer

oui ça je l'ai trouvé mon problème c'est plus la scrollbar
merci pour ta réponse

PROBLEME 1 ScrollBox pour 5 TextBox !!

2 réponses

Discussions similaires