![]() |
|
Tipp 0099
|
Bekannte Farben auslesen (KnownColors)
|
 |
|
Autor/Einsender:
Datum: |
|
Michael Werner
29.12.2005 |
|
| Entwicklungsumgebung: |
|
VB.Net 2003 |
| Framework: |
|
1.1 |
|
|
|
Vordefinierte Farben werden auch als bekannte Farben bezeichnet und durch ein Element der
KnownColor-Enumeration dargestellt. Die Methode Color.ToKnownColor ruft den KnownColor-Wert
der Color-Struktur ab. Alle bekannte Farben (KnownColors), insgesamt 167 Farben, werden in diesem Tipp zunächst über die
Methode TypeConverter.GetStandardValues ausgelesen und in ein ArrayList geschrieben und schließlich über die
Anwahl in einer ListBox ausgewählt, und mit Farb-Name, Hexadezimal-Wert und RGB-Wert angezeigt.
|
|
| |
Public Class Form1
Inherits System.Windows.Forms.Form Vom Windows Form Designer generierter Code
Private coltrans As ColorTranslator
Private arrKnownColors As New ArrayList
Private Sub ListKnownColors()
Dim color As System.Drawing.Color
For Each color In _
System.ComponentModel.TypeDescriptor.GetConverter( _
GetType(Color)).GetStandardValues
arrKnownColors.Add(color.ToKnownColor)
Me.ListBox1.Items.Add(color.ToKnownColor)
Next
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As _
System.Object, ByVal e As System.EventArgs) Handles _
ListBox1.SelectedIndexChanged
If ListBox1.SelectedItem.ToString = "Transparent" Then
Exit Sub
End If
Dim col As Color = Color.FromName( _
ListBox1.SelectedItem.ToString)
Label1.BackColor = col
Label2.Text = ListBox1.SelectedItem.ToString
Label3.Text = Hex(coltrans.ToOle(col))
Dim r As Integer = col.R
Dim g As Integer = col.G
Dim b As Integer = col.B
Label4.Text = "RGB(" & CStr(r) & ", " & CStr(g) & ", " & _
CStr(b) & ")"
End Sub
End Class
|
|
|
|
|
|
|
| Windows-Version |
| 98/SE |
 |
|
| ME |
|
|
| NT |
|
|
| 2000 |
|
|
| XP |
|
|
| Vista |
|
|
| Win
7 |
|
|
|
|
Download (6,6 kB)
|
Downloads bisher: [ 533 ]
|
|
|
Vorheriger Tipp
Zum Seitenanfang 