PROBLEMA A IDENTIFICAR MENU

USUARIO.EXCLUIDOS 18/09/2006 08:07:00
#172068
Pessoal nao estou conseguindo saber qual o menu em que clico. por postar o meu codigo.. ja tive muitos para tras.. este é o ultimo exemplo que eu tentei.

Private Sub menuvert_MenuItemClick(MenuNumber As Long, MenuItem As Long)
    
    If menuvert.MenuCaption = "Sócios" Then
        If menuvert.MenuItemCaption = "Novo" Then        
            frmnsocio.Show 1            
        ElseIf menuvert.MenuItemCaption = "Editar" Then            
            flag = "1"
            frmprocurarsocio.Show 1            
        ElseIf menuvert.MenuItemCaption = "Consultar" Then        
            flag = "3"
            frmprocurarsocio.Show 1            
        End If        
    End If

---------------------

A ferramente é o menu vertical tirada agora mesmo do vbmania. E o problema é que nao sei como fazer para identificar o menu em que clico porque este fica sempre no ultimo menu criado aqui:

[c]Private Sub cmdsocio_Click()

    menuvert.MenuCaption = "Sócios"
    
    menuvert.MenuItemsMax = 4

    menuvert.MenuItemCur = 1
    menuvert.MenuItemKey = "novosocio"
    menuvert.MenuItemPictureURL = App.Path & "
ovosoc.ico"
    menuvert.MenuItemCaption = "Novo"
    
    menuvert.MenuItemCur = 2
    menuvert.MenuItemKey = "editarsocio"
    menuvert.MenuItemCaption = "Editar"
    menuvert.MenuItemPictureURL = App.Path & "\edit.ico"
    
    menuvert.MenuItemCur = 3
    menuvert.MenuItemKey = "consultarsocio"
    menuvert.MenuItemCaption = "Consultar"
    menuvert.MenuItemPictureURL = App.Path & "\procurar.ico"
    
    menuvert.MenuItemCur = 4
    menuvert.MenuItemKey = "emitirquotas"
    menuvert.MenuItemCaption = "Quotas"
    menuvert.MenuItemPictureURL = App.Path & "\quotas.ico"
    
    menuvert.Visible = True

End Sub


Resumindo no evento itemclick o menucur é sp o 4.
CLEVERSON.F 18/09/2006 08:09:51
#172069 Resposta escolhida
cara, tem q ser assim
Private Sub menuvert_MenuItemClick(MenuNumber As Long, MenuItem As Long)
Select case MenuNumber
case 1 ' Menu um, o primeiro grupo no menu
select case menuItem
case 1 'Primeiro item do menu um
ChamaProcedimentos()
case 2 'segundo item do menu 2
ChamaProcedimento2()
end select
case 2
end select

end sub
e assim por diante..
USUARIO.EXCLUIDOS 18/09/2006 08:21:22
#172070
valeu
Tópico encerrado , respostas não são mais permitidas
Voltar