Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
gabrielfast

Dar Foco Ao Programa

Question

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

Share this post


Link to post
Share on other sites

8 answers to this question

Recommended Posts

  • 0

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? wink.gif

Graymalkin

Share this post


Link to post
Share on other sites
  • 0

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

Share this post


Link to post
Share on other sites
  • 0

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

Abraços,

Graymalkin

Share this post


Link to post
Share on other sites
  • 0

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

Share this post


Link to post
Share on other sites
  • 0

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

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  



  • Forum Statistics

    • Total Topics
      148117
    • Total Posts
      643395
×
×
  • Create New...