Em algum momento você pode achar que é benéfico para executar um aplicativo do Windows em Visual Basic. Por exemplo, você pode precisar abrir e trabalhar com outro aplicativo enquanto uma aplicação de Visual Basic executa . As capacidades de multitarefa do Windows permitir que isso aconteça . Um único comando Visual Basic realiza a tarefa , desde que você sabe onde no computador para localizar o arquivo executável que abre o aplicativo desejado. Dado este conhecimento e algumas linhas de código , o comando "Shell" em Visual Basic faz o resto. Instruções
1

Criar um novo programa Visual Basic , clicando sobre o modelo " Standard EXE " quando o Visual Basic é aberto. Isso fornece uma forma básica para um exemplo de abrir aplicativos com o comando "Shell" . Clique em "Arquivo " e " Save Project As ", entrando em um nome do formulário eo nome do projeto , conforme solicitado nas pequenas janelas que se abrem . Para este exemplo , use " OpenWindowsApp ", como o nome do formulário e " Abra o Windows App ", como o nome do projeto. Visual Basic irá anexar os sufixos padrão " . Frm " para a forma e " . VBP " para o nome do projeto .
2

Adicione um " OptionButton " para o formulário , clicando duas vezes sobre esse controle no painel " Toolbox " no lado esquerdo da tela . O ícone para este botão na caixa de ferramentas consiste de um pequeno círculo com um ponto no centro. Clique neste controle no formulário para exibir as propriedades no painel direito . Clique duas vezes sobre a propriedade " Caption " na lista para destacar o nome padrão. Altere isso para " Bloco de Notas ".
3

Repita o passo 2 para adicionar mais dois OptionButtons à forma , alterando a propriedade legenda para o segundo a "Internet Explorer" eo terceiro " Prompt de comando ".
4

Dê um clique duplo no ícone" CommandButton " , um pequeno retângulo em um quadrado maior na caixa de ferramentas , para adicioná-lo ao formulário. Altere a propriedade caption deste botão para ler "Open de Aplicação. " Adicionar um segundo CommandButton para a forma da mesma maneira , mas fazer essa legenda dizia "Exit ".
5

Clique em " Exibir" e então "Código " no menu de nível superior. Na janela de código , digite as seguintes linhas exatamente como mostrado :

Private Sub Command1_Click () Dim AppName Como StringIf Option1 = True ThenShell "Notepad" , vbNormalFocusElseIf Option2 = True ThenShell "C: \\ Arquivos de Programas \\ Internet Explorer \\ iexplore.exe " , vbNormalFocusElseIf Option3 = True ThenShell " C \\ windows \\ system32 \\ cmd.exe " , vbNormalFocusElse : AppName = InputBox ( " Qual aplicativo que você deseja abrir " ) Shell AppName , vbNormalFocusEnd IfEnd Sub

Private Sub Command2_Click () endend Sub
6

Pressione " F5" para executar o programa . Quando você seleciona uma das opções dadas e , em seguida, clique em "Abrir Aplicação ", o programa relacionado será executado em uma nova janela . Se você não selecionar uma dessas opções , e você apenas clique no botão " Abrir aplicativo " , um aviso irá aparecer, pedindo o nome do aplicativo . Você deve , então, fornecer o caminho completo para o executável para o programa adequado . Se o aplicativo existe no caminho do sistema , como o " Bloco de Notas " faz no Passo 5, então você pode pular o nome do caminho completo.