窗体设计怎么做

王曾艳　发表于：2010-05-17 16:32:36 　

完成下面的窗体设计

每隔1秒钟，文本框中的字依次按红色的“红”，黄色的“黄”，蓝色的“蓝”循环变化。图1为初始状态。图2中，点开始后，文本框的字开始变化。图3中，点暂停字不再变化。图4为点停止后的状态。

提示：计时功能调用Form_Timer事件，设置TimeInterval=1000

煮江品茶发表于：2010-05-17 20:02:53

Dim i As Long

Private Sub Form_Timer()
i = i + 1
Select Case i
    Case 1
        Me.text1.ForeColor = RGB(255, 0, 0)
    Case 2
        Me.text1.ForeColor = RGB(0, 255, 0)
    Case 3
        Me.text1.ForeColor = RGB(0, 0, 255)
        i = 0
End Select
End Sub

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

窗体设计 怎么做

窗体设计怎么做