🚀 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
>
>
>