Dynamic Color Change

Night Owl · 11-17-2013, 01:13 AM

Works with vb2010 didnt tried vb6

Create

3 text box
1 button

Double click button

Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim rgb1, rgb2, rgb3 As Integer
        rgb1 = TextBox1.Text
        rgb2 = TextBox2.Text
        rgb3 = TextBox2.Text
        Me.BackColor = Color.FromArgb(rgb1, rgb2, rgb3)

    End Sub
End Class

cxS · 11-18-2013, 05:35 AM

This won't work with Option Strict On (and it should be). Nice implicit conversions here. Make an animator that changes through the colors of the HSL cylinder in an endless sequence now. Smile

Dynamic Color Change
Author Message