简单的VB小程序

如何用VB6.0版编写一个变色的程序？

2024-11-27 09:39:18

推荐回答（4个）

回答1：

在窗体添加一个标签，一个计时器控件,
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
Label1.Caption = "字体随机变色"
End Sub

Private Sub Timer1_Timer()

Label1.ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
End Sub

回答2：

题目都没说清楚，你想变什么的颜色....
在窗体添加一个text1、CommonDialog1控件
Private Sub command1_Click()
CommonDialog1.ShowColor
text1.BackColor = CommonDialog1.Color
End Sub ' 这个是改变text文本的背景颜色

回答3：

这样的问题不要再问了，去网上，下载一些代码，自己慢慢看吧，清楚很！！！

回答4：

能不能再详细点。。。