Differenze tra le versioni di "Usare la ScrollView"

Versione delle 11:52, 11 ott 2021

La ScrollView è un "Contenitore", come una sorta di "Panel", la cui superficie può scorrere grazie alla presenza di due bande: verticale e orizzontale. E' possibile anche usare una sola banda scorrevole o nessuna.
Per far mostrare le bande laterali, è necessario assegnare un valore opportuno alla Proprietà ".ScrollBar" della Classe "ScrollView".
Se l'Oggetto grafico, contenuto nella "ScrollView" ha una dimensione eguale o inferiore (ossia entrambe le Proprietà ".W" e ".Y" inferiore a quelle della "ScrollView"), le bande laterali scorrevoli della "ScrollView" non saranno mostrate.
Le bande laterali scorrevoli saranno mostrate, se il valore delle due predette Proprietà ".W" e ".Y" sono superiore a quelle della "ScrollView".
Mostriamo un esempio mediante una "PictureBox" avente dimensioni superiori alla "ScrollView" che le fa da Contenitore (ossia da Oggetto "Padre "):

Private ScrollView1 As ScrollView
Private PictureBox1 As PictureBox

Public Sub Form_Open()
 
 With Me
   .W = Screen.AvailableWidth * 0.7
   .H = Screen.AvailableHeight * 0.8
   .Center
 End With
 With ScrollView1 = New ScrollView(Me) As "ScrollView1"
   .W = Me.W * 0.5
   .H = Me.H * 0.5
   .X = (Me.W * 0.5) - (.W / 2)
   .Y = (Me.H * 0.5) - (.H / 2)
   .ScrollBar = Scroll.Both
 End With
 With PictureBox1 = New PictureBox(ScrollView1)
   .X = 0
   .Y = 0
   .W = ScrollView1.W * 1.5
   .H = ScrollView1.H * 1.5
   .Border = Border.Plain
   .Image = Image.Load("/percorso/del/file/immagine")
 End With
 
End

Public Sub ScrollView1_Scroll()   ' Questo Evento viene sollevato, quando si agisce sulle bande laterali scorrevoli
 
 Me.Text = Cstr(ScrollView1.ScrollX) & "   " & Cstr(ScrollView1.Scrolly)
 
End

Qualora, però, l'Oggetto, contenuto nella "ScrollView" - pur essendo di dimensioni inferiori alla "ScrollView" - sia posto a delle coordinate ".X" e ".Y" tali che esso debordi dalla superficie della "ScrollView", una o entrambe le bande laterali della "ScrollView" saranno mostrate.

 Private ScrollView1 As ScrollView
Private PictureBox1 As PictureBox

Public Sub Form_Open()
 
 With Me
   .W = Screen.AvailableWidth * 0.7
   .H = Screen.AvailableHeight * 0.8
   .Center
 End With
 With ScrollView1 = New ScrollView(Me) As "ScrollView1"
   .W = Me.W * 0.5
   .H = Me.H * 0.5
   .X = (Me.W * 0.5) - (.W / 2)
   .Y = (Me.H * 0.5) - (.H / 2)
   .ScrollBar = Scroll.Both
 End With
 With PictureBox1 = New PictureBox(ScrollView1)
   .X = 300
   .Y = 200
   .W = ScrollView1.W * 0.5
   .H = ScrollView1.H * 0.5
   .Border = Border.Plain
   .Image = Image.Load("/percorso/del/file/immagine")
 End With
 
End

Public Sub ScrollView1_Scroll()
 
 Me.Text = Cstr(ScrollView1.ScrollX) & "   " & Cstr(ScrollView1.Scrolly)
 
End

Pagina in costruzione !