Differenze tra le versioni di "Usare la ScrollArea"
| Riga 23: | Riga 23: | ||
.Brush = Paint.Color(Color.Blue) | .Brush = Paint.Color(Color.Blue) | ||
.LineWidth = 3.5 | .LineWidth = 3.5 | ||
| − | .Ellipse(50, ScrollArea1.<FONT Color=#B22222>ScrollY</font>, 200, 200) <FONT Color=gray>' ''oppure | + | .Ellipse(50, ScrollArea1.<FONT Color=#B22222>ScrollY</font>, 200, 200) <FONT Color=gray>' ''oppure con il valore negativo: (...,</font> '''-''' <FONT Color=gray>ScrollArea1.ScrollY, ...)</font> |
.Stroke | .Stroke | ||
.End | .End | ||
Versione delle 02:46, 11 ott 2019
Per utilizzare un oggetto "ScrollArea" bisogna tenere presente alcuni accorgimenti:
1) definire con il Metodo ".ResizeContents( )" l'area del contenuto que sarà disegnato nella ScrollArea.
2) considerare i valori delle proprietà ".ScrollX" e ".ScrollY" quando si disegna dentro il gestore dell'evento _Draw( ) (almeno per le cose che devono spostarsi con le barre di spostamento). Quando la ScrollArea disegna, questo Oggetto deve usare le proprietà ".ScrollX" e ".ScrollY" per conoscere quanto si deve spostare ciò che viene disegnato dentro il gestore dell'evento _Draw( ). Insomma, mediante le proprietà ".ScrollX" e ".ScrollY" bisogna decidere in quali coordinate dentro il disegno si inizia a disegnare nella Scroll'Area.
Mostriamo un esempio pratico:
Public Sub Form_Open() With ScrollArea1 .ResizeContents(ScrollArea1.W, ScrollArea1.H + 200) .ScrollBar = Scroll.Vertical .Background = Color.Lighter(Color.Yellow) End With End Public Sub ScrollArea1_Draw() With Paint .Brush = Paint.Color(Color.Blue) .LineWidth = 3.5 .Ellipse(50, ScrollArea1.ScrollY, 200, 200) ' oppure con il valore negativo: (..., - ScrollArea1.ScrollY, ...) .Stroke .End End With End
