Na aplicação em que estou desenvolvendo preciso que as telas sejam aberta no divisor secundário e não em uma nova janela.
Como se pode observar o Frame ou Quadro está divido em duas partes: o TOP como divisor secundário e o BOTTOM como divisor principal.
O objetivo é que ao se clicar no ícone temas, seja aberto um selectMenu com as opções de telas e estas mesmas serem abertas no quadro secundário, mantendo a visualização dos dois quadros (tela de processo e menu) na mesma tela.
Estrutura dos Quadros.
O código criado abaixo gerou apenas a visualização da tela em uma outra janela e quadro.
Sub bt_telas2_Click()
op=Application.SelectMenu(" Tela 01 | Tela 02 | Tela 03 | Tela 04 | Tela 05 | Tela 06 ")
Select Case op
Case 1
Application.GetFrame(“Frame1.Splitter1.Top”).OpenScreen(“Tela01”), 0
Case 2
Application.GetFrame(“Frame1.Splitter1.Top”).OpenScreen(“Tela02”), 0
Case 3
Application.GetFrame(“Frame1.Splitter1.Top”).OpenScreen(“Tela03”), 0
Case 4
Application.GetFrame(“Frame1.Splitter1.Top”).OpenScreen(“Tela04”), 0
Case 5
Application.GetFrame(“Frame1.Splitter1.Top”).OpenScreen(“Tela05”), 0
Case 6
Application.GetFrame(“Frame1.Splitter1.Top”).OpenScreen(“Tela06”), 0
MsgBox “Nenhuma opção foi escolhida.”, 48+0, “Aviso”
Exit Sub
End Select
End Sub
Alguém consegue ajudar ou já teve algum necessidade específica parecida?
A Elipse Software criou este espaço com a ideia de estimular a troca de informações entre usuários de nossos produtos. Reservamo-nos o direito de não responder por este canal. Se você deseja suporte imediato, por gentileza, entre em contato pelo e-mail suporte@elipse.com.br ou pelos telefones (11) 3061-2828 / (21) 2430-5912 / (31) 4062-5824 / (41) 4062-5824 / (51) 3346-4699.