1 Δημιουργήστε ένα νέο πρόγραμμα της Visual Basic , κάνοντας κλικ στο "Standard EXE " πρότυπο όταν Visual Basic ανοίγει . Αυτό αποτελεί μια βασική μορφή για παράδειγμα το άνοιγμα εφαρμογών με τη " Shell " εντολή . Κάντε κλικ στο " Αρχείο" και " Save Project As, " για την καταχώριση ονομασίας μορφή και το όνομα του έργου , όπως ζητείται στα μικρά παράθυρα που ανοίγουν . Για αυτό το παράδειγμα , χρησιμοποιήστε " OpenWindowsApp ", όπως το όνομα της φόρμας και " Ανοίξτε το Windows App ", όπως το όνομα του έργου . Visual Basic θα δώσει τις προεπιλεγμένες καταλήξεις " . Frm » με την μορφή και το " . Vbp " στο όνομα του έργου . 2
Προσθέστε ένα " OptionButton » με την μορφή κάνοντας διπλό κλικ σε αυτό τον έλεγχο στο "Toolbox " στα αριστερά της οθόνης . Το εικονίδιο για αυτό το κουμπί στην εργαλειοθήκη αποτελείται από ένα μικρό κύκλο με μια τελεία στο κέντρο . Κάντε κλικ σε αυτό το στοιχείο ελέγχου στη φόρμα , για να προβάλετε τις ιδιότητες στη δεξιά πλευρά . Κάντε διπλό κλικ στο " Λεζάντα " ιδιοκτησίας στην λίστα για να επισημάνετε το προεπιλεγμένο όνομα . Αλλάξτε την επιλογή " Σημειωματάριο ".
Εικόνων 3
Επαναλάβετε το Βήμα 2 για να προσθέσει δύο ακόμα OptionButtons στη φόρμα , αλλάζοντας την ιδιότητα λεζάντα για τον δεύτερο να "Internet Explorer" και το τρίτο " Command Prompt . "
Η
4 κάντε διπλό κλικ στο εικονίδιο" CommandButton " , ένα μικρό ορθογώνιο σε μια μεγαλύτερη πλατεία στην εργαλειοθήκη , για να προσθέσετε αυτό το έντυπο . Αλλάξτε την ιδιότητα λεζάντα αυτό το κουμπί για να διαβάσετε "Άνοιγμα εφαρμογών . " Προσθέστε ένα δεύτερο CommandButton στη φόρμα με τον ίδιο τρόπο , αλλά κάνουν αυτό λεζάντα διαβάσει "Exit ".
5
Κάντε κλικ στο κουμπί "Προβολή" και τότε " Κώδικας " στο μενού ανώτερου επιπέδου . Στο παράθυρο κώδικα , πληκτρολογήστε τις ακόλουθες γραμμές ακριβώς όπως φαίνεται :
Private Sub Command1_Click ( ) Dim AppName Όπως StringIf Option1 = True ThenShell " Σημειωματάριο" , vbNormalFocusElseIf Επιλογή 2 = True ThenShell " C : \\ Program Files \\ Internet Explorer \\ iexplore.exe " , vbNormalFocusElseIf επιλογή 3 = True ThenShell " C \\ windows \\ system32 \\ cmd.exe " , vbNormalFocusElse : Όνομα_εφαρμογής = InputBox ( " Τι εφαρμογή θέλετε να ανοίξετε " ) Shell AppName , vbNormalFocusEnd IfEnd υπο
Private Sub Command2_Click ( ) EndEnd Sub
Η
6 Πατήστε το πλήκτρο " F5 " για να εκτελέσετε το πρόγραμμα . Όταν επιλέγετε μία από τις δεδομένες επιλογές και στη συνέχεια κάντε κλικ στο κουμπί "Άνοιγμα εφαρμογών», το σχετικό πρόγραμμα θα τρέξει σε ένα νέο παράθυρο . Αν δεν επιλέξετε μία από αυτές τις επιλογές , και μπορείτε απλά κάντε κλικ στο κουμπί " Open Application " , θα εμφανιστεί ένα μήνυμα , ζητώντας για το όνομα της εφαρμογής . Θα πρέπει στη συνέχεια να παράσχει την πλήρη διαδρομή προς το εκτελέσιμο για το κατάλληλο πρόγραμμα . Εάν υπάρχει η εφαρμογή στη διαδρομή του συστήματος , ως " Σημειωματάριο" κάνει στο Βήμα 5 , τότε μπορείτε να παραλείψετε το πλήρες όνομα διαδρομής .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα