Albacete
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
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
