Visualizza wikitesto di Usare la ScrollArea

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.<FONT Color=#B22222>ScrollY</font>, 200, 200)   <FONT Color=gray>' ''oppure se si preferisce con il valore negativo: (...,</font> '''-''' <FONT Color=gray>ScrollArea1.ScrollY, ...)</font>
    .Stroke
    .End
  End With
  
 '''End'''