Dunque... dovrei aver risolto: è necessario assegnare un valore negativo alla Proprietà ".Padding" dell'Oggetto "GridView".
Mostro 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 scaricata da internet. Pertanto sarà
necessario attivare preventivamente anche i Componenti gb.net e gb.net.curl .
Alla proprietà ".Background" della "GridView" verrà assegnato il valore corrispondente al colore arancione. Quindi, se il test non va bene, si vedrà una linea verticale di colore arancione fra due o fra tutte le celle contenti le immagini.
Resta necessario anche assegnare il valore booleano "False" alla Proprietà ".Grid" della "GridView".
Public Sub _new()
With Me
.W = Screen.AvailableWidth
.H = Screen.AvailableHeight
End With
End
Public Sub Form_Open()
Dim hc As New HttpClient
Dim s As String
Dim GridView1 As GridView
Dim im As Image
' Scarica da internet un'immagine:
s = hc.Download("https://ps.w.org/tiny-compress-images/assets/icon-256x256.png")
hc.Close
' Crea un Oggetto "Image" con i dati in formato stringa dell'immagine scaricata:
im = Image.FromString(s)
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 scaricata da internet:
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