Question

在vb中,怎样使图片框里的文字产生随机颜色?

Answer 1

Private Sub Timer1_Timer()
Picture1.ForeColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))
Picture1.Print "当前文字着色为" & Picture1.ForeColor
End Sub
变换间隔你可以自己去设置Timer控件的Interval属性

追问

你这样是不断地产生随机颜色字体，我想要的是已有的字体不断地变随机颜色？

追答

不好意思 那我也不知道了 不过你可以在定义完颜色后再重新用
Print方法输入你原来的那些字体
With Picture1
.Cls
.FontSize = 22
.ForeColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))
Picture1.Print "测试字样"
End With