[VB5] Evidenziare elementi in controllo List con tasto destro del mouse

[vr-claudio]

Ciao ragazzi
un semplice problema, qualcuno mi sa dire come evidenziare un elemento qualsiasi in una List1?

Io ho provato cosi' ma sembra non essere una soluzione:

Dim i As Integer
'For i = List1.ListCount - 1 To 0 Step -1
'List1.Selected(i) = True
'Next i


Ciao grazie mille claudio

[vr-claudio]

Scusate ragazzi
ho dimenticato la cosa piu' importante, EVIDENZIARE CON IL TASTO DESTRO DEL MOUSE!

Scusate tanto
Claudio

[icecube_HT]

Originariamente inviato da vr-claudio
Scusate ragazzi
ho dimenticato la cosa piu' importante, EVIDENZIARE CON IL TASTO DESTRO DEL MOUSE!
Claudio

Spiegati meglio: vorresti evidenziare una voce nella lista col tasto Dx anziche' col Sx ?

Se e' cosi', dovresti usare l'evento MouseUp, testare Button (per verificare che sia premuto il tasto dx), ma poi, visto che l'evento ti fornisce le coordinate X,Y, trasformare queste coordinate nel numero di List selezionato, e impostare tale valore come ListIndex...

[vr-claudio]

Ti ringrazio icecube_HT per la risposta, ma ci capisco gran poco, l'esempio che ti ho mandato è nell'evento List1_MouseDown, e comunque come faccio ad inviduare il numero dell'elemento se gli elementi stessi sono pescati da un database?

Ti chiedo la gentilezza di spiegarmi meglio con in esempio pratico in modo da capirci di piu'.
Grazie mille Claudio

[icecube_HT]

Originariamente inviato da vr-claudio
.. l'esempio che ti ho mandato è nell'evento List1_MouseDown...

Dove mi avresti mandato l'esempio ? Nei messaggi privati non ce l'ho !

Meglio nel MouseUp, comunque prova:

Private Sub List1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   Dim n As Integer, h As Single
   If Button = 2 Then
      h = List1.Font.Size
      n = Int(Y / h )
      If n <= (List1.ListCount - 1) Then List1.ListIndex = n
   End If
End Sub

Dove la variabile h dovrebbe contenere l'altezza in punti di ciascuna riga, in modo da trasformare la variabile Y in numero di riga della List.
Cosi' e' un po' imprecisa, ma funziona.

Ciao !

[vr-claudio]

Grazie icecube_HT
gentilissimo, funziona molto bene!!
Claudio

[vr-claudio]

Ciao ragazzi
scusate se sono ancora qui a stressarvi con i miei problemi con le proprietà delle List1 ma faccio fatica a capire una cosa:

Come ho postato in un'altro post, mi servirebbe sapere come evidenziare elementi in una list1 con il tasto destro del mouse.
Gentilmente un "collega del forum" mi aiuto' postandomi questo codice:

Private Sub List1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim n As Integer, h As Single
If Button = 2 Then
h = List1.Font.Size
n = Int(Y / h)
If n <= (List1.ListCount - 1) Then List1.ListIndex = n
End If
End Sub

...al momonento sembrerebbe funzionare, ma funziona solamente una volta!

Vi chiedo la cortesia di aiutarmi.
Grazie mille
Claudio

[oregon]

Se nel tuo controllo si vedono 10 righe, allora scrivi

    Dim n As Long
    If Button = 2 Then
        n = Int(Y / (List1.Height / 10))
        If n < List1.ListCount Then List1.ListIndex = List1.TopIndex + n
    End If

... ovviamente cambia quel 10 con il numero di righe mostrate dal tuo controllo se queste sono in numero diverso ...

[vr-claudio]

Ciao Oregon
ti ringrazio per la tua email di risposta, ma gli elementi List1 sono caricati nell'evento Load da un database .mdb, quindi è impossibile sapere il numero esatto degli elementi perchè cambieranno sempre

Claudio

[oregon]

Originariamente inviato da vr-claudio
Ciao Oregon
ti ringrazio per la tua email di risposta, ma gli elementi List1 sono caricati nell'evento Load da un database .mdb, quindi è impossibile sapere il numero esatto degli elementi perchè cambieranno sempre

Claudio

Ho detto "numero di righe mostrate" non "numero di righe caricate" ...