none
Visual Basic 10, mudar janelas do windows com timer RRS feed

  • Pergunta

  • Boa Tarde pessoal!

    estou começando a programar em visual basic 10 e gostaria de uma ajudinha.

    - Necessidade:

    1- preciso que 4 aplicações distintas fique alternando a exibição de 30 em 30 segundos.

    2-não precisa ser necessariamente em visual basic, pode ser qualquer linguagem utilizada no IDE da Microsoft.

    3- A minha aplicação deve verificar se os aplicativos externos estão abertos, se sim, então ele apenas alterna a exibição dos aplicativos em aberto, se não, então ele deve abrir as aplicações externas e depois alternar entre elas.

    Até o momento eu consegui abrir as aplicações com o timer, mas não consigo ficar alternando entre elas, eu utilizei o "System.Diagnostics.proccess.Start" para abrir os executaveis.

    alguem pode ajudar?


    • Editado Jmoraes26 quarta-feira, 16 de outubro de 2013 20:55
    • Movido Fábio Jr quarta-feira, 16 de outubro de 2013 22:42 fórum mais apropriado
    quarta-feira, 16 de outubro de 2013 20:54

Todas as Respostas

  • Jmoraes,

    Este fórum e voltado para scripts (linguagens não compiladas), acontece um pouco de confusão já que existe a linguagem de script VBScript.

    Vou mover sua dúvida para o fórum mais apropriado.


    Fábio de Paula Junior

    quarta-feira, 16 de outubro de 2013 22:41
  • Obrigado Fábio, 

    alguem consegue me ajudar?

    quinta-feira, 17 de outubro de 2013 17:50
  • Aqui tem uma discussão sobre sua dúvida:

    http://bytes.com/topic/visual-basic-net/answers/382333-how-minimize-maximize-external-running-program-through-my-vb-net-application

    Mas basicamente seria ^: (vb.net)

    \\\
    Imports System.Diagnostics
    ..
    ..
    ..
    Private Declare Function ShowWindow Lib "user32.dll" ( _
    ByVal hWnd As IntPtr, _
    ByVal nCmdShow As SHOW_WINDOW _
    ) As Boolean
    
    <Flags()> _
    Private Enum SHOW_WINDOW As Integer
    SW_HIDE = 0
    SW_SHOWNORMAL = 1
    SW_NORMAL = 1
    SW_SHOWMINIMIZED = 2
    SW_SHOWMAXIMIZED = 3
    SW_MAXIMIZE = 3
    SW_SHOWNOACTIVATE = 4
    SW_SHOW = 5
    SW_MINIMIZE = 6
    SW_SHOWMINNOACTIVE = 7
    SW_SHOWNA = 8
    SW_RESTORE = 9
    SW_SHOWDEFAULT = 10
    SW_FORCEMINIMIZE = 11
    SW_MAX = 11
    End Enum
    
    Private Sub MaximizeAllNotepads()
    For Each p As Process In Process.GetProcessesByName("notepad")
    ShowWindow(p.MainWindowHandle, SHOW_WINDOW.SW_MAXIMIZE)
    Next p
    End Sub
    ///

    segunda-feira, 28 de outubro de 2013 21:05