Vorrei utilizzare una colonna di una ListView per portarmi dietro dei dati, ma vorrei che fosse invisibile
Impostando la larghezza della colonna a 0 non si vede nulla, ma basta trascinarle che diventa visibile...
Come posso fare?
Vorrei utilizzare una colonna di una ListView per portarmi dietro dei dati, ma vorrei che fosse invisibile
Impostando la larghezza della colonna a 0 non si vede nulla, ma basta trascinarle che diventa visibile...
Come posso fare?
visitate www.pcprimipassi.it, il portale italiano per i neofiti del computer
"Tanto prima o poi ti buco...." disse il baco alla noce!
VB6 o VB.NET? Prova a vedere se ti basta la proprietà Tag di ogni item. Ciao
Chi non cerca trova.
VB6....il tag si, può bastare ma vuole solo valori stringa, per cui volevo sapere come fare per rendere invisibile una colonna...anche perchè se devo rendere invisibili più dati diversi diventa un problema mettere tutto sulla proprietà TAG
visitate www.pcprimipassi.it, il portale italiano per i neofiti del computer
"Tanto prima o poi ti buco...." disse il baco alla noce!
In Tag puoi mettere una stringa, di conseguenza anche un numero trasformato in stringa:
Eventualmente se hai più dati li potresti memorizzare così:codice:ListView1.ListItems(2).Tag = CStr(numero)
ed estrarli con la funzione Split.codice:ListView1.ListItems(2).Tag = nome & "|" & cognome & "|" & eta
Altrimenti potresti memorizzare i dati aggiuntivi in una collection di oggetti personalizzati:
In quest'ultimo esempio ho associato ad ogni item della listview una chiave unica key, la stessa che utilizzo per memorizzare i dati aggiuntivi nella collection c. Per estrarre i dati aggiuntivi:codice:'in un modulo di classe: Class1 Public nome As String Public peso As Integer Public natoil As Date 'nel form: Private c As New Collection Private Sub CaricaListView() Dim li As ListItem Dim i As Integer Dim key As String Dim dato As Class1 For i = 1 To 10 key = "key_" & i Set li = ListView1.ListItems.Add(, key, "Elemento " & i) li.SubItems(1) = ... Set dato = New Class1 dato.nome = ... dato.peso = ... dato.natoil = ... c.Add dato, key Next End Sub
codice:Private Sub ListView1_ItemClick(ByVal Item As ListItem) Dim dato As Class1 Set dato = c(Item.Key) Debug.Print dato.nome, dato.peso, dato.natoil End Sub
Chi non cerca trova.
Grazie...sei stato gentilissimo!![]()
visitate www.pcprimipassi.it, il portale italiano per i neofiti del computer
"Tanto prima o poi ti buco...." disse il baco alla noce!