| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
Reworld,下班在家制作游戏,1500万奖金等你拿以码会友 以友辅仁
共有 155 人关注过本帖
标题:关于在多个PICTURE中每隔0.5s填入底色的代码
只看楼主 加入收藏
ygxshanghai
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2011-3-3
结帖率:100%
  已结贴   问题点数:10  回复次数:1   
关于在多个PICTURE中每隔0.5s填入底色的代码
想在多个PICTURE中,每隔0.5s,逐个在PICTURE填入底色,就象有的软件的启动时进度条一样,其代码如下(当然是不对的),请大侠修改,谢谢。
Option Explicit
Dim i As Integer

Private Sub Form_Load()
For i = 0 To 8
  Timer1.Interval = 1000
Next i
End Sub

Private Sub Timer1_Timer()
Picture1(i).BackColor = &HC0C0FF
End Sub
搜索更多相关主题的帖子: 多个 PICTURE 代码 Private Sub 
2019-08-18 22:15
wufuzhang
Rank: 9Rank: 9Rank: 9
来 自:广州
等 级:贵宾
威 望:20
帖 子:198
专家分:1303
注 册:2017-8-9
  得分:10 
回复 楼主 ygxshanghai
程序代码:
Option Explicit

Private Sub Form_Load()
  Timer1.Enabled = True
  Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
  Static i As Integer
  If i <= 15 Then
     Picture1(i).BackColor = &HC0C0FF
  Else
     For i = 0 To 15
         Picture1(i).Visible = False
     Next
  End If
  i = i + 1
End Sub

不经历千百遍的调试,怎能体会成功时那一刹那的喜悦。
2019-08-19 09:14
快速回复:关于在多个PICTURE中每隔0.5s填入底色的代码
数据加载中...
 
   





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

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