Salve ragazzi, ciao moderatori.
Ho un problema..tanto per cambiare.
Ho una listview su una form.
un selectcase, a seconda di un valore, richiama una sub di impostazione delle proprietà della listview e poi quella per popolarla:
'Impostazioni
'----------------------------------------------------------
Private Sub ImpostaListViewSoluzione()
With frmForm
'paramentri di base
.ListView1.MousePointer = ccDefault
.ListView1.View = lvwReport 'tipo di layout della lista
.ListView1.Arrange = lvwNone
.ListView1.LabelEdit = lvwManual
.ListView1.BorderStyle = ccFixedSingle
.ListView1.Appearance = cc3D
.ListView1.OLEDragMode = ccOLEDragManual
.ListView1.OLEDropMode = ccOLEDropNone
.ListView1.HideSelection = True
.ListView1.LabelWrap = True
.ListView1.Enabled = True
.ListView1.FullRowSelect = True
.ListView1.Font.Name = "arial"
.ListView1.Font.Size = 7
'colonne
.ListView1.ColumnHeaders.Add , , "Nome", 60
.ListView1.ColumnHeaders.Add , , "Valore", 80
End With
End Sub
'----------------------------------------------------------
Mentre popolo la listview con il seguente codice:
'Popola1
'--------------------------------------------------------
Private Sub VisualizzaVariabili()
With frmForm
'Dimensioni
Set itmX1 = .ListView1.ListItems.Add(, , Format("Lato corto", ""))
Set sitmX1 = .ListView1.ListItems.Item(itmX1.Index).ListSubItem s.Add(, , LatoCorto & " cm", dec))
Set itmX1 = .ListView1.ListItems.Add(, , Format("Lato lungo", ""))
Set sitmX1 = .ListView1.ListItems.Item(itmX1.Index).ListSubItem s.Add(, , LatoLungo & " cm", dec))
end with
end sub
'--------------------------------------------------------
in form load ho:
'----------------------------------------
Select case stringa
case stringa = "1"
Call ImpostaListViewSoluzione
Call VisualizzaVariabili
case stringa = "2"
Call ImpostaListViewSoluzione
Call VisualizzaVariabiliSeOpenFile
end select
'-----------------------------------------
La sub VisualizzaVaribiliSeOpenFile è la stessa di VisualizzaVariabili
solo che cambiano le variabili da visualizzare.
La prima sub, dopo aver chiamato la sub delle impostazioni della listview, visualizza correttamente i dati nella listview stessa.
La seconda sub, dopo aver chiamato la sub di impostazione, non visualizza i dati, e anzi il prog si blocca mostrando il seguente messaggio d'errore:
'------------------------------------------------------------
Errore di run-time '35613':
Il controllo ImageList deve essere inizializzato prima di poter essere utilizzato.
'------------------------------------------------------------
Il problema è che io non ho nessuna ImageList nella form e non riesco a capire dove sbaglio.
Qualcuno può aiutarmi ?!
grazie anticipatamente.
Rispondi quotando
