Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Menú Contextual En Columnview
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Menú Contextual En Columnview 
 
Buenas me gustaría saber si es posible, que pulsando un item en un columview que tengo montado aparezca un menú contextual para, por ejemplo, borrar ese item o efectuar una acción sobre el mismo.

De no poder hacerse buscarla otra forma.

Como siempre gracias.
 



 
última edición por calcena el Domingo, 29 Julio 2018, 09:58; editado 1 vez 
calcena - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Menú Contextual En Columnview 
 
Calcena:

Puedes usar la propiedad PopupMenu del control:
https://cursogambas.blogspot.com/20...nus-popups.html
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Menú Contextual En Columnview 
 
jsbsan escribió:  
Puedes usar la propiedad PopupMenu del control


...cuanto me gusta esto !!!  

Public Sub Form_Open()
  
  With ColumnView1
    .AddColumn("primum", "50", Align.Center)
    .Add("1", "1 item", Null, Null, Null)
  End With
  With ColumnView1
    .AddColumn("secundum", "50", Align.Center)
    .Add("2", "2 item", Null, Null, Null)
  End With

End
'
Public Sub ColumnView1_MouseUp()

  Dim MN, mn1, mn2 As Menu
  
  If Mouse.Right Then
    MN = New Menu(Me)
    
    With mn1 = New Menu(MN) As "Menu"
      .Caption = "Destruir este item"
    End With
    With mn2 = New Menu(MN) As "Menu"
      .Caption = "Declarate anti-Pythonista..."
    End With
    MN.Popup
  Endif
    
End


Public Sub Menu_Click()
  
  Select Case Last.Caption
    Case "Destruir este item"
      ColumnView1.Current.Delete
    Case "Declarate anti-Pythonista..."
      Balloon("<FONT Color=blue size=6><B>YO NO SOY PYTHONISTA !!!", ColumnView1, Null, Mouse.X, Mouse.Y)
  End Select
  
End

 



 
última edición por vuott el Lunes, 30 Julio 2018, 13:48; editado 1 vez 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes ¿Y Cuando Un Formulario Lleva Más De Un ... shordi General 9 Sabado, 01 Junio 2013, 14:57 Ver último mensaje
Shell
No hay nuevos mensajes Opción Alineamiento Del Menu Contextual Shell General 5 Miercoles, 24 Febrero 2016, 12:36 Ver último mensaje
Shell
No hay nuevos mensajes Capturar Evento Paste Del Menu Contextual? v3ctor General 11 Jueves, 16 Febrero 2017, 21:00 Ver último mensaje
shordi
No hay nuevos mensajes Sobre El Menú Del SO... shordi General 2 Domingo, 11 Octobre 2015, 20:46 Ver último mensaje
shordi
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario