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
 
Weitere Links zum Thema
Color Picker
Farbwerte konvertieren

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (6,6 kB) Downloads bisher: [ 457 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Freitag, 20. Januar 2012