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)
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
A me si apre senza problemi, e se vuoi lo scorrimento nell'altro verso, basta mettere il meno (cambiare di segno):
.Ellipse(50, -ScrollArea1.ScrollY, 200, 200) ' o si prefieres: (...., - ScrollArea1.ScrollY, ......)
o stai dicendo un'altra cosa?
:ciao:
Non mi viene in mente niente, prova a cambiare così:
Me.Width = Desktop.Width - 200
Me.Height = Desktop.Height - 200
Ora devo uscire ne riparliamo domani :ciao: