首页
社区
课程
招聘
求教 vs2011 写的一段代码
发表于: 2012-3-17 11:19 3633

求教 vs2011 写的一段代码

2012-3-17 11:19
3633
Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Interval = 1000
        Timer1.Start()

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim i As New Uri("http://m.weather.com.cn/m/pn8/weather.htm?id=101230901T")
        WebBrowser1.Url = i
        Refresh()
    End Sub
End Class



运行会有“系统刷新”的声音 而且鼠标会显示“忙”
如何改?
望高手指点

[招生]科锐逆向工程师培训(2024年11月15日实地,远程教学同时开班, 第51期)

收藏
免费 0
支持
分享
最新回复 (4)
雪    币: 615
活跃值: (187)
能力值: ( LV9,RANK:140 )
在线值:
发帖
回帖
粉丝
2
线程阻塞了,另开一个界面线程来使用WebBrowser1控件
2012-3-17 12:04
0
雪    币: 355
活跃值: (34)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
3
不要把
Dim i As New Uri("http://m.weather.com.cn/m/pn8/weather.htm?id=101230901T")
        WebBrowser1.Url = i
        Refresh()
写在timer_tick事件中,不要用timer控件,直接写在FORM_load中,如果写在timer_tick中,每过Timer1.Interval = 1000,一秒就会刷新页面
2012-3-17 14:27
0
雪    币: 12
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
4
系统刷新的声音是什么???能否把遇到的问题截图呢?
2012-3-17 16:55
0
雪    币: 222
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
5
就是系统的声音 “开始导航”
2012-3-17 18:02
0
游客
登录 | 注册 方可回帖
返回
//