Una duda bastante basica sobre un listview

[Guan]

   Wenas, vereis, esqe yo suelo usar siempre listboxes, y en estas para sacar el menu contextual el codigo qe usaba era:

Código:

Private Sub Listview1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If List1.Text = "" Then Exit Sub
If Button = 2 Then PopupMenu MnuReg
End Sub

   Pero ahora necesito usar un listview y nose como le puedo sacar el menu contextual, y google no me dice nada...
   Alguien me puede exar una manita?
Graxias

[ranefi]

Buena madrugada Guan. Emmmm dejame ver si entendí, buscas hacer lo mismo pero con los controles invertidos, ¿es así? Pues aquí está el código.

Primero debes agregar el control ListView que se encuentra en Componentes (CTRL + T) y seleccionar Microsoft Windows Common Controls 6.0 (SP6), posteriormente crear un menú con el Editor de menús que se encuentra en la Barra de Herramientas estándar, en dicho menú deberás agregar dos opciones, una como Padre y otra como hijo, la Padre deberá llamarse mnuPadre y la otra como desees.

Agregar 1 control ListBox, 1 control ListView e insertar el siguiente código en un...

Formulario

Código:

Private Sub Form_Load()
    List1.AddItem "Soy un ListBox cochino"
    ListView1.ListItems.Add 1, "Uno", "Soy un ListView cochino"
End Sub

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If ListView1.ListItems.Count = 0 Then Exit Sub
    If Button = 2 Then PopupMenu mnuPadre
End Sub

Espero sea lo que buscas, en caso de que no lo sea, entonces especifíca un poco más lo que deseas. Nos vemos.

[Guan]

   Si, eso es para sacar menu contextual en un list box, pues yo lo qe busco es ese mismo cogigo pero usando uh listview, porqe en un listview eso no me funciona, pero tampoco me da error, y no tengo puesto el on error resume next

Saludos

[ranefi]

   Si, eso es para sacar menu contextual en un list box, pues yo lo qe busco es ese mismo cogigo pero usando uh listview, porqe en un listview eso no me funciona, pero tampoco me da error, y no tengo puesto el on error resume next

Saludos

Pues ahora no te entiendo, creo haberte dado el código que necesitas, ¿ya probaste el código de arriba? Sino es así entonces sé un poco más especifíco por favor. Nos vemos.

[Guan]

    Lo he vuelto a probar y ya me funciona lo qe pasava es qe habias puesto

Código:

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If ListView1.ListItems.Count = 0 Then Exit Sub
    If Button = 2 Then PopupMenu mnuPadre
End Sub

En lugar de

Código:

Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If ListView1.ListItems.Count = 0 Then Exit Sub
    If Button = 2 Then PopupMenu mnuPadre
End Sub

y eso me a rallao, como has dixo qe si era de invertir botones....
Pero vamos qe ya me va todo bien, gracias

Saludos

[ranefi]

Me alegra que haya funcionado : )