Private Sub btnOpenColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpenColor.Click
ColorDialog1.CustomColors = New Integer() {6916092, 15195440, 16107657, 1836924, 3758726, _
12566463, 7526079, 7405793, 6945974, 241502, 2296476, 5130294, 3102017, 7324121, _
14993507, 11730944}
ColorDialog1.Color = Color.FromName(txtNamaWarna.Text)
ColorDialog1.FullOpen = True
If ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
txtNamaWarna.Text = ColorDialog1.Color.Name
txtInteger.Text = ColorTranslator.ToWin32(ColorDialog1.Color)
End If
End Sub
Private Sub btnFromName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFromName.Click
Try
txtNamaWarna.BackColor = Color.FromName(txtNamaWarna.Text)
Catch ex As Exception
MsgBox("Warna jenis ini bukan warna baku, jadi tidak bisa dikonversi via FromName")
End Try
End Sub
Private Sub btnFromInteger_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFromInteger.Click
txtInteger.BackColor = ColorTranslator.FromWin32(txtInteger.Text)
'Konversi ke nama
txtInteger.Text = ColorTranslator.ToHtml(ColorTranslator.FromWin32(txtInteger.Text))
End Sub
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
txtNamaWarna.Text = " "
txtInteger.Text = ""
txtNamaWarna.BackColor = Color.White
txtInteger.BackColor = Color.White
txtNamaWarna.Focus()
End Sub
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
End
End Sub
End Class
