🚀 go-pugleaf

correctie *****
>
> Op een formulier dien ik een aantal control arrays te plaatsen.  Het
aantal
> is in theorie ongelimiteerd.  De buttons en text arrays worden geschikt
van ****
> boven **** naar beneden.
>
> Hoe kan ik nu de buttons zien dat buiten mijn scherm komen te liggen. .
> Blijkbaar worden de buttons buiten het scherm wel gecreeerd, maar er komen
> geen scrollbars op het formulier te voorschijn ...
> Ik vindt geen eigenschap zoals scrollbars terug  bij het formulier
>
> Graag idee�n om dit op te vangen !!!
>
>
> THX.
>
>
> ---------------------------  formulier
> button (0)
> button (1)
> button (2)
> button (3)
> button (4)
> ----------------------------
> button (5)
> button (6)
>
>
> programma  :
>
> Option Explicit
> Dim bytteller As Byte
> Dim bytlus As Byte
> Private Sub cmdtest_Click(Index As Integer)
> If Index = 0 Then
>     ' voeg telkens een button bij
>     bytteller = bytteller + 1
>     Load cmdtest(bytteller)
>     cmdtest(bytteller).Top = cmdtest(bytteller - 1).Top +
> cmdtest(bytteller).Height
>     cmdtest(bytteller).Caption = bytteller
>     cmdtest(bytteller).Visible = True
>     frm_12_Personeelsplanning.Height = 5000 + (cmdtest(bytteller).Height *
> bytteller)
> Else
>     ' verwijder een button
>     For bytlus = 1 To bytteller
>         Unload cmdtest(bytlus)
>     Next
>     bytteller = bytteller - 1
>     For bytlus = 1 To bytteller
>         Load cmdtest(bytlus)
>     cmdtest(bytlus).Top = cmdtest(bytlus - 1).Top + cmdtest(bytlus).Height
>     cmdtest(bytlus).Caption = bytlus
>     cmdtest(bytlus).Visible = True
>     frm_12_Personeelsplanning.Height = 5000 + (cmdtest(bytlus).Height *
> bytteller)
>     Next
> End If
> End Sub
>
> Private Sub Form_Load()
> bytteller = 0
>
> End Sub
>
>
>

"2coyote" <2coyote@pandora.be> wrote in message
news:GPfoa.53027$t_2.4905@afrodite.telenet-ops.be...
> correctie *****
> >
> > Op een formulier dien ik een aantal control arrays te plaatsen.  Het
> aantal
> > is in theorie ongelimiteerd.  De buttons en text arrays worden geschikt
> van ****
> > boven **** naar beneden.
> >
> > Hoe kan ik nu de buttons zien dat buiten mijn scherm komen te liggen. .
> > Blijkbaar worden de buttons buiten het scherm wel gecreeerd, maar er
komen
> > geen scrollbars op het formulier te voorschijn ...
> > Ik vindt geen eigenschap zoals scrollbars terug  bij het formulier
> >

De standaardmethode: plaats op je form een scrollbar en en picbox. De
picturebox gaat dienst doen als container voor je controls, zet de breedte
dus op (form-scrollbar). De lengte start op de lengte van de form en laat je
meegroeien naarmate je controls toevoegt. (Vergroot de lengte in dezelfde
routine die controls toevoegt)
Van het moment dat de lengte groter is dan die van de form, activeer je de
scrollbar. Min is 0, Max is (lengte picbox -lengte form). In het scroll
event van de scrollbar, pas je de "top" eigenschap aan van de picbox
(negatief, zodat dat stuk van het scherm af scrollt.

Steven

PS VB.NET ondersteunt dit nu volautomatisch

"Steven Van Dalem" <gilian@pandora.be> schreef in bericht
news:Vehoa.53110$t_2.4942@afrodite.telenet-ops.be...
>
> "2coyote" <2coyote@pandora.be> wrote in message
> news:GPfoa.53027$t_2.4905@afrodite.telenet-ops.be...
> > correctie *****
> > >
> > > Op een formulier dien ik een aantal control arrays te plaatsen.  Het
> > aantal
> > > is in theorie ongelimiteerd.  De buttons en text arrays worden
geschikt
> > van ****
> > > boven **** naar beneden.
> > >
> > > Hoe kan ik nu de buttons zien dat buiten mijn scherm komen te liggen.
.
> > > Blijkbaar worden de buttons buiten het scherm wel gecreeerd, maar er
> komen
> > > geen scrollbars op het formulier te voorschijn ...
> > > Ik vindt geen eigenschap zoals scrollbars terug  bij het formulier
> > >
>
> De standaardmethode: plaats op je form een scrollbar en en picbox. De
> picturebox gaat dienst doen als container voor je controls, zet de breedte
> dus op (form-scrollbar). De lengte start op de lengte van de form en laat
je
> meegroeien naarmate je controls toevoegt. (Vergroot de lengte in dezelfde
> routine die controls toevoegt)
> Van het moment dat de lengte groter is dan die van de form, activeer je de
> scrollbar. Min is 0, Max is (lengte picbox -lengte form). In het scroll
> event van de scrollbar, pas je de "top" eigenschap aan van de picbox
> (negatief, zodat dat stuk van het scherm af scrollt.
>
> Steven
>
> PS VB.NET ondersteunt dit nu volautomatisch
>
>
Alvast bedankt voor de uitleg Steven.  Je hebt mij een hoop zoekwerk
uitgespaard.

Marc.