[VB 6] ListBox con checkbox

[xonica]

Ho notato una cosa: se uso una ListBox con checkbox e via codice setto una checkbox con l'operazione

ListBox.Selected(i) = True

parte automaticamente la funzione

  Private Sub ListBox_ItemCheck(Item As Integer)
  ...
  End sub

che dovrebbe partire quando l'utente va a cliccare sulla checkbox e non quando questa viene settta via codice.

Qualcuno ha trovato una sorta di soluzione a questo problemino?

[ladyBlu]

Sia che il settaggio del controllo avvenga da codice, sia che invece lo faccia l'utente col mouse l'evento ItemCheck parte, perchè in entrambi i casi tu Chekki l'Item.
L'evento non è legato all'azione dell'utente, ma al valore del Check dell'Item.

Spero di essere stata chiara

[tas]

Usa un flag:

'nelle dichiarazioni del form
Private flag As Boolean

'codice
flag = True
ListBox.Selected(i) = True
flag = False

'evento
Private Sub ListBox_ItemCheck(Item As Integer)
   If flag Then Exit Sub

   ...
End sub

[xonica]

Originariamente inviato da tas
Usa un flag:

'nelle dichiarazioni del form
Private flag As Boolean

'codice
flag = True
ListBox.Selected(i) = True
flag = False

'evento
Private Sub ListBox_ItemCheck(Item As Integer)
   If flag Then Exit Sub

   ...
End sub

IMMAGINAVO CHE AVREI DOVUTO USARE IL FLAG MA SPERAVO CHE CI FOSSE QLK DI PIU' FACILE DA GESTIRE.... OK GRAZIE A TUTTI!!

:mavieni: