Far combaciare le immagini poste in due celle adiacenti di una GridView
Normalmente in una "GridView", pur facendo adattare la dimensione di due celle contigue alle immagini in esse contenute, fra le due immagini si notano la linea verticale che fa parte della griglia della "GridView" stessa e uno spazio di non meno tre pixel.
Per far combaciare perfettamente due immagini fra loro contigue, bisognerà eliminare i due problemi sopra citati.
Per non far apparire la linea della griglia, si dovrà assegnare alla Proprietà ".Grid" dell'Oggetto "GridView" il valore booleano "False":
GridView1.Grid = False
Per eliminare lo spazio fra le due immagini, facendo combaciare i loro lati, si dovrà assegnare un valore negativo alla Poprietà ".Padding" dell'Oggetto "GridView":
GrdiView1.Padding = -1
Mostriamo un esempio pratico, nel quale si creerà da codice una "GridView" composta da una griglia avente due righe e tre colonne. In ogni cella sarà assegnata un'immagine.
Inoltre, per verificare la correttezza di quanto sopra esposto, verrà assegnato alla proprietà ".Background" della "GridView" il valore corrispondente al colore arancione. Pertanto, se il test non va bene, si vedrà una linea verticale di colore arancione fra due o fra tutte le celle contenti le immagini.
Public Sub _new() With Me .W = Screen.AvailableWidth .H = Screen.AvailableHeight End With End Public Sub Form_Open() Dim im As Image Dim GridView1 As GridView ' Crea un Oggetto "Image" caricando un file immagine: im = Image.Load("/percorso/del/file/immagine") With GridView1 = New GridView(Me) ' Crea un "GridView" sul Form .X = Me.W * 0.2 .Y = Me.W * 0.1 .Columns.Count = 3 .Rows.Count = 2 .W = im.W * GridView1.Columns.Count .H = im.H .Background = Color.Orange ' Non fa apparire le linee costitutive della griglia della "GridView": .Grid = False ' Con un valore negativo ogni cella si adatterà all'immagine che in essa sarà caricata: .Padding = -1 End With ' Imposta la dimensione di ciascuna cella della GridView: GridView1.Rows.H = im.H GridView1.Columns.Width = im.W ' Assegna ad ogni cella la medesima immagine caricata: GridView1[0, 0].Picture = im.Picture GridView1[0, 1].Picture = im.Picture GridView1[0, 2].Picture = im.Picture GridView1[1, 0].Picture = im.Picture GridView1[1, 1].Picture = im.Picture GridView1[1, 2].Picture = im.Picture End