Hypertextové odkazy na URL
Založte nový projekt s modulem a formulářem. Do formuláře přidejte tlačítko a TextBox.
V modulu definujte:
Public Declare
Function 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
*Tato
deklarace musí být celá na samostatném řádku
Public Function HyperJump(ByVal URL As String) As Long
HyperJump = ShellExecute(0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus)
End Function
Ve formuláři, na událost
Click tlačítka:
Private Sub Command1_Click()
Call HyperJump(Text1.Text)
End Sub
Pokud nyní vyplníte správnou adresu v
textboxu, po kliknutí na tlačítko systém otevře browser na zadané
adrese.