Ir para conteúdo
Fórum Script Brasil
  • 0

Toolbar


mestre fyoda

Pergunta

Posts Recomendados

  • 0

tem q ser no evento ButtonMenuClick

tipo:

Private Sub Barra_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
    Select case ButtonMenu.Index
    case 1
        - codigos -
    case 2
        - codigos -
    End Select
End Sub

se tiver mais de um submenu, tem q ver a propriedade Parent do ButtonMenu pra ver qual é o botao pai.

Link para o comentário
Compartilhar em outros sites

  • 0

eu faz assim :

Private Sub Toolbar_Superior_ButtonClick(ByVal Button As MSComctlLib.Button)

    Select Case Button.Index

     

        Case 6

          Estatisca.Show

        Case 7

          Imprimir.Show

        Case 8

          Area_Restrita.Show

        Case 9

          Logoff.Show

        Case 10

          Unload Menu

          Unload Login

    End Select

End Sub

Private Sub Toolbar_Superior_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)

Select Case ButtonMenu.Index

    Case 1

      Cadastro_Cliente.Show

   

    Case 2

      Cadastro_Funcionario.Show

End Select

End Sub

E quando eu clico nos SubMenus eles depois não abrem mais , porque ?

Link para o comentário
Compartilhar em outros sites

  • 0

não entendi.

o q não abre mais?

ele não abre os formularios? ou a janelinha do submenu não abre?

se for os formularios, tente, ao rodar o programa, parar a execucao no clique do submenu e veja qual o valor q esta no ButtonMenu.Index, q deve ser diferente do q esta no case.

Link para o comentário
Compartilhar em outros sites

  • 0

o problema é mesmo o mdi. como você abre os forms maximizados e os deixa abertos, na segunda vez, ele não mostra porque já esta aberto e o outro form esta na frente.

o q ce pode fazer é esconder um formulario antes de abrir o outro assim:

Private Sub Toolbar_Superior_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)

Select Case ButtonMenu.Index

    Case 1
       Cadastro_Funcionario.Hide
       Cadastro_Cliente.Show
    
    Case 2
       Cadastro_Cliente.Hide
       Cadastro_Funcionario.Show

End Select
End Sub

desse jeito, a medida q você puser mais forms vai ter q esconder todos eles. se precisar, olhe nesse tópico pra ver como fazer:

http://scriptbrasil.com.br/forum/index.php...ularios+abertos

to sem tempo pra ver agora, mas acho q deve ate ter uma solucao melhorzinha...

os forms não esta abrindo no tmaanho q c deixa acho q tb porque é mdichild. se c puser o Border Style como Fixed Single, resolve esse problema, mas ai c não pode mexer no tamanho do form.

ou você pode no load do form ajustar o tamanho automatico.

qualquer coisa poste ae.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...