På et tidspunkt du kan finne det fordelaktig å kjøre en Windows- applikasjon under Visual Basic. For eksempel kan det være nødvendig å åpne og arbeide med et annet program mens en Visual Basic-programmet utfører . De multitasking evner av Windows tillate at dette skal skje. En enkelt Visual Basic kommando oppnår den oppgaven så lenge du vet hvor på datamaskinen for å finne den kjørbare filen som åpnes det aktuelle programmet . Gitt denne kunnskapen og noen få linjer med kode , gjør " Shell "-kommandoen i Visual Basic resten . Instruksjoner
en

Opprett en ny Visual Basic program ved å klikke på " Standard EXE " mal når Visual Basic åpnes . Dette gir en enkel form for et eksempel på å åpne programmer med " Shell "-kommandoen . Klikk på " File " og " Lagre prosjekt som , " inn en form navn og prosjektnavn som blir bedt om i de små vinduer som kan åpnes . For dette eksempelet bruker " OpenWindowsApp " som form navn og "Åpne Windows App" som prosjektnavnet. Visual Basic vil feste standard suffikser , " . Frm " til skjemaet og " . VBP " til prosjektets navn .
2

Legg en " OptionButton " til skjemaet ved å dobbeltklikke på denne kontrollen i " Toolbox" -panelet på venstre side av skjermen . Ikonet for denne knappen i verktøykassen består av en liten sirkel med en prikk i midten . Klikk på denne kontrollen i skjemaet for å vise egenskapene i panelet til høyre . Dobbeltklikk på " Bildetekst " eiendom i listen for å markere standard navn . Endre dette til "Notisblokk ".
3

Gjenta trinn 2 for å legge til to flere OptionButtons til skjemaet , endre bildetekst eiendom for den andre til "Internet Explorer" og den tredje til " Command Prompt. "
4

Dobbeltklikk på" CommandButton "-ikonet , et lite rektangel i et større kvadrat i verktøykassa , for å legge dette til skjemaet . Endre bildetekst eiendom av denne knappen for å lese " Åpen søknad ". Legg til en ny CommandButton til skjemaet på samme måte , men gjør dette bildeteksten lese "Exit ".
5

Klikk på " Vis" og deretter " Code" i øverste menyen . I Kode-vinduet , skriver du inn følgende linjer akkurat som vist :

Private Sub Command1_Click ( ) Dim AppName Som StringIf Alternativ 1 = sant ThenShell " Notisblokk" , vbNormalFocusElseIf Alternativ 2 = true ThenShell "C: \\ Program Files \\ Internet Explorer \\ iexplore.exe " , vbNormalFocusElseIf Alternativ 3 = sant ThenShell " C \\ windows \\ system32 \\ cmd.exe " , vbNormalFocusElse : AppName = InputBox ( " Hva programmet vil du åpne ") Shell AppName , vbNormalFocusEnd IfEnd sub

Private Sub Command2_Click ( ) SluttSlutt sub
6

Trykk " F5 " for å kjøre programmet . Når du velger en av de gitte alternativene, og klikk deretter på " Åpen søknad ", tilhørende programmet vil kjøre i et nytt vindu. Hvis du ikke velger en av disse valgene , og du bare klikke på " Åpen søknad "-knappen, en melding vises , som spør etter navnet på programmet . Du må da gi den fullstendige banen til den kjørbare for det aktuelle programmet. Hvis programmet finnes i systemet banen, ikke som " Notisblokk" i trinn 5 , så kan du hoppe over hele stien .