لینک دادن به label

[aleas2]

سلام خسته نباشید دوستان با این کد

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) As Long
Public Function Link(ByVal URL As String) As Long
Link = ShellExecute(0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus)
End Function

Private Sub Label2_Click()
Link "http://www.news110.ir"
End Sub
وقتی کاربر روی label2 کلیک میکنه سایت www.news110.ir تو مروگر اینترنت اکسپلولر باز میشه میخواستم بدونم راهی هسته که سایت تو مروگر فایروفکس باز بشه؟

[محسن واژدی]

سلام علیکم
هم میتوانیم تابع Link را بصورت زیر ویرایش کنیم:
Public Function Link(ByVal URL As String) As Long
Link = ShellExecute(0&, vbNullString, "firefox", URL, vbNullString, vbNormalFocus)
End Function

و یا Shell را جایگزین کنیم:
Public Function Link(ByVal URL As String) As Long
On Error Resume Next
Shell """" & Environ("programfiles") & "\Mozilla Firefox\firefox.exe"" """ & URL & """", vbNormalFocus
End Function

کد اجرا هم مانند قبل است

موفق باشید