Exibindo a janela executar programas

Exibindo a janela Executar Programas

Quer executar qualquer programa a partir de seu programa VB ? Pensou no comando SHELL ? Vamos mostrar outra maneira de executar um programa através da exibiçao da janela executar programas. Para isto usaremos API ( é claro !!! )

Vamos a rotina:

Inice um novo projeto no VB
Insira o código abaixo no formulário do seu projeto

Private Declare Function SHRunDialog Lib "shell32" Alias "#61" (ByVal hOwner As Long, ByVal UnknownP1 _
As Long, ByVal UnknownP2 As Long, ByVal szTitle _
As String, ByVal szPrompt As String, ByVal uFlags _
As Long) As Long

Public Sub ShowRunDialog(ByRef CallingForm As Form, Optional Title As String, _
Optional Description As String)

If Title = "" Then Title = "Executar"

If Description = "" Then Description = _
"Informe o nome do programa a executar; quando terminar clique no botão OK ."

SHRunDialog CallingForm.hWnd, 0, 0, Title, Description, 0

End Sub

Inclua um botão de comando no formulário e insira o código abaixo no evento click

Private Sub Command1_Click()

Call ShowRunDialog(Me, "Janela Executar Programas Selecione um aplicativo e clique OK ")

End Sub

Aqui chamamos a API - ShowRunDialog passando como parâmetro o nome do formulário e o título da janela.

O resultado ao rodar o seu projeto e clicar no botão de comando deve ser o exibido na tela abaixo: Você pode então selecionar um aplicativo para executar.

É isto ai !! até a próxima dica...