Question

vb程序让字体颜色一直变换

我知道肯定要用timer控件的。其他的我就不知道了。恳求好心人编写一段代码，并加上该代码的作用。

Answer 1

首先要知道颜色的函数  还有就是知道TIMER 的事件  就可以做出了

Answer 2

在窗体上画一个label和一个timer

 

代码如下：

Dim i As Long
Private Sub Form_Load()
    Timer1.Interval = 1000
    Label1.Caption = "看我72变"
End Sub
Private Sub Timer1_Timer()
    
    i = i Mod 2
    Select Case i
    
        Case 0
            Label1.ForeColor = vbRed
        Case 1
            Label1.ForeColor = vbBlue
        Case 2
            Label1.ForeColor = vbBack
    End Select
    
    i = i + 1
End Sub

或者你直接下载附件【变色.rar】可以直接运行

Answer 3

恩 例如让Label的字体颜色一直变 在Timer1_Tick下写代码
label1.forecolor=RGB(rnd*256, rnd*256 ,rnd*256 ) 就Ok了

Answer 4

程序已上传，内附每句代码详解。