Notifications
Clear all

Evento ao Clicar em Multipage

5 Posts
2 Usuários
0 Reactions
1,397 Visualizações
selmo
(@selmo)
Posts: 236
Estimable Member
Topic starter
 

Olá Galera, boa noite!!

Duvida mortal, existe algum procedimento ou rotina que seja executada ao se clicar em uma aba de uma multipage?

"A mente que se abre a uma nova ideia jamais voltará ao seu tamanho original."
Albert Einstein

 
Postado : 09/12/2014 4:32 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Olá Galera, boa noite!!

Duvida mortal, existe algum procedimento ou rotina que seja executada ao se clicar em uma aba de uma multipage?

Se der dois cliques no controle verá que sua duvida não é mortal, pois terá todos os eventos associados a este controle, e entre eles o Click :
Private Sub MultiPage1_Click(ByVal Index As Long)

E se pesquisar no Forum, alem do tópico abaixo encontrara varios outros :
Socorro com Multipaginas [Resolvido]
viewtopic.php?f=23&t=3684&hilit=multipage&start=0

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 09/12/2014 5:02 pm
selmo
(@selmo)
Posts: 236
Estimable Member
Topic starter
 

Então, sobre evento multipage já tinha conhecimento, no caso esperava um evento do tipo private sub page1_click() para ser executada ao clicar na aba page1 da multipage

"A mente que se abre a uma nova ideia jamais voltará ao seu tamanho original."
Albert Einstein

 
Postado : 09/12/2014 5:41 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não entendi,
"Então, sobre evento multipage já tinha conhecimento, no caso esperava um evento do tipo private sub page1_click() para ser executada ao clicar na aba page1 da multipage"

Vamos dividir o Controle:
MultiPage1 é o Controle MultiPage, e dentro do mesmo adicionamos as Pages, "Page1, Page2, Page3......."
No evento Clique do MultiPage1 colocamos a rotina para capturar em qual Page clicamos, ou seja as instruções teem de estar dentro do controle MultiPage1, veja a instrução abaixo, captura em qual Page foi Clicada, e podemos atraves do Select Case direcionar a outras rotinas referente a qual Page foi clicada, não tem como desmembrar da forma que sugeriu.

Private Sub MultiPage1_Click(ByVal Index As Long)
    Dim i      As Integer
    
    i = Me.MultiPage1.Value
    
    Select Case i
        
        Case 0: MsgBox MultiPage1(i).Caption 'Page1
        Case 1: MsgBox MultiPage1(i).Caption 'Page2
        Case 2: MsgBox MultiPage1(i).Caption 'Page3
        Case Else
        
        Exit Sub
        
    End Select
    
End Sub

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 09/12/2014 5:58 pm
selmo
(@selmo)
Posts: 236
Estimable Member
Topic starter
 

Funcionou perfeitamente Mauro, grato pela ajuda.

"A mente que se abre a uma nova ideia jamais voltará ao seu tamanho original."
Albert Einstein

 
Postado : 14/12/2014 1:19 pm