Differenze tra le versioni di "ListBox con due o più righe per item"
Da Gambas-it.org - Wikipedia.
| Riga 1: | Riga 1: | ||
Attualmente non c'è una risorsa per ottenere in un item di una ''ListBox'' due o più righe testuali, ma in modo tale che il testo sia ben mostrato senza tagli. | Attualmente non c'è una risorsa per ottenere in un item di una ''ListBox'' due o più righe testuali, ma in modo tale che il testo sia ben mostrato senza tagli. | ||
| − | Si farà affidamento e si opererà, allora, sul Controllo ''Figlio'', la | + | Si farà affidamento e si opererà, allora, sul Controllo ''Figlio'', la ''GridView'' che offre la possibilità all'Oggetto ''ListBox'' di contenere item con testo. |
Per garantire all'<i>item</i> della "ListBox" lo spazio in altezza sufficiente e necessario per la chiara visualizzazione del testo suddiviso in due o più righe, si assegnerà il valore -1 alla Proprietà ".Height" della Proprietà ".Rows" della ''GridView'' "Figlia". | Per garantire all'<i>item</i> della "ListBox" lo spazio in altezza sufficiente e necessario per la chiara visualizzazione del testo suddiviso in due o più righe, si assegnerà il valore -1 alla Proprietà ".Height" della Proprietà ".Rows" della ''GridView'' "Figlia". | ||
| Riga 7: | Riga 7: | ||
Mostriamo un esempio pratico: | Mostriamo un esempio pratico: | ||
| − | + | Public Sub Form_Open() | |
Dim gw As GridView | Dim gw As GridView | ||
| Riga 21: | Riga 21: | ||
Next | Next | ||
| − | + | End | |
Versione attuale delle 16:31, 20 giu 2024
Attualmente non c'è una risorsa per ottenere in un item di una ListBox due o più righe testuali, ma in modo tale che il testo sia ben mostrato senza tagli.
Si farà affidamento e si opererà, allora, sul Controllo Figlio, la GridView che offre la possibilità all'Oggetto ListBox di contenere item con testo.
Per garantire all'item della "ListBox" lo spazio in altezza sufficiente e necessario per la chiara visualizzazione del testo suddiviso in due o più righe, si assegnerà il valore -1 alla Proprietà ".Height" della Proprietà ".Rows" della GridView "Figlia".
Mostriamo un esempio pratico:
Public Sub Form_Open()
Dim gw As GridView
Dim b As Byte
With ListBox1
.List = ["DATO1.1\nDATO1.2", "DATO2.1\nDATO2.2"]
gw = .Children[0]
End With
For b = 0 To ListBox1.List.Max
gw.Rows[b].Height = -1
Next
End
