Ciao a tutti.
Premetto che programmare (forse per quanto mi riguarda è un eufemismo) non è il mio lavoro e che tutto quel poco che ho fatto è frutto di esempi trovati in rete, elaborati con un po’ di fantasia e con l’aiuto delle varie guide di VBA di EXCEL o VB6.
Veniamo al problema (anche se mi rendo conto che non è un grosso problema) :
è da tempo che sto cercando di realizzare un programma in VB6 per analizzare i costi di cantiere; ad un certo punto mi sono accorto, facendo le varie prove, che in una Listview la selezione di una riga (la prima) viene o non viene evidenziata in blu a seconda di come viene lanciato il codice che determina questa selezione.
Mi spiego meglio:
- Lo scopo è quello di visualizzare la lista delle bolle emesse dei vari fornitori
- Quando il focus si posiziona sulla textbox del fornitore (TxbFornitore), in automatico vengono proposti nella Listview tutti i vari fornitori prelevati da un db di Access, e fin qui tutto bene.
- A questo punto ho due possibilità e cioè fare doppio click oppure posizionarmi (con le frecce) sulla riga del fornitore prescelto e premere input.
- Con l’esecuzione di una delle due possibilità, a scelta, viene eseguito il medesimo codice e il risultato è la “pulizia” dalla Listview dai nominativi dei fornitori e nella stessa Listview si elencano le bolle del fornitore prescelto e si dovrebbe evidenziare in blu la prima riga (.listitens(1)) dell’elenco delle bolle.
- Questo accade correttamente (si evidenzia la prima riga) se l’operazione la faccio posizionandomi con le frecce sul fornitore (uno qualsiasi) e premo input, ma se decido di utilizzare il doppio click il tutto funziona (si evidenzia la prima riga) solo se lo faccio sul primo fornitore dell’elenco; se faccio il doppio click sul secondo fornitore, si elencano cmq le sue bolle ma la prima riga non si evidenzia in blu.
Mi rendo conto che probabilmente è solo un problema “estetico” ma la cosa mi fa girare gli zebedei perché non riesco a spiegarmi il motivo di questo comportamento della Listview.
In fin dei conti vengono utilizzate le mdesime righe di codice, almeno credo, per quel che ne capisco io.
Ho provato anche ad inserire:
With FormPNB.ListView1
.SetFocus
.ListItems(1).Selected = True
End With
Niente da fare………………
C’è qualcuno che ha voglia di perdere un po’ di tempo e darmi un aiuto?
Ringrazio anticipatamente per le risposte.
PS. Allego il link per scaricare il progetto (sfoltito da tutto quello che non serve) per poter vedere quanto sopra esposto.
Scarica
Rispondi quotando
e grazie per la tua gentilezza! 
