标题:天气预报显示代码问题
取消只看楼主
事业男儿
Rank: 2
等 级:论坛游民
帖 子:308
专家分:14
注 册:2007-4-25
结帖率:81.69%
已结贴  问题点数:20 回复次数:2 
天气预报显示代码问题
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, "北京天气预报代码免费调用")
  lable1.caption = Mid(a, i + 22, j - i - 23)
End Sub
在软件正常显示天气后,我人为短掉网络,可是怎么lable1.caption还是在显示有天气预报,我想让他在突然断网后显示为零  或者没有数据。谢谢!
搜索更多相关主题的帖子: 天气预报 北京天气 
2014-04-17 18:32
事业男儿
Rank: 2
等 级:论坛游民
帖 子:308
专家分:14
注 册:2007-4-25
得分:0 
不行哦  我都是 过了自动不会消除,奇怪的是  有定时刷新都不消除,不知道是不是lable1.caption没有其他写入就不会消失。
2014-04-17 19:44
事业男儿
Rank: 2
等 级:论坛游民
帖 子:308
专家分:14
注 册:2007-4-25
得分:0 
Timer1_Timer  我是设置了1000的,只是没有作判断,
谢谢版主
2014-04-17 21:25



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-430234-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.026016 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved