-
-
求教 vs2011 写的一段代码
-
发表于: 2012-3-17 11:19
-
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("5deK9s2c8@1M7q4)9K6b7g2)9J5c8W2)9J5c8X3#2Q4x3X3g2%4k6h3q4@1K9r3g2J5i4K6u0W2j5$3!0E0i4K6u0W2j5$3&6Q4x3V1k6E0i4K6u0r3M7r3^5^5i4K6u0r3N6$3g2S2N6r3S2W2M7W2)9J5k6h3S2@1L8g2)9K6c8X3W2V1i4K6y4p5x3e0l9I4x3U0x3H3z5e0l9I4g2l9`.`.")
WebBrowser1.Url = i
Refresh()
End Sub
End Class
运行会有“系统刷新”的声音 而且鼠标会显示“忙”
如何改？
望高手指点
|
|
|---|---|
|
|
|
|
|
|
|
|
|
|
|
就是系统的声音 “开始导航”
|
