【forecolor】...Command2.Caption=""停止""ThenLabel3.ForeColor=&H...

网友回答

【答案】 Public i As Integer '定义全局变量i
　　Private Sub Command1_Click() '按钮1点击事件
　　Timer1.Enabled = True '计时器Timer1的Enabled属性为真(即计时器生效)
　　Command1.Visible = False '按钮1Visible属性为假,即按钮1设置为不可见
　　End Sub
　　Private Sub Command2_Click() '按扭2事件
　　If Command2.Caption = 停止 Then '当按钮2的名称为停止时
　　Label3.ForeColor = &HFF& 'Label3(标签3)的文字颜色为红色
　　Timer1.Enabled = False '计时器停止
　　Command2.Caption = 继续 '按钮2的名称修改为 继续
　　List2.AddItem Label3.Caption '将标签3(Label3)的内容加入到List2中
　　List1.RemoveItem Label3.Tag '将标签3(Label3)的tag属性值从List1中移除
　　If List2.ListCount = 5 Then '当List2列表中的对象数量为5时
　　For i = 0 To 4 '循环0-4(5次循环)
　　msg = msg & ☆ & String(10, ) & List2.List(i) & String(10, ) & ☆ & vbCrLf
　　Next i ‘msg = msg + ☆ + 10个 + List2中的一个对象 + 10个 + ☆ + 换行
　　上述代码是读取List2中所有的信息
　　MsgBox msg,vbOKOnly,中奖的号码为 '弹出消息对话框,显示msg这段文字
　　End If
　　Else '否则
　　Timer1.Enabled = True '计时器开始
　　Command2.Caption = 停止 '按钮2的名称设为 停止
　　Label3.ForeColor = &H0& '标签3的文字颜色为黑色
　　End If
　　End Sub
　　Private Sub Form_Load()
　　Timer1.Enabled = False '计时器停止
　　fileno = FreeFile
　　Open App.Path & \电话号码.txt For Input As #fileno ‘读取文本文件 电话号码.txt
　　Do While Not EOF(fileno) ’读到最后一行时结束
　　Input #fileno,b ‘读取txt文件中的一行内容
　　List1.AddItem b ’将这行内容加入到List1中
　　Loop
　　Close #fileno ‘关闭文本文件
　　List1.Visible = False ’List1设置为不可见
　　End Sub
　　Private Sub Timer1_Timer() '计时器1
　　i = i + 1
　　If i >= List1.ListCount Then i = 0 '当i的值大于List1中对象的数量时
　　DoEvents
　　Label1.Caption = Label2.Caption '标签1的内容 = 标签2的内容
　　Label1.Tag = Label2.Tag ‘标签1的tag值=标签2的tag值
　　Label2.Caption = Label3.Caption ’标签2的内容=标签3的内容
　　Label2.Tag = Label3.Tag '标签2的tag值=标签3的tag值
　　Label3.Caption = Label4.Caption ‘标签3的内容=标签4的内容
　　Label3.Tag = Label4.Tag '标签3的tag值=标签4的tag值
　　Label4.Caption = Label5.Caption ‘标签4的内容=标签5的内容
　　Label4.Tag = Label5.Tag '标签4的tag值=标签5的tag值
　　Label5.Caption = List1.List(i) ’标签5的内容 = List1中的一行
　　Label5.Tag = i '标签5的tag值=i
　　End Sub
　　Private Sub Timer2_Timer() '计时器2
　　Static i As Single '定义静态变量 i
　　i = i + 1
　　If i Mod 2 = 0 Then '如果i为偶数
　　Label6.ForeColor = &HFF& '标签6的字体颜色为红色
　　Else '否则
　　Label6.ForeColor = RGB(0,250,0) '标签6的字体颜色为 RGB(0,250,0)
　　End If
　　End Sub
　　这段代码应该是一个以动画形式显示的动态抽奖程序