På et tidspunkt du måske finde det gavnligt at køre et Windows-program under Visual Basic. For eksempel kan du nødt til at åbne og arbejde med et andet program , mens en Visual Basic-program udfører . Multitasking kapaciteter af Windows lader dette ske . En enkelt Visual Basic kommando udretter opgaven , så længe du ved, hvor på computeren for at finde den eksekverbare fil , der åbner den ønskede applikation. I betragtning af denne viden og et par linjer kode , betyder " Shell " kommando i Visual Basic resten. Instruktioner
1
Opret en ny Visual Basic-program ved at klikke på " Standard EXE " skabelon, når Visual Basic åbnes. Dette giver en grundlæggende form for et eksempel på åbne programmer med " Shell " kommando . Klik på "File " og " Save Project As" indtaste et formular navn og projektets navn som du bliver bedt om i de små vinduer , der kan åbnes . Til dette eksempel bruger " OpenWindowsApp " som formen navn og "Åbn Windows App " som projektets navn. Visual Basic vil tillægge standard suffikser " . Frm " til formularen og " . Vbp " til projektets navn .
2
Tilføj et " OptionButton " til formularen ved at dobbeltklikke på denne kontrol i "Toolbox " panel på venstre side af skærmen . Ikonet for denne knap i værktøjskassen består af en lille cirkel med en prik i midten. Klik på dette kontrolelement i formularen for at se egenskaberne i højre panel . Dobbelt-klik på " Caption " ejendom i listen for at markere standardnavnet. Ændre dette til " Notesblok ".
3
Gentag trin 2 for at tilføje yderligere to OptionButtons til formularen , ændre billedteksten ejendom til den anden til " Internet Explorer " og den tredje " Kommandoprompt. "
4
Dobbeltklik på" CommandButton "ikonet , en lille firkant i en større firkant i værktøjskassen , at tilføje dette til formularen. Ændre billedteksten ejendom af denne knap for at læse " Open Application . " Tilføj en anden CommandButton til formularen på samme måde , men gør denne billedtekst læse "Exit ".
5
Klik på " View" og derefter " Code" i øverste menu . I vinduet Kode skrive følgende linjer nøjagtigt som vist :
Private Sub Command1_Click ( ) Dim AppName As StringIf Funktion1 = Sand ThenShell " Notesblok ", vbNormalFocusElseIf Funktion2 = true ThenShell "C : \\ Program Files \\ Internet Explorer \\ iexplore.exe " vbNormalFocusElseIf Funktion3 = Sand ThenShell " C \\ windows \\ system32 \\ cmd.exe " vbNormalFocusElse : AppName = InputBox ( " Hvad program vil du åbne " ) Shell AppName , vbNormalFocusEnd IfEnd sub
Private Sub Command2_Click () EndEnd sub
6
Tryk på " F5 " for at køre programmet. Når du vælger en af de givne muligheder, og klik derefter på "Åbn Application, " det tilknyttede program vil køre i et nyt vindue. Hvis du ikke vælger en af disse valg , og du blot klikke på " Open Application " knappen, en prompt vises , beder om navnet på programmet . Du skal derefter give den fulde sti til den eksekverbare efter programmet . Hvis programmet findes i systemet stien , er som " Notepad " i trin 5 , så kan du springe den fulde sti navn.