Op een gegeven moment vind je het misschien nuttig om een Windows- applicatie onder Visual Basic draaien . Bijvoorbeeld , moet u openen en te werken met een andere toepassing , terwijl een Visual Basic-toepassing uitvoert . De multitasking-mogelijkheden van Windows laten gebeuren . Een enkele Visual Basic opdracht volbrengt de taak , zolang je weet waar op de computer om het uitvoerbare bestand dat de gewenste toepassing opent vinden . Gegeven deze kennis en een paar regels code , de "Shell " commando in Visual Basic doet de rest . Instructies
1 Maak een nieuwe Visual Basic -programma door te klikken op de "Standard EXE " template als Visual Basic opent . Dit verschaft een basisvorm voor een voorbeeld van applicaties geopend met "Shell " commando . Klik op " File " en " Save Project As , " het invoeren van een naam van het formulier en de naam van het project , zoals gevraagd in de kleine ramen die open kunnen . Voor dit voorbeeld gebruikt " OpenWindowsApp " als de naam van het formulier en " Open Windows applicatie ", zoals de naam van het project . Visual Basic wordt de standaard suffixen hechten , " . Frm " om de vorm en de " . Vbp " om de naam van het project . Kopen van 2 Voeg een " OptionButton " om het formulier door te dubbelklikken op deze controle in de " Toolbox " paneel aan de linkerkant van het scherm . Het pictogram voor deze toets in de Toolbox bestaat uit een kleine cirkel met een stip in het midden . Klik op deze knop op het formulier om de eigenschappen te bekijken in het rechterpaneel . Dubbelklik op het " Caption " eigenschap in de lijst om de standaardnaam te markeren . Verander deze naar "Notepad . "
3 Herhaal stap 2 om nog twee OptionButtons toevoegen aan het formulier , het wijzigen van de eigenschap bijschrift voor de tweede naar " Internet Explorer " en de derde aan " Opdrachtprompt . "
4 Dubbelklik op de " CommandButton "icoon , een kleine rechthoek in een groter plein in de Toolbox , om deze aan het formulier toe te voegen . Wijzig de eigenschap bijschrift van deze toets om te lezen " Open Application . " Voeg een tweede CommandButton om het formulier op dezelfde manier , maar maken deze titel leest "Exit . "
5 Klik op " View " en vervolgens " Code " in het menu op het hoogste niveau . In het venster Code , typ de volgende regels exact zoals weergegeven : Private Sub Command1_Click
( ) Dim AppName Zoals StringIf Optie 1 = True ThenShell " Notepad " , vbNormalFocusElseIf Option2 = True ThenShell " C : \\ Program Files \\ internet Explorer \\ iexplore.exe " , vbNormalFocusElseIf Option3 = True ThenShell " C \\ windows \\ system32 \\ cmd.exe " , vbNormalFocusElse : AppName = InputBox ( " Wat applicatie wilt u openen " ) Shell AppName , vbNormalFocusEnd IfEnd sub
Private Sub Command2_Click ( ) EndEnd sub
Druk op " F5 " 6 om het programma uit te voeren . Wanneer u een van de gegeven opties te selecteren en klik vervolgens op "Open Application , " het bijbehorende programma loopt in een nieuw venster . Als u niet een van deze keuzes te selecteren , en klik je gewoon op de "Open Application " knop , een prompt verschijnt , vraagt om de naam van de toepassing . Je moet dan zorgen voor het volledige pad naar het uitvoerbare bestand van het juiste programma . Indien de aanvraag bestaat in het systeem pad , zoals "Notepad " wordt in stap 5 , dan kunt u het volledige pad naam overslaan .
|
