请教一点代码,本意要LABEL4的背景每一秒红绿交换变的,可是不成功。

[复制链接]
查看11 | 回复1 | 2009-1-23 23:30:20 | 显示全部楼层 |阅读模式
Private Sub Form_Load()
Dim flag As Integer

flag = 1

Timer1.Enabled = True


End Sub
Private Sub Timer1_Timer()
If flag = 1 Then
Label4.BackColor = &HFF
flag = 0
Else
Label4.BackColor = &HFF0000
flag = 1
End If
End Sub

回复

使用道具 举报

千问 | 2009-1-23 23:30:20 | 显示全部楼层
把 Dim flag As Integer 这句移到所有函数之前,变成全局变量你这样申请的是局部变量,在两个函数中是不同的...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行