+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: لیست باکس (/showthread.php?tid=3022)
لیست باکس - a.adhami - 01-24-2013
سلام ,
توی یک لیست باکس چندتا آدرس سایت است و میخوام با 1 وب براوزر internet control به این سایت ها برود
RE: لیست باکس - Amin_Mansouri - 01-24-2013
سلام
با کلیک کردن روی ایتم ها وارد بشه؟
RE: لیست باکس - a.adhami - 01-24-2013
نه از اولین سایت بصورت اتوماتیک بره
RE: لیست باکس - Amin_Mansouri - 01-24-2013
کد:
Private Sub Command1_Click()
For I = O To List1.ListCount - 1
WebBrowser1.Navigate (List1.List(I))
Next
End SubRE: لیست باکس - a.adhami - 02-22-2013
این کد ایراد داره وقتی میزنم رو کامند میره تو سایت آخر و بازدید میکنه ولی سایتای دیگرو نمیره فقط سایت آخریو میاره
RE: لیست باکس - a.adhami - 02-23-2013
Ay baba engar kasi nemikhad javabamo bede
RE: لیست باکس - Amin_Mansouri - 02-23-2013
سلام
اقا من مریضم تب شدید کردم
بفرمایید :
کد:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
For i = O To List1.ListCount - 1
Sleep 8000
MsgBox List1.List(i)
WebBrowser1.Navigate (List1.List(i))
Next
End SubRE: لیست باکس - a.adhami - 02-23-2013
Bekhoda bebakhshid ke mozahem shodam ishala zood tar khoob shi
RE: لیست باکس - a.adhami - 02-23-2013
bebakhshid kodesh kheili sangine mizanam proje miterke close program baiad bokonam
RE: لیست باکس - Amin_Mansouri - 03-01-2013
بفرمایید:
لطفا فارسی تایپ کنید وعنوان مناسب برای تایپک استفاده کنید.
اینم کد:
کد:
Private Declare Function GetTickCount Lib "kernel32" () As Long
Public Sub Wait(Time As Long)
Dim StartTime As Long
StartTime = GetTickCount()
While (StartTime + Time) > GetTickCount()
DoEvents
Wend
End Sub
Private Sub Command1_Click()
For i = O To List1.ListCount - 1
Wait 8000
MsgBox List1.List(i)
WebBrowser1.Navigate (List1.List(i))
Next
End Sub