[aus-dotnet] Colour Enumeration

[Roger Curtain]

----boundary-LibPST-iamunique-1233114544_-_-
Content-type: text/plain

    The topic of enumerating the named colours was discussed at the Ausdev
conference. The following is one solution.

Regards Roger

   Private Sub Form1_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Load
        Dim colourName As String
        For Each colourName In [Enum].GetNames(GetType(KnownColor))
            ComboBox1.Items.Add(colourName)
        Next
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
ComboBox1.SelectedIndexChanged
        Panel1.BackColor = Color.FromName(ComboBox1.Text)
    End Sub
End Class

_________________
You are a part of the Australian "dotnet" mailing list.
To unsubscribe send "unsubscribe dotnet" or to re-subscribe send "subscribe dotnet Your Name" in the body of the email to: imailsrv@xxxxxxxxxxx
List managed by: http://www.stanski.com

----boundary-LibPST-iamunique-1233114544_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"

e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwICAgICBUaGUgdG9waWMgb2YgZW51bWVyYXRpbmcg
dGhlIG5hbWVkIGNvbG91cnMgd2FzIGRpc2N1c3NlZCBhdCB0aGUgQXVzZGV2XHBhcg0KY29uZmVy
ZW5jZS4gVGhlIGZvbGxvd2luZyBpcyBvbmUgc29sdXRpb24uXHBhcg0KXHBhcg0KUmVnYXJkcyBS
b2dlclxwYXINClxwYXINCiAgIFByaXZhdGUgU3ViIEZvcm0xX0xvYWQoQnlWYWwgc2VuZGVyIEFz
IE9iamVjdCwgQnlWYWwgZSBBc1xwYXINClN5c3RlbS5FdmVudEFyZ3MpIEhhbmRsZXMgTXlCYXNl
LkxvYWRccGFyDQogICAgICAgIERpbSBjb2xvdXJOYW1lIEFzIFN0cmluZ1xwYXINCiAgICAgICAg
Rm9yIEVhY2ggY29sb3VyTmFtZSBJbiBbRW51bV0uR2V0TmFtZXMoR2V0VHlwZShLbm93bkNvbG9y
KSlccGFyDQogICAgICAgICAgICBDb21ib0JveDEuSXRlbXMuQWRkKGNvbG91ck5hbWUpXHBhcg0K
ICAgICAgICBOZXh0XHBhcg0KICAgIEVuZCBTdWJccGFyDQpccGFyDQogICAgUHJpdmF0ZSBTdWIg
Q29tYm9Cb3gxX1NlbGVjdGVkSW5kZXhDaGFuZ2VkKEJ5VmFsIHNlbmRlciBBc1xwYXINClN5c3Rl
bS5PYmplY3QsIEJ5VmFsIGUgQXMgU3lzdGVtLkV2ZW50QXJncykgSGFuZGxlc1xwYXINCkNvbWJv
Qm94MS5TZWxlY3RlZEluZGV4Q2hhbmdlZFxwYXINCiAgICAgICAgUGFuZWwxLkJhY2tDb2xvciA9
IENvbG9yLkZyb21OYW1lKENvbWJvQm94MS5UZXh0KVxwYXINCiAgICBFbmQgU3ViXHBhcg0KRW5k
IENsYXNzXHBhcg0KXHBhcg0KX19fX19fX19fX19fX19fX19ccGFyDQpZb3UgYXJlIGEgcGFydCBv
ZiB0aGUgQXVzdHJhbGlhbiAiZG90bmV0IiBtYWlsaW5nIGxpc3QuXHBhcg0KVG8gdW5zdWJzY3Jp
YmUgc2VuZCAidW5zdWJzY3JpYmUgZG90bmV0IiBvciB0byByZS1zdWJzY3JpYmUgc2VuZCAic3Vi
c2NyaWJlIGRvdG5ldCBZb3VyIE5hbWUiIGluIHRoZSBib2R5IG9mIHRoZSBlbWFpbCB0bzogaW1h
aWxzcnZAc3RhbnNraS5jb21ccGFyDQpMaXN0IG1hbmFnZWQgYnk6IGh0dHA6Ly93d3cufX0AQNSR
FUDAQhAatLkIACsv


----boundary-LibPST-iamunique-1233114544_-_---