Usuário com melhor resposta
Abrir Janela Minimizada em Primeiro Plano

Pergunta
-
Respostas
-
- Editado Frank Pinheiro sexta-feira, 20 de julho de 2012 18:43
- Marcado como Resposta Harley AraujoModerator segunda-feira, 23 de julho de 2012 11:05
Todas as Respostas
-
Caso ela não esteja aberta utilize:
System.Diagnostics.Process.Start("outlook")
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=355200
para deixar em primeiro plano pode usar do seu jeito msm:
AppActivate("Outlook")
- Editado Frank Pinheiro quinta-feira, 19 de julho de 2012 17:18
-
Como devo proceder para deixar a Janela do Microsoft Outlook em primeiro plano, caso a mesma esteja minimizada ou nao esteja aberta.
Voce precisa obter o ID do processo,a função AppActivate() requer como argumento um tipo de dados Integer,tente isso:
'Obter a ID de um processo especifico Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged Dim p As Process For Each p In Process.GetProcesses If (p.ProcessName = ListBox1.SelectedItem) Then Label1.Text = p.Id End If Next End Sub 'Exibir janela como enfoque Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click AppActivate(CInt(Label1.Text)) End Sub
Para executar o programa é:
Shell("...\caminho\programa.exe")
Microsoft Technology Associate (MTA)
- Editado Eduardo xUni quinta-feira, 19 de julho de 2012 17:28
-
-
-
- Editado Frank Pinheiro sexta-feira, 20 de julho de 2012 18:43
- Marcado como Resposta Harley AraujoModerator segunda-feira, 23 de julho de 2012 11:05
-
O AppActivate() para funcionar com o nome você precisa colocar o nome exato da janela a ser aberta, por exemplo o Outlook, nunca fica somente "Outlook", por isso não vai funcionar. No caso da minha máquina o nome da janela é "Caixa de Entrada - nheder.freitas@(...) - Outlook", então eu precisaria colocar AppActivate("Caixa de Entrada - nheder.freitas@(...) - Outlook"), dai o código funciona.
- Sugerido como Resposta Nheder quarta-feira, 25 de março de 2020 18:07