Notifications
Clear all

Evento ao Clicar em Multipage

5 Posts
2 Usuários
0 Reactions
1,392 Visualizações
(@selmo)
Posts: 236
Reputable 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?

 
Postado : 09/12/2014 4:32 pm
(@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

 
Postado : 09/12/2014 5:02 pm
(@selmo)
Posts: 236
Reputable 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

 
Postado : 09/12/2014 5:41 pm
(@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

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

Funcionou perfeitamente Mauro, grato pela ajuda.

 
Postado : 14/12/2014 1:19 pm