Parsi Coders
طریقه ساخت لیبل هایپرلینک(ویژوال یسیک 6) - نسخه قابل چاپ

+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: طریقه ساخت لیبل هایپرلینک(ویژوال یسیک 6) (/showthread.php?tid=2399)



طریقه ساخت لیبل هایپرلینک(ویژوال یسیک 6) - Amin_Mansouri - 06-12-2012

درود

شاید بعضی موقع ها برنامه های که مینیویسم دوست داریم توی قسمت ABOUT برنامه ادرس سایت سازنده هم توی لیبل بزارید.

خوب برای اینکه ادرس سایت رو وارد کردیم در لیبل باید قابلیت این هم باشه که کاربر وقتی بخواد روی LABEL کلیک کنه وب سایت مورد نظر توسط مرورگر باز شود.

سورس زیر رو میخواستم ارائه بدم تصمیم گرفتم دیگه واسه شما دوستان عزیز بصورت تابع سورس رو ادیت بزنم.

یک ماژول ایجاد کرده و کدهای زیر رو داخل ان Paste کنید.

کد:
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 By :parsicoders.com & Www.PxR.ir

Public Sub OpenUrl(Url As String)
On Error GoTo frootloops:
Dim gowhere As String
    
    Dim iRet As Long
    Dim response As Integer
    
    response = MsgBox("This will launch your Browser and take you to " & _
                      Url & vbCrLf & vbCrLf & _
                      "                  Do you wish to continue?", 4, _
                      ThisApp & ThisVer)
    axe = Mid(App.Path, 1, 3)
    Select Case response
        
        Case vbYes:
        iRet = ShellExecute(Normal.hwnd, vbNullString, _
               Url, vbNullString, _
               axe, SW_SHOWNORMAL)
        
        Case vbNo:
        Exit Sub
    End Select
    Exit Sub
frootloops:
    MsgBox Err.Description
    Exit Sub
End Sub



نحوه فراخوانی بسیار اسان هست فقط توی Caption لیبل ادرس سایت خودتون رو نوشته باشید.

Example:

کد:
OpenUrl (Label3.Caption)



RE: طریقه ساخت لیبل هایپرلینک(ویژوال یسیک 6) - Amin_Mansouri - 06-12-2012

البته با یک خط هم میتونید اینکارو کنید :-)
لینک:
کد:
Private Sub Form_Load()
Shell ("cmd /c start Www.ParsiCoders.com"), vbNormalFocus
End Sub