باز کردن سایت از لیست باکس

[mohammadsezar]

سلام
من یه سورس میخوام که یه سری آدرس که توی لیست باکس هست رو توی وب بروزر باز کنه
مثلا
1
2
3
4

با کلیک روی دکمه سایت "1" رو باز کنه
با کلیک روی دکمه سایت "1" بسته شه و سایت "2" رو باز کنه
با کلیک روی دکمه سایت "2"بسته شه و سایت "3" باز بشه
و به همین روال پیش بره.

[meys34]

سلام

Private Sub Form_Load()
List1.AddItem "google.com"
List1.AddItem "yahoo.com"
List1.AddItem "Barnamenevis.org"
End Sub

Private Sub List1_Click()
Webbrowser1.Navigate List1.List(List1.ListIndex)
End Sub

در واقع دستور Webbrowser1.Navigate سایت قبلی رو میبنده و سایت جدید رو باز میکنه

[mohammadsezar]

ممنون درست شد
واقعا ممنونم
دارم یه نرم افزار ارسال نظر بلاگ اسکای می نویسم
درست شد رایگان میزارم همینجا

[hossein161]

موفق باشی
ولی برو دنبال ocr
که نیاز نباشه کپچا رو وارد کنی وگرنه اینجوری زیاد فایده نداره