Hej

Jag håller på att göra en liten applikation som kommer ha olika många kontroller på sig beroende på vissa inställningar. Det betyder att jag kommer skpa kontrollerna i run-time.
Problemet är att om det blir väldigt många (tex) knappar så får de inte plats på formen. Jag skulle vilja att det kom fram en vertikal scrollbar vid detta tillfälle. Går det att lösa på något smidigt sätt?

Jag har funderat på DataRepeatern eller ha en mdi-form med en vanlig form i som växer i takt med kontrollerna. Men båda känns ganska "osnygga".

Några förslag?

Här är ett lite tips jag publicerat på en amerikansk sajt för ett bra tag sedan. Men det funkar...

'Add a Picturebox
'Add a VScrollBar
'Add a HScrollBar
'Add the following code to the form:
Private Sub Form_Resize()
VScroll1.Move ScaleWidth - VScroll1.Width, ScaleTop, VScroll1.Width, ScaleHeight - HScroll1.Height
HScroll1.Move ScaleLeft, ScaleHeight - HScroll1.Height, ScaleWidth - VScroll1.Width, HScroll1.Height

Scrolling
End Sub
Private Sub Scrolling()
If Picture1.Width > (ScaleWidth - VScroll1.Width) Then
HScroll1.Max = Picture1.Width - (ScaleWidth - VScroll1.Width)
HScroll1.Enabled = True
Else
HScroll1.Max = HScroll1.Min
HScroll1.Enabled = False
End If

If Picture1.Height > (ScaleHeight - HScroll1.Height) Then
VScroll1.Max = Picture1.Height - (ScaleHeight - VScroll1.Height)
VScroll1.Enabled = True
Else
VScroll1.Max = VScroll1.Min
VScroll1.Enabled = False
End If

Picture1.Move -HScroll1.Value, -VScroll1.Value
End Sub
Private Sub HScroll1_Change()
Scrolling
End Sub
Private Sub VScroll1_Change()
Scrolling
End Sub

Tack! jag skall testa den.