[VB6] Visualizzare menu contestuale per ListBox diverso in base a selezione

[Fenix'89]

Ho una form in cui è presente una listbox con un elenco di Nomi

al click con tasto destro del mosue su di essa compare un menù a tendina nel quale ci sono delle opzioni (informazioni personali,invia e-mail, ecc)

devo fare in modo che se clikko nella listbox con il tasto destro senza selezionare un utente e poi clikko in un opzione del menù mi esca un messaggio con scritto "Selezionare un utente"

Come posso fare???

[oregon]

Non si e' capito molto ...

[Fenix'89]

Cerco di spiegarmi meglio:

io ho la listbox riportata in figura

Immagine listbox

Quando clicco con il tasto destro del mouse mi esce il menù a tendina che vedete sempre in figura.
Devo fare in modo che se viene cliccato il tasto destro del mouse quando non è selezionato niente compaia un msgbox e mi blocchi l'uscita del menu a tendina.

Spero di essermi spiegato meglio

[oregon]

Ma il codice che fa apparire il menu, qual e'?

[Fenix'89]

Private Sub Listuseronline_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
PopupMenu frmMain.mnuUseronline
End If

End Sub

Questo è il codice di quando clikko con il tasto destro

[oregon]

Ma quando non e' selezionata nessuna voce del menu, dove faresti il click?

Mica ho capito cosa vuoi fare e soprattutto perche' ...

[Fenix'89]

Ho risolto

Mi serviva che se quando clikkavo con il tasto destro non c'era nessuna voce selezionata non doveva apparire il menù


ho aggiunto questa stringa per risolverlo

If frmUseronline.Listuseronline.Text <> "" Then
If Button = vbRightButton Then
PopupMenu frmMain.mnuUseronline
End If
End If


scusate se nn mi so spiegare :P