Hyperlinks i programmer gør det meget nemt for folk til at gå direkte fra et program til en webside, der normalt indlæses af standardbrowser. Du kan oprette et hyperlink i et program i næsten alle sprog, så længe du kan få adgang til en API ( Application Programming Interface) , som vil give dig mulighed for at kalde funktioner , der anmoder operativsystemet til at udføre visse opgaver . Visual Basic har også denne evne : Alt du skal gøre er at oprette en vis kontrol , der vil kalde Windows API , når der klikkes . Ting du skal
Compiler og IDE til Visual Basic
Vis Flere Instruktioner
1
Start et nyt Visual Basic-projekt . Mærke det som du ønsker.
2
Gå til " Form view ", hvis du ikke allerede er der , ved at klikke på det lille ikon, der viser et vindue. Det er normalt den midterste ikonet øverst i højre panel
3
Opret en etiket , der hedder " Label1 " på din formular : . Du kan gøre dette ved at klikke på ikonet med bogstavet "A" på det og derefter trække en boks i din formular omkring det område , hvor du gerne vil have etiketten
4
Klik på den etiket, du lige har oprettet , . scroll ned til "Tekst" i panelet Egenskaber , og skriv den tekst , du ønsker at navngive at indeholde . Du kan også ændre tekstens farve og understrege det til at gøre det til at ligne et hyperlink.
5
Gå til "Code view ". Ikonet for Code View er til venstre for ikonet for Form View
6
Erklær importerede funktion for shell udførelse fra Windows API , som vist i følgende kode ( understregningstegnene er obligatoriske , idet de angiver, at koden fortsætter til næste linje ) . :
Private Erklær Funktion shellexecute Lib " shell32.dll " Alias " ShellExecuteA " ( ByVal HWND As Long , _ByVal lpOperation As String , _ByVal lpFile As String , _ByVal lpParameters As String , _ByVal lpDirectory As String , _ByVal nShowCmd As Long ) As Long
7
Gå tilbage til Form View og dobbeltklik på den etiket, du oprettede tidligere - dette vil tage dig tilbage til Code View , flytte markøren til den klik begivenheden funktion for " . Label1 " Denne funktion kaldes normalt " Label1_Click ()"
8
Indsæt følgende kode mellem erklæringen af funktionen og " End Sub ": .
ShellExecute Form1 . HWND , "open ", " http://www.ehow.com ", "" , "", SW_SHOW Or SW_NORMAL
p Hvis du gav din formular et andet navn end " Form1 , " ændre navnet korrekt. Du kan også ændre eksempel hjemmeside til enhver , du foretrækker.
9
Byg din ansøgning og køre det for at sikre det virker korrekt.
< Br >