Dar Foco Ao Programa

[gabrielfast]

daew galera..como faço pra eu dar foco para o programa q eu qro?

por exemplo...tem o word aberto, o excel, a calculadora.

dai vamos supor q eu to digitando no word mais quando abrisse meu programa qria q fosse pra tela da calculadora ( tipo alt+tab)

valeu

gabriel

[Graymalkin]

Tente isso:

AppActivate "Calculadora"

Certo?

Graymalkin

[gabrielfast]

cara..ele ate chea a selecionar ele ali ba barra...mais o programa não maximinixa...tem como fazer ele maximinizar?

[Graymalkin]

Nem todos os programas podem ser "maximizados" (a própria Calculadora é um exemplo). Porém, se você quis dizer "restaurar", então deverá lançar mão de algumas APIs para isso. Declare o seguinte em um módulo:

Public Declare Function OpenIcon Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Depois, utilize o seguinte código para restaurar a janela:

    Dim h As Long
    h = FindWindow(vbNullString, "Calculadora")
    OpenIcon h

Certo?

Graymalkin

[gabrielfast]

bahhhhhhhh..deu certo agora.....

valeu cara =D

[gabrielfast]

esse seu foco é pelo titulo da janela ou pelo nome do execultavel?

se for pelo titulo da janela..como faz pra dar o foco pelo nome do execultave...tipo o nome dele dentro o ctrl+alt+del?

brigado

gabriel

[Graymalkin]

É pelo título da janela. Pelo nome do executável eu não sei como isso seria feito.

Abraços,

Graymalkin

[gabrielfast]

daew cara....tipow....o programa q eu dei o foco...ele tava maximinizado....quando eu dei o parametro OpenIcon h ele Restaurou o tamanho da tela...não tem jeito de eu definir o tamanho q eu qro deixar da tela?

valeu

gabriel

[Graymalkin]

Então, dê uma olhada na API SetWindowPlacement, pois acho que ela serve para o seu caso. No API-Guide (www.mentalis.org) você encontra um exemplo dela.

Abraços,

Graymalkin