试图制作形式有彩虹选项，但不会工作

Question

因此，我试图将其设置为按下复选框的位置，MetroFramework样式顶部的颜色将会更改，但它只会更改复选框的颜色。我也试图这样做它只是不断变化，所以你不必多次点击它但我似乎无法找到一种方法使它工作。

使用的代码：

    Dim m = New Random()
    Dim s = m.Next(0, 13)
    MetroStyleManager1.Style = DirectCast(s, MetroColorStyle)
    MetroStyleManager1.Style = DirectCast(s, MetroFramework.MetroColorStyle)

Answer 1

如果你想在复选框勾选后自动更改颜色，那么你应该使用timer（） 对于例如在复选框上检查timer1.start（）并在timer.tick（）上输入你的代码：// 在复选框上取消选中调用方法timer1.stop（）。

只有每秒检查一次复选框时，颜色才会改变（取决于间隔）。没有多次点击。