A nice tool to test a color code, from HTML, Ole and Win32

Category:

Screen/Graphics

Type:

Controls

Difficulty:

Beginning

Author:

Anonymous

Version Compatibility: Visual Basic.NET

More information:

A nice tool to test a color code, from HTML, Ole and Win32

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Dim RadioButton1 As RadioButton 'HTML Color Code radio button Dim RadioButton2 As RadioButton 'Ole Color Code radio button Dim RadioButton3 As RadioButton 'Win32 Color Code radio button Dim TextBox1 As TextBox 'HTML Color Code text box Dim TextBox2 As TextBox 'Ole Color Code text box Dim TextBox3 As TextBox 'Win32 Color Code text box Dim Button1 As Button 'The "get color" button Dim Button2 As Button 'The "close window" button Dim PictureBox1 As PictureBox 'The picture box that shows the color

Code:

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        TextBox1.ReadOnly = True
        TextBox3.ReadOnly = True
        TextBox2.ReadOnly = False

End Sub

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        TextBox1.ReadOnly = False
        TextBox3.ReadOnly = True
        TextBox2.ReadOnly = True

End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        TextBox1.ReadOnly = True
        TextBox3.ReadOnly = False
        TextBox2.ReadOnly = True

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            If RadioButton1.Checked = True Then
                If TextBox1.Text = Nothing Then
                    MsgBox("Please enter an HTML color code", MsgBoxStyle.Exclamation, "Test Color Error")
                Else
                    PictureBox1.BackColor = System.Drawing.ColorTranslator.FromHtml(TextBox1.Text)
                End If
            ElseIf RadioButton2.Checked = True Then
                If TextBox2.Text = Nothing Then
                    MsgBox("Please enter an Ole color code", MsgBoxStyle.Exclamation, "Test Color Error")
                ElseIf IsNumeric(TextBox2.Text) = False Then
                    MsgBox("Please enter a valid Ole color code", MsgBoxStyle.Exclamation, "Test Color Error")
                Else
                    PictureBox1.BackColor = System.Drawing.ColorTranslator.FromOle(TextBox2.Text)
                End If
            ElseIf RadioButton3.Checked = True Then
                If TextBox3.Text = Nothing Then
                    MsgBox("Please enter a Win32 color code", MsgBoxStyle.Exclamation, "Test Color Error")
                ElseIf IsNumeric(TextBox2.Text) = False Then
                    MsgBox("Please enter a valid Win32 color code", MsgBoxStyle.Exclamation, "Test Color Error")
                Else
                    PictureBox1.BackColor = System.Drawing.ColorTranslator.FromWin32(TextBox3.Text)
                End If
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Test Color Error")
        End Try
    End Sub

Private Sub Test_Color_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub