Ho la necessità di fare apparire un messaggio MsgBox al click su una colonna/riga specifica di una LV. Attualmente, tramite il seguente codice, al click su una qualsiasi riga/colonna con il tasto destro appare il messaggio; ciò mi impedisce di fare eseguire ulteriori messaggi su altre righe/colonne. L'operazione è fattibile ?
Grazie.codice:Private Sub LvSearch_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single) Dim itm As ListItem Set itm = LvSearch.SelectedItem LvSearch.Refresh If Len(itm.SubItems(4)) > 0 And Button = 2 And vbRightButton Then MsgBox "Numero xxxxxx : " & itm.Text & Chr(13) & Chr(13) & "Composizione yyyyyyyy:" & Chr(13) & Chr(13) & itm.SubItems(4), vbInformation, "Composizione kkkkkkkkkkk" End If End Sub![]()

Rispondi quotando