Como abrir telas dentro do quadro

#1

Bom dia. Estou querendo fazer um botão que abra opções de tela.
Porem não estou conseguindo faze-lo com que a tela abra no quadro menu, e a aplicação chama outra tela…estou usando o seguinte script:

op = Application.SelectMenu(“TG1 - Geral|TG1 - Fluxo Óleo e Vapor|TG1 - Ajustes PNPE|TG1 - Ajustes PNTU”,Screen.ToPixelX(X), (Height/26.45 + Y/26.45))
Select Case op
case 1
Application.Item(“TelaShow”).value = “AKB_S_TurboG1_Geral”
Application.Item(“Abrir”).value = True
case 2
Application.Item(“TelaShow”).value = “AKB_S_TurboG1_FluxoOleo”
Application.Item(“Abrir”).value = True
case 3
Application.Item(“TelaShow”).value = “AKB_S_TurboG1_Ajustes_01”
Application.Item(“Abrir”).value = True
case 4
Application.Item(“TelaShow”).value = “AKB_S_TurboG1_Ajustes_02”
Application.Item(“Abrir”).value = True
End Select

#2

Basicamente o que você quer é abrir a tela selecionada no SelectMenu em um determinado quadro da aplicação? Se for sempre no mesmo quadro o script será algo como:

Sub btn()
    Dim op
    Dim sScreen

    op = Application.SelectMenu("TG1 - Geral|" & _
                                "TG1 - Fluxo Óleo e Vapor|" & _
                                "TG1 - Ajustes PNPE|" & _
                                "TG1 - Ajustes PNTU" _
                                ,Screen.ToPixelX(X) _
                                , (Height/26.45 + Y/26.45))
    
    Select Case op
        Case 1
            sScreen = "AKB_S_TurboG1_Geral"
        Case 2
            sScreen = "AKB_S_TurboG1_FluxoOleo"
        Case 3
            sScreen = "AKB_S_TurboG1_Ajustes_01"
        Case 4
            sScreen = "AKB_S_TurboG1_Ajustes_02"
        Case Else
            Exit Sub
    End Select

    ' Defina aqui o NOME DO FRAME
    Application.GetFrame("NomeDoFrame").OpenScreen( sScreen ), 0
End Sub
2 Likes
#3

Na tela que ira ser aberta devo colocar um script no OnPreShow?

seria esse: Application.Item(“TITULO_TELA”).Value = “TurboGerador 1 - Geral”

#4
  1. Esse SelectMenu você chama a partir de uma tela “Menu”?
  2. O texto que recebe o título com o nome da tela que você selecionou no SelectMenu fica no “Menu”? Ou na própria tela que você chamou?
#5

@leandrobpedro Deu Certo, seguindo sua dica.

Obrigado!