tang688大大来救命``如何通过点击按钮在webbrowser中依次5秒打开list1中的N个网址？ - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → tang688大大来救命``如何通过点击按钮在webbrowser中依次5秒打开list1中的N个网址？

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 896 人关注过本帖

标题：tang688大大来救命``如何通过点击按钮在webbrowser中依次5秒打开list1中的N ...

取消只看楼主加入收藏

anluboy

等　级：新手上路
帖　子：49
专家分：0
注　册：2007-7-19
结帖率：100%

楼主

已结贴√ 问题点数：20 回复次数：6

tang688大大来救命``如何通过点击按钮在webbrowser中依次5秒打开list1中的N个网址？

如何通过点击按钮在webbrowser中依次5秒打开list1中的N个网址？
谢谢大家了。。。小弟不才``

[ 本帖最后由 anluboy 于 2012-9-3 21:58 编辑 ]

搜索更多相关主题的帖子: 如何　

2012-09-03 19:04

anluboy

等　级：新手上路
帖　子：49
专家分：0
注　册：2007-7-19

第 2 楼

得分:0

回复 2楼风吹过b

谢谢大大````我试试。。。

2012-09-04 08:57

anluboy

等　级：新手上路
帖　子：49
专家分：0
注　册：2007-7-19

第 3 楼

得分:0

回复 2楼风吹过b

Private Sub Timer1_Timer()
    If i >= List1.ListCount Then i = 0
    WebBrowser2.Navigate List1.List(i)
    i = i + 1
End Sub

Private Sub Command3_Click()
Timer1.Enabled = True
End Sub
我这样写的。。。只能不停的打开一个页面``

2012-09-04 09:32

anluboy

等　级：新手上路
帖　子：49
专家分：0
注　册：2007-7-19

第 4 楼

得分:0

回复 2楼风吹过b

Private Sub Command3_Click()
Dim b As Integer
For b = 0 To 20 Step 1
isok = False
WebBrowser2.Navigate List1.List(b)
Do While isok = False
DoEvents
Loop
Next b
End Sub
换了个方式```只可以打开2个页面。

2012-09-04 10:09