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

Posted 2021-03-27

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

使用的代码：

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

答案

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

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