Userform Menus

[LEANDRO ALVES]

Pessoal encontrei mais este exemplo de menus no userform e decidi compartilhar.
Este tem uma aparencia mais agradavel do que o postado anteriormente e suas
rotinas também são bastante extensas e complicadas.

Quem quiser conhecer o site original e seus autores segue o link
http://www.xcelfiles.com/API_Userform_MenuMaker.html

[Rafael Monteiro]

Leandro,

Muito bom mesmo, o designer ficou muito melhor e prático. Estou adaptando com uns outros modelos, assim que tiver pronto eu vou postar aí no fórum.

Obrigado pelo sua dica.

Valeu...

[joseA]

+ do mesmo,

Este exemplo é adaptação de um dos boletins de: http://www.tudosobrexcel.com/

[LEANDRO ALVES]

Puxa Vida Jose que legal

Se não se importa vou utilizar este modelo para uma aplicaçao que estou construindo.
Sinceramente eu não entendo estes codigos APis (são muito complicados) , mas este seu ficou bem mais simples
e com a mesma eficiencia (Vou estudá-lo e com certeza ja está no meu acervo). Foi voce mesmo que criou?

Obrigado por compartilhar

Abraços

[joseA]

...Foi voce mesmo que criou?...

Não, apenas adaptei modelo do tudosobreexcel. Como vc disse: "APis (são muito complicados)"

Quanto a utilizar fique a vontade.

[webmaster]

Pessoal,

Só a título de esclarecimento.

API são interfaces, chamadas de função que bibliotecas de código nos fornecem. Tudo o que chamamos no VBA que não pertença ao próprio, por exemplo, ADO, ListView, InternetExplorer, entre outros tantos largamente usados neste fórum são também APIs. O caso é que estes são chamadas mais "bacanas" de API, ou seja, eles estão fazendo o trabalho sujo de ir lá falar diretamente com a API do Windows. Quando não há uma maneira de chamar uma função através de uma biblioteca facilitadora, vai precisar falar diretamente com a API do Windows, e aí vem aquela chamada toda complicada que vemos nestes exemplos.

Se não fossem as APIs, toda vez que precisássemos de um MsbBox, teríamos um código parecido com isso:

Código: Selecionar todos

Private Declare Function MessageBox _
        Lib "User32" Alias "MessageBoxA" _
           (ByVal hWnd As Long, _
            ByVal lpText As String, _
            ByVal lpCaption As String, _
            ByVal wType As Long) _
        As Long

Sub WindowsMsgboxAPIDemo()

Dim sMsg As String

' demo normal vba Message box and - show its modal nature ...
sMsg = "This is a VBA Message Box - try and do anything but click " & vbNewLine & _
"on the ok btton - you'll find that it is application and system " & vbNewLine & _
"'modal' meaning it locks everything up.."
MsgBox sMsg

' demo normal vba Message box and - show it can be modless ...
sMsg = "This is the windows operating systems (API) 'MessageBoxA' Message Box " & vbNewLine & _
"- try and do anything but click on the ok button - you'll find that all apllications " & vbNewLine & _
"are still available for your use.."
MessageBox &H0, sMsg, "Modless API Windows Op Msgbox", vbOKOnly

End Sub

Sub Teste()
    Call WindowsMsgboxAPIDemo
End Sub

Chato não?

Abraços e espero que ajude.

[LEANDRO ALVES]

Fiquei bobo com esta explição

Confesso que não sabia nem um porcento do que o Tomás falou.
Caro colega Tomás, muito obrigado por mais esta informação, pode ter certeza que será muito valiosa para nós.
A cada dia fico mais fascinado com o VBA.

Abraços

[vilsonferraz]

Baixei esta planilha Menus, achei muito interessante, dai tentei adaptar ela criei 2 formularios na planilha e no lugar do MultiPage ela abre os forrmularios que estou cirando, ate ai estou conseguindo mas acontece se der algum erro e for para o depurador ou mesmo se clicar em fim o excel trava não deixa eu fazer mais nada e a unica coisa que tenho que fazer é fechar o excel no Ctrl + Alt + Del , por que sera que isto esta acontecendo? se alguem puder me ajudar. Estou anexando a planilha com as alterações que fiz, Muito Obrigado
Vilson

[joseA]

Vilson,

Esse erro deve estar ocorrendo devido a outras instruções, esse exemplo que vc postou está rolando ok.

[vilsonferraz]

joseA obrigado pela ajuda , não entendo porque esta acontecendo isto comigo , vou testar em outro computador para ver se tambem vai ocorrer este erro, penso que talves possa ser algum erro no office do meu computador que esta gerando este erro, mas mesmo assim obrigado.
Vilson