天气预报显示代码问题 - 编程论坛

#2

vbvcr512014-04-17 18:58

清除缓存就没有了

#3

事业男儿2014-04-17 19:44

不行哦我都是过了自动不会消除，奇怪的是有定时刷新都不消除，不知道是不是lable1.caption没有其他写入就不会消失。

#4

lowxiong2014-04-17 20:58

应该是你的定时代码根本就没有运行，如正常运行，则断网后会在“lable1.caption = Mid(a, i + 22, j - i - 23)”提示出错（lable1.caption 应该是Label1.Caption吧）。将Timer1.Interval设一个值（1000），可启动定时，如想执行定时不出错误提示，则修改代码如下（已调试通过）：
Private Sub Timer1_Timer()
  Dim a As String, i As Integer, j As Integer
  a = Inet1.OpenURL("http://tianqi., icString)
  i = InStr(a, "description")
  j = InStr(a, "北京天气预报代码免费调用")
  If i > 0 And j > 0 Then
    Label1.Caption = Mid(a, i + 22, j - i - 23)
  Else
    Label1.Caption = ""
  End If
End Sub

#5

事业男儿2014-04-17 21:25

Timer1_Timer 我是设置了1000的，只是没有作判断，
谢谢版主