Scusa se intervengo ma io se uso il tuo codice su una normale finestra lasciandola alle stesse misure di come si apre nella mia IDE (512 X 512) non vedo la barra verticale.
Se riduco la finestra e ridimensiono già nel disegno la Drawing alla stessa dimensione e lascio il codice:
.Ellipse(50, ScrollArea1.ScrollY, 200, 200)
Agendo sulla scroll ottengo un movimento rovesciato e cioè non vedo quello che stà sotto ma bensì quanto è sopra il disegno, quindi il "-"
non se preferisce...
Penso che l'esempio andrebbe riscritto così, naturalmente nella realtà la drawingarea avrebbe le misure del grafico:
Public Sub Form_Open()
With ScrollArea1
.W = Me.W
.H = Me.H
.ScrollBar = Scroll.Vertical
.Background = Color.Lighter(Color.Yellow)
.ResizeContents(ScrollArea1.W, ScrollArea1.H + Me.H)
End With
End
Public Sub ScrollArea1_Draw()
With Paint
.Brush = Paint.Color(Color.Blue)
.LineWidth = 3.5
.Ellipse(50, -ScrollArea1.ScrollY + 50, 200, 200)
.Stroke
.End
End With
End
