دادن آدرس يك لينك به يك button

[mehdiyg]

سلام دوستان
من يه فرم دارم كه يه button روش داره ميخوام آدرس
http://login.passport.net/uilogin.srf?lc=1033&id=2 رو كه صفحه Sign in سايت Hotmail است رو با دستور shell به اين button بدم ولي قبول نميكنه فقط آدرس اصلي يعني
www.msn.com رو قبول ميكنه . چيكار ميتونم بكنم كه همچين لينكهايي رو هم باز كنم

[kasrakhan]

کد:

Function LaunchSite(frm As Form, sAddress As String)
    ShellExecute frm.hwnd, vbNullString, sAddress, vbNullString, "C:\", SW_SHOWNORMAL
End Function

Private Sub command1_Click()
LaunchSite Me, Label1.Caption
End Sub

به ليبل هم اسم سايت رو بده !‌ :wink:

[mehdiyg]

سلام
دوست عزيز ميشه بيشتر توضيح بديد . من متوجه نشدم .آدرس لينك رو كجا وارد كنم ؟

[kasrakhan]

کد:

label1.caption = "SAITE NAME "

يه ليبل بساز كه caption اون اسم سايت باشه !‌ مثلا

کد:

label1.caption="www.iranvig.com"

[Iron_Fist]

كسري خان توضيح دادند حالا ما هم براي درك مطلب بهتر
يك مثال مي زنيم

کد:

ShellExecute hwnd, "open", "http://login.passport.net/uilogin.srf?lc=1033&id=2 ", vbNullString, vbNullString, SW_SHOW

اينم دكلريشن

کد:

Private Const SW_SHOWNORMAL = 1
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

[mehdiyg]

دوستان عزيز هر كاري ميكونم error ميده ( مثل اول از ShellExecute و مثال دوم از hwnd)
ميشه ازتون خواهش كنم يه مثال با سورس بزنيد .

[Iron_Fist]

اين ارور چيه ؟
من كه كد تست نشده نمي دمت

[kasrakhan]

کد:

Function LaunchSite(frm As Form, sAddress As String)
    ShellExecute frm.hwnd, vbNullString, sAddress, vbNullString, "C:\", SW_SHOWNORMAL
End Function


label1.caption="www.iranvig.com"

Private Sub command1_Click()
LaunchSite Me, Label1.Caption
End Sub

فقط يه يه button و ليبل بزار رو فرم !‌

[mehdiyg]

سلام
من كد شما رو كپي كردم ويه button و يه label به فرم اضافه كردم ولي اين error رو ميده Compile erroe: Sub or function not definder و وقتي گذيته help اين error رو انتخاب ميكنم
ميگه " The MSDN collection does not exist. please reinstall MSDN "

[Iron_Fist]

اصلا ببينم تو مبحث ميدان ديد تابع رو بلدي
نكنه اين كد ها رو تو ماژول مي ريزي
اين ها رو بايد در قسمت جنرال فرمت بزاري
اگه مي خواهي تو ماژول بزاري اون قسمت
اول كه Private هست رو Public كن