• 0
Sign in to follow this  
mestre fyoda

Toolbar

Question

Recommended Posts

  • 0

correticimo mano , mas so uma outra coisa , como faço para que coloque ao lado da figura ?

eu criei o index 2 e deixei sem nenhuma figura mas fico desalinhado . Queria q ficace como esta nos exemplos de tela do site smile.gif

Barra.Buttons(2).Caption = rsPesquisa!NomeFuncionario

desse geito não funfou .

Share this post


Link to post
Share on other sites
  • 0

surgiu um probleminha .

       Toolbar_Superior.Buttons(1).ButtonMenus(2).Index

         Cadastro_Cliente.Show

     

o codigo acima esta certo , mas não consigo coloca-lo na case 2 , como eu faria ?

Select Case Button.Index

Case 1

Unload Me

Case 2

Unload Log

End Select

Share this post


Link to post
Share on other sites
  • 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.

Share this post


Link to post
Share on other sites
  • 0

posta o codigo (a sub inteira, do private ao end sub) e mostre qual a linha do erro.

mas presta atencao:

o clique do submenu, c tem q testar no envento Barra_ButtonMenuClick

o clique do botao tem q ser no evento Barra_ButtonClick

Share this post


Link to post
Share on other 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 ?

Share this post


Link to post
Share on other 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.

Share this post


Link to post
Share on other sites
  • 0

testei com mdi e não deu problema algum...

de uma olhada nos seus codigos e nas propriedades desses formularios, etc.

alguma coisa c deve ter feito pra isso tar acontecendo...

Share this post


Link to post
Share on other 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.

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this