Ξεκινήστε ένα νέο έργο της Visual Basic . Ονομάστε το όπως θέλετε . 2
Πηγαίνετε στο " Προβολή φόρμας ", αν δεν είναι ήδη εκεί , κάνοντας κλικ στο μικρό εικονίδιο εμφανίζει ένα παράθυρο . Είναι συνήθως το μεσαίο εικονίδιο στο πάνω μέρος του δεξιού πίνακα εικόνων
3
Δημιουργήστε ένα στοιχείο ελέγχου ετικέτας που ονομάζεται " Label1 " στη φόρμα σας : . Μπορείτε να το κάνετε αυτό κάνοντας κλικ στο εικονίδιο με το γράμμα "Α" πάνω του και στη συνέχεια, σύροντας ένα πλαίσιο στη φόρμα σας γύρω από την περιοχή όπου θα θέλατε να έχουν την ετικέτα
Η
4 Κάντε κλικ στην ετικέτα που μόλις δημιουργήσατε ? . μετακινηθείτε προς τα κάτω για να " Κείμενο " σε το πάνελ ιδιοτήτων , και να γράψει ό, τι κείμενο θέλετε να ετικέτα να περιέχει . Μπορείτε επίσης να αλλάξετε το χρώμα του κειμένου και υπογραμμίζουν ότι για να φανεί σαν μια υπερ-σύνδεση .
5
Πηγαίνετε στο " προβολή κώδικα . " Το εικονίδιο για την προβολή κώδικα είναι προς τα αριστερά της εικόνας για . Προβολή φόρμας
Η 6
αναγνωρίσει το εισαγόμενο λειτουργία για την εκτέλεση του κελύφους από το API των Windows , όπως φαίνεται στο ακόλουθο κώδικα ( οι υπογραμμίσεις είναι υποχρεωτική , δεδομένου ότι δείχνουν ότι ο κώδικας συνεχίζει στην επόμενη γραμμή ) :
Private Declare Function ShellExecute Lib " shell32.dll " Alias " ShellExecuteA " ( ByVal hwnd Όπως Long , _ByVal lpOperation As String , _ByVal lpFile As String , _ByVal lpParameters Όπως String , _ByVal lpDirectory As String , _ByVal nShowCmd Όπως Long ) Όπως Long
Η 7
Πηγαίνετε πίσω στο έντυπο Προβολή και κάντε διπλό κλικ στην ετικέτα που δημιουργήσατε στο παρελθόν - αυτό θα σας μεταφέρει πίσω στο Code View ? μετακινήστε τον κέρσορα στη λειτουργία click εκδήλωση για " . Label1 " Αυτή η λειτουργία είναι συνήθως ονομάζεται " Label1_Click ( ) "
8
Εισάγετε τον παρακάτω κωδικό μεταξύ της δήλωσης της λειτουργίας και "End Sub" : .
ShellExecute Form1 . hwnd , "ανοιχτό" , " http://www.ehow.com " , " " , " " , SW_SHOW Ή SW_NORMAL
Αν έδωσε φόρμα σας ένα διαφορετικό όνομα από το " Form1 , " αλλάξετε το όνομα κατάλληλα . Επίσης , μπορείτε να αλλάξετε το παράδειγμα ιστοσελίδας σε οποιαδήποτε προτιμάτε .
Η 9
Φτιάξτε την αίτησή σας και εκτελέστε το για να βεβαιωθείτε ότι λειτουργεί σωστά .
Η
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα