Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Crear Menús Contextuales.
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Crear Menús Contextuales. 
 
Os pongo aquí una pequeña función que os permite crear menús contextuales pulsando botón derecho sobre algún control.
Ni qué decir tiene que la función creaMenu, la podéis sacar del formulario y poner en un módulo para que sea visible en toda la aplicación.

Espero sea útil

Saludos.

Public Sub miFileview1_MouseUp()
  
   Dim mimenu As Menu
   Dim aMenu As New Variant[]
  
   If Mouse.Right Then
        aMenu.Add(["Subir", "msubir"])
        aMenu.Add(["Ver/Editar", "mver"])
        aMenu.Add(["Borrar", "mborrar"])
        mimenu = creaMenu(aMenu, Me)
        if mifileview1.Selection.Count > 1 then
              mimenu.children[1].Enabled=false
        endif
        mimenu.Popup
   Endif
    
End

Public Sub Action_Activate(key As String) As Boolean
 Select Case key
    Case "msubir"
        mifunciondesubirarchivos()
    Case "mborrar"
        mifunciondeborrararchivos()
    Case "mver"
        mifunciondeverarchivos()
 End Select
 
End

Public Sub creaMenu(opciones As Variant[], Contenedor As Object) As Menu
    
  Dim elmenu, submenu As Menu  
  Dim n As Integer
  
  elmenu = New Menu(Contenedor)
  For n = 0 To opciones.Count - 1
     submenu = New Menu(elmenu)
     submenu.Text = opciones[n][0]
     submenu.Action = opciones[n][1]
  Next
  
  Return elmenu
  
End
 

 



 
última edición por shordi el Miercoles, 29 May 2013, 12:19; editado 3 veces 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Crear Menús Contextuales. 
 
Esta chula...
 




===================
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: Crear Menús Contextuales. 
 
Le he añadido un detalle al ejemplo:

Suponiendo que el fileview tenga la opción multiple activa, es decir, podemos seleccionar más de un elemento, la opción de ver/Editar no tiene mucho sentido.
Así con estas líneas

        if mifileview1.Selection.Count > 1 then
              mimenu.children[1].Enabled=false
        endif
 


desactivamos esa opción.

Lo incluyo como ejemplo de manipulación del submenú en cuestión.

Saludos.
 



 
shordi - 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
10.00 10 10 1
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Ejemplo De Sistema De Ayudas Contextuales shordi Aplicaciones/Fragmentos de Código 3 Viernes, 27 Octobre 2017, 08:11 Ver último mensaje
shordi
No hay nuevos mensajes Barras De Menús En Gambas soplo General 5 Viernes, 23 Octobre 2009, 23:36 Ver último mensaje
shordi
No hay nuevos mensajes ¿iconos En Menús En Gambas 3? ociokart General 6 Domingo, 23 Septiembre 2012, 22:48 Ver último mensaje
arubioc
No hay nuevos mensajes Barras Separadoras En Los Menús shordi General 1 Domingo, 15 Noviembre 2015, 13:42 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