Como verificar se um programa esta aberto

[Gustavo Marinho 0]

Qual eo comando que uso para verificar se um programa esta aberto exemplo: meu programa so executa tal função se o bloco de notas tive aberto

 

----------------------------------------------------

E como funciona a função focus()

[KhaosDoctor 242]

Para verificar se um programa ja se encontra aberto faça o seguinte:

 

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As Long, ByVal lpWindowName As String) As Long


Private Sub CdmOk_Click()
Dim ProgramaAberto As Long

   ProgramaAberto = FindWindow(0, "Nome do Programa")
   If ProgramaAberto <> 0 Then
       MsgBox "programa esta ligado"
       End
   Else
       MsgBox "O programa n esta ligado"
   End If
End Sub

 

A função focus() designa ou tira o foco de alguma janela, por exemplo eu quero que se uma caixa da texto estiver vazia ele mostra uma mensagem e focaliza nela:

 

 If String.IsNullOrEmpty(txtbox.Text) or txtbox.Text.Length = 0 Then
MsgBox("Caixa de texto vazia")
txtbox.Focus()
End If 

 

 

Entendeu?