کد:
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:
سلام
دوست عزيز ميشه بيشتر توضيح بديد . من متوجه نشدم .آدرس لينك رو كجا وارد كنم ؟
کد:
label1.caption = "SAITE NAME "
يه ليبل بساز كه caption اون اسم سايت باشه ! مثلا
کد:
label1.caption="www.iranvig.com"
كسري خان توضيح دادند حالا ما هم براي درك مطلب بهتر
يك مثال مي زنيم
کد:
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
دوستان عزيز هر كاري ميكونم error ميده ( مثل اول از ShellExecute و مثال دوم از hwnd)
ميشه ازتون خواهش كنم يه مثال با سورس بزنيد .
اين ارور چيه ؟
من كه كد تست نشده نمي دمت
کد:
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 و ليبل بزار رو فرم !
![[تصویر: 56.gif]](http://asefsoft.com/qsimages/56.gif)
سلام
من كد شما رو كپي كردم ويه button و يه label به فرم اضافه كردم ولي اين error رو ميده Compile erroe: Sub or function not definder و وقتي گذيته help اين error رو انتخاب ميكنم
ميگه " The MSDN collection does not exist. please reinstall MSDN "
اصلا ببينم تو مبحث ميدان ديد تابع رو بلدي
نكنه اين كد ها رو تو ماژول مي ريزي
اين ها رو بايد در قسمت جنرال فرمت بزاري
اگه مي خواهي تو ماژول بزاري اون قسمت
اول كه Private هست رو Public كن