ساخت لينك در ويژوال بيسيك

[shahram_g]

سلام.
چطوري و با چه دستوري مي تونم در ويژوال بيسيك وقتي روي يك label كليك مي كنيم وارد يك سايت مثل google يا هر سايت ديگر شويم؟

[ahmadflasher]

Shell ("EXPLORER http://www.web2fa.com"), vbMaximizedFocus

[mehdigholami]

دوستان چطور میشه به جای آدرس سایت آدرس یک فیلد رو داد مثلا آدرس یک تکست باکس که آدرس سایت توی اون ذخیره شده

[mmssoft]

این روش وب سایت رو توسط اینترنت اکسپلورر باز میکنه :

Shell ("EXPLORER " & Text1.Text), vbMaximizedFocus

ولی با روش زیر وبسایت با مرورگر پیشفرض ویندوز باز میشه :

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

Dim A&

    A& = ShellExecute(Me.hwnd, "Open", Text1.Text, "", App.Path, 1)

[mehdigholami]

ممنون دوست عزیز ولی وقتی من این کد رو اجرا میکنم سیستم من خطا میده ممکنه که ایراد از سیستم من باشه؟Untitled.jpg

[mmssoft]

اگه میشه کل کدتون رو بذارید تا ببینم...

[mehdigholami]

من یه نمونه درست کردم بر اساس کد شما که جواب نداد همون رو واستون میزارم

[mmssoft]

دوست عزیز این چه فایلی هست گذاشتید؟؟ سورس برنامه رو بذارید...