Кнопкм - линк на сайт

[aivus]

Подскажите пожалуйста, как сделать кнопку при нажатии на которую открывается браузер и сайтом domain.com :unsure:


Заранее спасибо!

 

[Winux]

Деклорация:

Private 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)
   Private Declare Function GetDesktopWindow Lib "user32" () As Long
   Const SW_SHOWNORMAL = 1

Сама кнопка:

Private Sub Label1_Click()
Call ShellExecute(GetDesktopWindow, "Open", Label1.Caption, "", "c:\", SW_SHOWNORMAL)
End Sub

Бесит меня ВИН апи, но бывает полезным.

 

[Lexandrus]

Если Вам нужно осуществить это в vb.net, тогда можно все сделать намного проще. Там есть специальный контрол, называется LinkLabel. Вот как им пользоваться:

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Process.Start(String.Format("mailto:{0}", LinkLabel1.Text))
    End Sub