Vid något tillfälle kanske du tycker att det är fördelaktigt att köra ett Windows-program i Visual Basic . Till exempel kan du behöva öppna och arbeta med ett annat program medan ett Visual Basic-program körs . De multitasking funktionerna i Windows låta detta ske . En enda Visual Basic kommando utför uppgiften så länge du vet var på datorn för att hitta den körbara filen som öppnas önskat program . Med tanke på denna kunskap och några rader kod , gör " Shell " -kommandot i Visual Basic resten . Instruktioner
1
Skapa ett nytt Visual Basic-program genom att klicka på " Standard EXE " mall när Visual Basic öppnas . Detta ger en grundläggande form för ett exempel på öppna program med " Shell " -kommandot . Klicka på " File " och " Spara projektet som , " skriva in ett formulär namn och projektets namn enligt uppmaningen i de små fönster som kan öppnas . För detta exempel , använd " OpenWindowsApp " som bildar namnet och " Öppna Windows App " som projektnamnet . Visual Basic kommer att fästa de förvalda suffix " . Frm " till formen och " . Vbp " till projektnamnet .
2
Lägg till ett " OptionButton " till formuläret genom att dubbelklicka på denna kontroll i " verktygslådan " panelen till vänster på skärmen . Ikonen för denna knapp i verktygslådan består av en liten cirkel med en prick i mitten . Klicka på denna kontroll i formuläret för att visa egenskaperna i den högra panelen . Dubbelklicka på " Caption " egendom i listan för att markera det förvalda namnet . Ändra detta till " Anteckningar ".
3
Upprepa steg 2 för att lägga till ytterligare två OptionButtons till formen , ändra bildtext egenskapen för det andra att " Internet Explorer " och på tredje " Kommandotolken . "
4
Dubbelklicka på " CommandButton " ikon , en liten rektangel i ett större torg i verktygslådan , för att lägga till detta i formuläret . Ändra bildtexten egenskapen av den här knappen för att läsa " Open Application . " Lägg till en andra CommandButton till formen på samma sätt , men gör detta bildtext läsa " Exit ".
5
Klicka på "Visa " och sedan " koden " i den översta menyn . I fönstret Kod , skriv följande rader exakt som visas :
Private Sub Command1_Click ( ) Dim AppName Som StringIf Option1 = Sant ThenShell " Anteckningar " , vbNormalFocusElseIf Alternativ2 = TRUE ThenShell " C: \\ Program Files \\ Internet Explorer \\ iexplore.exe " , vbNormalFocusElseIf Alternativ3 = Sant ThenShell " C \\ windows \\ system32 \\ cmd.exe " , vbNormalFocusElse : AppName = InputBox ( " ? Vilken applikation vill du öppna " ) Shell AppName , vbNormalFocusEnd IfEnd sub
Private sub Command2_Click ( ) EndEnd sub
6
Tryck " F5 " för att köra programmet . När du väljer en av de givna alternativen och klicka sedan på " Open Application , " det aktuella programmet kommer att köras i ett nytt fönster . Om du inte väljer något av dessa alternativ , och du bara klicka på " Open Application " -knappen , en uppmaning visas som frågar efter namnet på programmet . Du måste då ange den fullständiga sökvägen till den körbara för lämpligt program . Om programmet finns i systemet banan , inte som " Anteckningar " i steg 5 , kan du hoppa över den fullständiga sökvägen .
