邓丽君边唱边哭的歌:在VB中怎么在文本框中实现,输入一个文本或数字,便随机一种颜色呢?
来源:百度文库 编辑:高校问答 时间:2024/04/20 14:04:04
我想在VB中实现,好像手机一样,输入一个数字便是一种颜色,不知道能不能实现?
Private Sub Form_Load()
Text1 = ""
Randomize
End Sub
Private Sub Text1_Change()
Text1.BackColor = QBColor(Int(Rnd * 16))'改变背景色,可不用
Text1.ForeColor = QBColor(Int(Rnd * Rnd * 16))'改变文字色
End Sub