“纯色图片”用PictureBox模拟,所以问题转化为如何获取一个随机的颜色(值)
Private Sub Command1_Click()
Randomize Time
Picture1.BackColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
MsgBox "当前颜色值:&H" & Hex(Picture1.BackColor)
End Sub
如果你有准备好的图片,并且颜色名字也是固定的(比如文件名就是颜色名称),那么问题就是如何读取文件了。这需要更多的细节
温馨提示:答案为网友推荐,仅供参考