UC知道这句VB代码怎么写？
来源：百度知道 编辑：UC知道 时间：2024/06/06 08:05:33
我新建了一个Command1（命名为刷新）
按刷新按钮一次，打开网页为，baidu.com
再按一次，打开网页为，G.cn
当按完，G.cn网页，就循环到第一个，baidu.com网页
代码怎么写，麻烦详细点~谢谢
打开的网页要全在VB的WebBrowser打开~不是弹出来！谢谢~
再加点分~
！！！要求是在VB中打开网页的！！！
！！！要求是在VB中打开网页的！！！麻烦了~谢谢
1楼方法是好~不过是弹出网页的~不是在VB中打开
2楼方法复制
3楼方法，实时错误，不支持该对象或属性
按刷新按钮一次，打开网页为，baidu.com
再按一次，打开网页为，G.cn
当按完，G.cn网页，就循环到第一个，baidu.com网页
代码怎么写，麻烦详细点~谢谢
打开的网页要全在VB的WebBrowser打开~不是弹出来！谢谢~
再加点分~
！！！要求是在VB中打开网页的！！！
！！！要求是在VB中打开网页的！！！麻烦了~谢谢
1楼方法是好~不过是弹出网页的~不是在VB中打开
2楼方法复制
3楼方法，实时错误，不支持该对象或属性
Private Sub Command1_Click()
Static web&
web = web + 1
If web = 1 Then
Shell "explorer http://www.baidu.com"
End If
If web = 2 Then
Shell "explorer http://G.cn"
web = 1
End If
'if web=3 then 打开其他网址
'if web=4 then .....
'以此类推..最后一次的让web=1即可循环到开始
End Sub
定义一个全局变量啊，参考下面的例子，只要把label1的现实改为网页链接就可以了。
Public CountNum As Integer
Private Sub Command1_Click()
If CountNum > 3 Then
CountNum = 0
End If
Select Case CountNum
Case 0:
Label1.Caption = "0"
Case 1:
Label1.Caption = "1"
Case 2:
Label1.Caption = "2"
Case 3:
Label1.Caption =