Notifications
Clear all

Carregar Listbox com o Nome das Abas do MultiPage

3 Posts
2 Usuários
0 Reactions
1,972 Visualizações
willianrc
(@willianrc)
Posts: 0
Trusted Member
Topic starter
 

Ola,
Estou carregando um listbox com o nome das abas do controle MultiPage;
Esta aparecendo uma msg que o objeto nao suporta

   Dim i As Integer
    For i = 1 To 10
        ListBox5.AddItem Me.MultiPage2.Page(i).Caption
    Next

alguma ajuda neste codigo?
Obrigado.

 
Postado : 28/11/2019 8:51 am
Reinaldo
(@rlm)
Posts: 246
Estimable Member
 

Creio que a sintaxe deve ser Pages https://docs.microsoft.com/pt-br/office/vba/language/reference/user-interface-help/page-object-pages-collection-multipage-control-selecteditem-property-example
...MultiPage2.Pages(i).Caption

Reinaldo

 
Postado : 28/11/2019 9:14 am
willianrc
(@willianrc)
Posts: 0
Trusted Member
Topic starter
 

Opa rlm muito obrigado,
Consegui fazer a primeira parte, que era carregar os títulos (nomes) na listbox, agora nao consegui carregar os subtítulos (subnomes), nao encontrei nada sobre MultiPage(i), poderia me ajudar?
Gostaria que: ao selecionar no primeiro Listbox1 um nome, carregasse no segundo Listbox2 as sub-Abas, e agora selecionar no Listbox2 as sub-Abas, carregasse no Listbox3 os botoes.
Alguma ajuda?
<img class="go2wpf-bbcode" src=" https://ibb.co/yX7kQ8Z ">

Private Sub Load_Departments() 'LOAD DEPARTMENTS

    Dim i As Integer
    Dim PageName As String
    ListBox5.Clear
    For i = 0 To MultiPage2.Count - 1
    PageName = MultiPage2.Pages(i).Caption
    ListBox5.AddItem PageName
    Next
    
End Sub

Private Sub ListBox5_Click()
    
    Dim i As Integer
    Dim PageName As String
    Dim NewPageName As String
        ListBox6.Clear
        For i = 0 To MultiPage2.Count
        PageName = MultiPage2.SelectedItem.Caption
        NewPageName = MultiPage3.Pages(i).Caption
        ListBox6.AddItem NewPageName
        Next

End Sub
 
Postado : 28/11/2019 3:13 pm