Ciao a tutti, ho inserito nel mio progetto il componente microsoft windows common control 6 e ho inserito la listbox...
con questa listbox posso creare 3 diverse colonne e riempirla, e fino a qua nessun problema, poi ho visto che posso abilitare l'intestazione della tabella, pero non so come poter scrivere dentro a queste intestazioni!
Io vorrei mettere un titolo per ogni colonna che ho, è possibile?
questo è il codice che popola la mia list
codice:ListBox1.Clear ListBox1.ColumnCount = 3 ListBox1.ColumnWidths = "5 cm;3,5 cm;3,5 cm" ListBox1.ColumnHeads = True i_list = -1 Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open CN_DB_PRE SQL = "SELECT codice, ore_da_usare, tot_ore, CAUSALI.codice, tipo FROM PERMESSI, CAUSALI WHERE PERMESSI.id_matricola='" & ARR_DIPE(n_dipe) & "' AND CAUSALI.id_causale=PERMESSI.n_causale;" rs.Open SQL, conn While Not rs.EOF If rs.Fields(2).Value <> "00:00" And rs.Fields(2).Value <> "0:0" Then i_list = i_list + 1 ListBox1.AddItem ListBox1.List(i_list, 0) = rs.Fields(0).Value ListBox1.List(i_list, 1) = rs.Fields(1).Value ListBox1.List(i_list, 2) = rs.Fields(2).Value End If rs.MoveNext Wend rs.Close conn.Close Set rs = Nothing Set conn = Nothing
Grazie!
Rispondi quotando
