|
|
|
новичок
участник
Last Login: 29.07.2000 16:51
Сообщ.: 3,
Visits: 34
|
|
Hi !
Как вставить гиперссылку в программу (на языка VB) ?
Заранее благодарен
|
|
|
|
|
Supreme Being
участник
Last Login: 04.07.2000 8:57
Сообщ.: 194,
Visits: 2 157
|
|
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
Public Const SW_SHOWNORMAL = 1
Public Sub gotoweb(URL As String)
Dim Success As Long
Success = ShellExecute(0&, vbNullString, URL, vbNullString, "C:\", SW_SHOWNORMAL)
End Sub
Public Sub sendemail(Email As String)
Dim Success As Long
Success = ShellExecute(0&, vbNullString, "mailto:" & Email, vbNullString, "C:\", SW_SHOWNORMAL)
End Sub
Private Sub LblURL_Click()
gotoweb("http://www.your-homepage-here.com")
End Sub
Private Sub LblEmail_Click()
sendemail("You_are@home.com")
End Sub
|
|
|
|