Hvordan åpne en Windows program som bruker Visual Basic

Hvordan åpne en Windows program som bruker Visual Basic


På et tidspunkt kan du finne det fordelaktig å kjøre et Windows-program i henhold til Visual Basic. For eksempel kan du trenger å åpne og arbeide med et annet program mens en Visual Basic-program utfører. Multitasking funksjonene i 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, betyr "Shell" kommandoen i Visual Basic resten.

Bruksanvisning

1 Opprett en ny Visual Basic-programmet ved å klikke på "Standard EXE" mal når Visual Basic åpnes. Dette gir en grunnleggende form for et eksempel på å åpne programmer med "Shell" kommandoen. Klikk "Fil" og "Lagre prosjekt som," inn et skjema navn og prosjektnavnet som du blir bedt om i de små vinduer som kan åpnes. For dette eksempelet bruker "OpenWindowsApp" som skjemanavnet og "Åpne Windows App" som prosjektnavnet. Visual Basic vil legge standard suffikser, ".frm" til skjemaet og «.vbp" til prosjektnavnet.

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øykassa 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å "Caption" eiendom i listen for å markere standardnavnet. Endre dette til "Notisblokk".

3 Gjenta trinn 2 for å legge til to OptionButtons til skjemaet, endre bildetekst eiendom for den andre å "Internet Explorer" og den tredje til "Ledetekst."

4 Dobbeltklikk på "Command" -ikonet, et lite rektangel i et større torg i verktøykassa, for å legge denne til skjemaet. Endre bildeteksten tilhører denne knappen for å lese "Åpne program." Legg til en andre Command til skjemaet på samme måte, men gjør denne bildeteksten lese "Exit".

5 Klikk på "View" og deretter "Code" i øverste menyen. I Code-vinduet, skriver du inn følgende linjer nøyaktig som vist:

Private Sub Command1_Click ()
Dim AppName As String
Hvis Alternativ 1 = True Deretter
Shell "Notisblokk", vbNormalFocus
ElseIf Alternativ 2 = True Deretter
Shell "C: \ Programfiler \ Internet Explorer \ iexplore.exe", vbNormalFocus
ElseIf Alternativ 3 = True Deretter
Shell "C \ windows \ system32 \ cmd.exe", vbNormalFocus
Else: AppName = InputBox ( "Hva program vil du åpne")
Shell AppName, vbNormalFocus
Slutt om
End Sub

Private Sub Command2_Click ()
Slutt
End Sub

6 Trykk "F5" for å kjøre programmet. Når du velger en av de gitte alternativer, og klikk deretter "Åpne program," den relaterte programmet vil kjøre i et nytt vindu. Hvis du ikke velger en av disse valgene, og du bare klikke på "Åpne program" -knappen, vil 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, som "Notisblokk" gjør i trinn 5, så kan du hoppe over hele banen navn.

Hint

  • Bruk Windows Utforsker til å identifisere den fullstendige banen til andre Windows-programmer og deretter enten erstatte disse for eksemplene her eller bruke "Shell" kommando som du ønsker i din egen Visual Basic applikasjoner.
  • Den minste feil i å legge inn en søknad banen og filnavnet vil få opp en "" Run-Time Error 53 ': Finner ikke fil "og føre til at programmet slutter å virke.