|
À un certain stade, vous pourriez trouver avantageux d'exécuter une application Windows sous Visual Basic. Par exemple, vous pouvez avoir besoin d'ouvrir et de travailler avec une autre application pendant une application Visual Basic exécute . Les capacités de traitement multitâche de Windows permettent que cela se produise . Une seule commande Visual Basic accomplit la tâche aussi longtemps que vous savez où sur l'ordinateur pour trouver le fichier exécutable qui ouvre l'application requise. Compte tenu de cette connaissance et de quelques lignes de code, la commande "Shell" en Visual Basic fait le reste. Instructions
1 créer un nouveau programme Visual Basic en cliquant sur le " EXE standard " modèle lors d' s'ouvre Visual Basic . Cela donne une forme de base pour un exemple d' ouverture d'applications avec la commande "Shell" . Cliquez sur " Fichier" et " Enregistrer le projet sous", entrez un nom de forme et le nom du projet comme demandé dans les petites fenêtres qui s'ouvrent . Pour cet exemple , utilisez " OpenWindowsApp », comme le nom du formulaire et " Ouvrez Windows App" comme nom de projet. Visual Basic joindra les suffixes par défaut " . FRM» à la forme et . " VBP " pour le nom du projet .
2 Ajouter un " OptionButton " à la forme en double- cliquant sur cette commande dans le panneau " boîte à outils " sur la gauche de l'écran. L'icône de ce bouton dans la boîte à outils se compose d'un petit cercle avec un point au centre. Cliquez sur ce contrôle sur le formulaire pour afficher les propriétés dans le panneau de droite . Double -cliquez sur la propriété " Caption" dans la liste pour sélectionner le nom par défaut. Changer cela en " Bloc-notes ".
3 Répétez l'étape 2 pour ajouter deux OptionButtons la forme, la modification de la propriété de la légende pour la seconde à "Internet Explorer" et le troisième " invite de commandes. "
4 Double -cliquez sur l'icône" CommandButton " , un petit rectangle dans un grand carré dans la boîte à outils pour ajouter ceci à la forme . Modifiez la propriété de la légende de ce bouton pour lire " Ouvrir l'application. " Ajouter un second bouton de commande à la forme de la même manière , mais faire de cette légende disait "Exit ".
5 Cliquez sur "View" et puis «Code» dans le menu de niveau supérieur . Dans la fenêtre code, tapez les lignes suivantes exactement comme indiqué:
Private Sub Command1_Click () de AppName As StringIf Option 1 = True ThenShell "notepad" , vbNormalFocusElseIf Option 2 = True ThenShell "C: \\ Program Files \\ Internet Explorer \\ iexplore.exe " , vbNormalFocusElseIf Option3 = True ThenShell " C \\ windows \\ system32 \\ cmd.exe " , vbNormalFocusElse : AppName = InputBox (" Qu'est-ce que l'application que vous souhaitez ouvrir " ) Shell AppName , vbNormalFocusEnd IfEnd sous
Private Sub Command2_Click () EndEnd sous
6 Appuyez sur " F5" pour exécuter le programme. Lorsque vous sélectionnez une des options proposées , puis cliquez sur «Ouvrir l'application", le programme correspondant se déroulera dans une nouvelle fenêtre . Si vous ne sélectionnez pas un de ces choix , et il suffit de cliquer sur le bouton « Open Application " , un message s'affiche , vous demandant le nom de l'application. Vous devez alors fournir le chemin complet de l'exécutable pour le programme approprié. Si la demande existe dans le chemin du système, comme «Bloc-notes » ne l'étape 5, vous pouvez ignorer le nom de chemin complet.
|
