• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 11 رای - 2.36 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: طریقه ساخت لیبل هایپرلینک(ویژوال یسیک 6)
حالت موضوعی
#1
درود

شاید بعضی موقع ها برنامه های که مینیویسم دوست داریم توی قسمت 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)
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
#2
البته با یک خط هم میتونید اینکارو کنید :-)
لینک:
کد:
Private Sub Form_Load()
Shell ("cmd /c start Www.ParsiCoders.com"), vbNormalFocus
End Sub
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  سورس کدهای ویژوال بیسیک Amin_Mansouri 8 18,466 05-15-2017، 04:35 PM
آخرین ارسال: minarad69
  سورس کد شماره گیری از مودم (ویژوال بیسیک 6 ) Amin_Mansouri 1 7,061 05-07-2017، 06:54 PM
آخرین ارسال: alikorg
  چگونه فایل exe با ویژوال بیسیک بسازیم ؟ Amin_Mansouri 4 14,632 08-13-2015، 10:08 PM
آخرین ارسال: Amin_Mansouri
  مشکل با ارور ویژوال بیسیک aghamali 4 7,997 07-03-2015، 11:14 AM
آخرین ارسال: aaaaaaaaa
  سورس کد کار با وب کم (ویژوال بسیک 6) Amin_Mansouri 1 8,572 04-20-2015، 10:10 PM
آخرین ارسال: hackert41389
  سورس کد زوم کردن بر روی عکس ویژوال بیسیک 6 Amin_Mansouri 1 7,421 04-26-2014، 11:11 PM
آخرین ارسال: سلام
  دانلود 2 هزار 300 سورس کد ویژوال بیسیک 6 (ویژوال بیسیک 6 از ابتدا تا حرفه ای شدن Amin_Mansouri 4 17,579 04-16-2014، 10:16 PM
آخرین ارسال: Amin_Mansouri
  دانلود 398 ایکون ویژوال بیسیک 6 Amin_Mansouri 0 7,140 02-04-2014، 09:52 AM
آخرین ارسال: Amin_Mansouri
  دانلود فایل اکسس برای ساخت دیکشنری sajad-kh 0 5,168 01-28-2014، 01:24 PM
آخرین ارسال: sajad-kh
  آموزش ساخت اسپمر تبلیغاتی برای بلاگفا Amin_Mansouri 14 25,859 12-27-2013، 08:46 PM
آخرین ارسال: SnipeR

پرش به انجمن:


Browsing: 1 مهمان