初始化项目

BLV_Studio/UserControl2.vb

@@ -0,0 +1,10 @@
+Public Class UserSelectColoCMB
+    Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button9.Click, Button8.Click, Button7.Click, Button6.Click, Button5.Click, Button4.Click, Button32.Click, Button31.Click, Button30.Click, Button3.Click, Button29.Click, Button28.Click, Button27.Click, Button26.Click, Button25.Click, Button24.Click, Button23.Click, Button22.Click, Button21.Click, Button20.Click, Button2.Click, Button19.Click, Button18.Click, Button17.Click, Button16.Click, Button15.Click, Button14.Click, Button13.Click, Button12.Click, Button11.Click, Button10.Click, Button1.Click
+        Dim btn As Button =sender
+        SelectColor_btn .BackColor =btn.BackColor 
+    End Sub
+
+    Private Sub RGBok_btn_Click(sender As Object, e As EventArgs) Handles RGBok_btn.Click
+         SelectColor_btn .BackColor =color.FromArgb ( r_txt.Value ,G_txt.Value,B_txt.Value)
+    End Sub
+End Class