Sto facendo alcune prove con una Gridview per un mio prossimo probabile progettino:
PUBLIC SUB Form_Open()
DIM nodi AS Integer = 7
WITH Griglia
.Rows.count = nodi
.Columns.count = nodi
.Rows.heigth = 40
.Columns.width = 40
.width = .Columns.width * nodi
.heigth = .Rows.heigth * nodi
END WITH
END
Riguardo width nessun problema, ma heigth me lo rimbalza in tutte le maniere. Cosa devo fare per settare l'altezza delle righe e di conseguenza della griglia?
Ho provato sia in G2 che in G3 ma non cambia nulla. :-\
Ho capito come fare leggendo il Wiki. ma stavolta c'è il problema che uno elimina l'altro.
Facendo in questo modo:
Public Sub Form_Open()
Dim nodi As Byte = 7, i As Byte
With Griglia
.Columns.Count = nodi
.Rows.count = nodi
.Columns.width = 40
.Rows.height = 40
.width = .Columns.width * nodi + 15
.Height = .rows.height * nodi + 28
.header = 2
For i = 0 To .rows.count - 1
.Rows[i].text = Str$(i + 1)
Next
.header = 1
For i = 0 To .Columns.count - 1
.Columns[i].Alignment = Align.Center
.Columns[i].text = Str$(i + 1)
Next
End With
End
Il ciclo fatto per secondo cancella l'header fatto per primo, ed anche facendo solo il ciclo per l'header orizzontale quello verticale sparisce.
Tenete conte del fatto che il numero di nodi non è fisso ma sarà stabilito dall'utente.