[VB6] Scrollbar + Frame avec Textbox créer dynamiquement

Question

Bonjour &#224; tous,

Voil&#224; j'ai un formulaire avec :

- une Frame, Frame1, &#224; l'int&#233;rieur de celle-ci :
   * une Autre Frame2 et &#224; l'interieur de celle-ci :
            *2 picturebox, Picture1(0) et Picture2 (0) :
                  * A l'interieur de la Picture1(0), il y a une Textbox, Text1(0)
                  * A l'interieur de la Picture2(0), il y a une TextBox, Text2(0)
             * et un Label1(0) non visible
- une scrollbar vertical.

Je vous explique le principe de mon formulaire :

La frame2 et de la m&#234;me hauteur et largeur que les PictureBox.
La frame1 fait tout le formulaire.

Lorsque je clique sur lancer mon application :
- le focus se met sur ma Text1(0), lorsque j'ecrit quelquechose dans ma Text1(0) il y a une ligne qui se rajoute , c'est &#224; dire Picture1(1) avec Text1(1) &#224; l'interieur, Picture2(1) avec Text2(1) &#224; l'interieur  et Le Label1(1). Et la taille de frame1 s'ajuste avec la 2&#232;me ligne.


- Quand je finis de taper quelquechose dans la Text1(0) pour passer &#224; la Text2(0), je fais tab et la j'ecris quelquechose dans la Text2(0). Et quand j'ai finis de taper dans la Text2(0), je fais tab, pour passer &#224; la Text1(1) et ainsi de suite.

Mais le probl&#232;me c'est que mon formulaire est trop petit alors j'avais penser de mettre une scrollbar veticale &#224; coter de mes deux frames &#224; droite.

Donc voil&#224; ce que je veux faire :

Par exemple :
On tape :
Text1   Text2
aaaaa   bbbbb
ccccc   ddddd
eeeee    ffffffff
.........   ..........
www   xxxxxx
yyyyy   zzzzzzz (c'est la ligne n)
..........  ........... (et l&#224; ligne n + 1 qui est vide)

Mais dans le formulaire on voit :
Text1   Text2
aaaaa   bbbbb
ccccc   ddddd
eeeee    ffffffff
.........   ..........
www   xxxxxx
yyyyy   zzzzzzz (c'est la ligne n)

Et donc la ligne vide n'est pas visible et moi j'aimerai faire cela :

Text1   Text2
aaaaa   bbbbb
ccccc   ddddd
eeeee    ffffffff
.........   ..........
www   xxxxxx

et lorsque l'on arrive &#224; la derni&#232;re ligne visible, on met la derni&#232;re ligne visible tout en haut de mon frame et on voit que la scrollbar est descendus :
yyyyy   zzzzzzz (c'est la ligne n)
..........  ........... (et l&#224; ligne n + 1 qui est vide)

Et ainsi on recommence.

Pouvez-vous m'aider?

Merci d'avance.

Ps : si ce n'est pas compr&#233;hensible dites le moi.

bb181185 · Answer

euh j'ai oublier de dire que je voudrai faire cela lorsque le height de la frame2 et egale ou superieur &#224; celle de la frame1.

Merci d'avance

PCPT · Answer

salut, voici le principe créé une nouveau projet. une une Form1, pose un Command1 et une Frame1 dans la Frame1, pose une VScroll1 à droite, de toute la taille de la Frame1. dans le Frame1, pose une Picture1 dans la Picture1, pose une Text1(0) voici le code. il devrait t'éclairer sur le fonctionnement Option Explicit ' Dim iIndexLoad As Integer ' ' Private Sub Form_Load() ' redim la picture container Picture1.Top = 0 Picture1.Height = Text1(0).Height + 50 ' scroll VScroll1.Max = Picture1.Height VScroll1.Visible = False ' index iIndexLoad = 0 Text1(iIndexLoad).Top = 0 Text1(iIndexLoad).Text = CStr (iIndexLoad) End Sub ' ' Private Sub Command1_Click() ' load iIndexLoad = iIndexLoad + 1 Load Text1(iIndexLoad) ' place Text1(iIndexLoad).Top = Text1(iIndexLoad - 1).Top + Text1(iIndexLoad).Height + 50 Text1(iIndexLoad).Text = CStr (iIndexLoad) Text1(iIndexLoad).Visible = True ' pic container Picture1.Height = Text1(iIndexLoad).Top + Text1(0).Height + 50 ' scroll VScroll1.Max = Picture1.Height If Picture1.Height > Frame1.Height Then VScroll1.Visible = True VScroll1.Value = VScroll1.Max End If End Sub Private Sub VScroll1_Change() If VScroll1.Visible Then Picture1.Top = Frame1.Height - Picture1.Height End Sub Coloration syntaxique automatique [AFCK] pour des raisons de simplicité de relecture, je te conseille tout de même de te faire un usercontrol. il doit y en avoir sur VbF (container avec Scroll) ++ PCPT [AFCK]

bb181185 · Answer

J'ai tester ton code mais il y a un petit probl&#232;me je ne peux pas bouger ma scrollbar. Est-Ce normal?

Merci d'avance.

PCPT · Answer

la scroll est aussi &#224; coder.

bb181185 · Answer

Comment tu fais pour coder la scroll?

PCPT · Answer

tu joues avec un bool&#233;en.

exemple (d&#233;claration g&#233;n&#233;rale) Dim bScrollManuel as boolean





Private Sub VScroll1_Change() 

    if bScrollManuel then exit sub

     If VScroll1.Visible Then Picture1.Top = Frame1.Height - Picture1.Height 
 End Sub



et dans l'&#233;v&#232;nement Scroll

bScrollManuel=true

    et la tu changes le Picture1.Top en fonction de VScroll1.Value

bScrollManuel=False

bb181185 · Answer

Mais &#224; quoi sert le booleen?

PCPT · Answer

tu vois un bool&#233;en qui, s'il est TRUE, fait sortir d'une proc&#233;dure.

faut pas chercher &#233;norm&#233;ment si?

en scrollant, le .Value va changer, d&#233;clenchant le Change (et donc le code qui est &#233;crit.. en DOUBLE sur ton topic ;) )

[VB6] Scrollbar + Frame avec Textbox créer dynamiquement

8 réponses

Discussions similaires