11 lines
911 B
VB.net
11 lines
911 B
VB.net
|
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
|