以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]随机颜色问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132838)
--  作者：sunion
--  发布时间：2019/3/31 10:23:00
--  [求助]随机颜色问题
我生成一个颜色集合，下面的问题是，我要实现label的字体颜色从颜色集合中随机取值，代码如何实现？请大家提示一下，谢谢
Dim a As new List (of color)
a.Add(Color.blue)
a.Add(Color.green)
a.Add(Color.red)
a.Add(Color.gray)



label.ForeColor =  
--  作者：有点甜
--  发布时间：2019/4/1 11:28:00
--  

Dim a As new List (of color)
a.Add(Color.blue)
a.Add(Color.green)
a.Add(Color.red)
a.Add(Color.gray)

 

e.form.controls("label1").forecolor = a(Rand.Next(0, a.count))