Користите боје вашег програма у Висуал Студио

Овај пример је настао из упита у овом чланку .

Контрола ЦолорДиалог представља традиционалну палету боја, али истина је да Висуал Студио је много лепше и показује све боје по имену како је дефинисано у Систем.Дравинг објекат својства.

С обзиром на проблем који не постоји контрола да нам покаже ову листу боја видимо како можемо једни цонстриур себе.

На пример нам је потребан нови пројекат и два облика.

У првом облику палица је само да позовете Образац 2, као што је приказано на следећој слици:

дугме а код је како следи:

 БтнЦолор_Цлицк Привате Суб (БиВал сендер Ас Систем.Објецт и БиВал е Ас ЕвентАргс) Хандлес бтнЦолор.Цлицк
 Ас Нев Форм2 Дим вФорм2
 вФорм2.СховДиалог ()
 Енд Суб

иу том облику ће Н ботоес ЛистБок и два (и прихвати отказали), као у следећем облику:

У случају Лоад обрасца успостави неке особине ЛистБок и носе имена боја са следећим кодом:

 Форм2_Лоад Привате Суб (БиВал сендер Ас Систем.Објецт и БиВал е Ас ЕвентАргс) ручке МиБасе.Лоад
 ЛистБок1.ДравМоде = ДравМоде.ОвнерДравФикед
 ЛистБок1.ИтемХеигхт = 20

 ЛистБок1.Итемс.Цлеар ()
 ЛистБок1.БегинУпдате ()
 За сваки Пи као Рефлецтион.ПропертиИнфо У ГетТипе (Цолор) ГетПропертиес (Или Рефлецтион.БиндингФлагс.Статиц Рефлецтион.БиндингФлагс.Публиц).
 ЛистБок1.Итемс.Адд (пи.Наме)
 Следећи
 ЛистБок1.ЕндУпдате ()
 Енд Суб

У првој линији Лоад "ЛистБок1.ДравМоде = ДравМоде.ОвнерДравФикед" утврди да су сви елементи контроле извести ручно и имају исту висину. Ово адемцас, ДравИтем догађај покреће емисију непосредно пре сваке ставке.

Да бисте подесили ДравИтем догадјај ЛистБок, изаберите (у приказу дизајна) ЛистБок1 смо притисните тастер Ф4 да бисте приказали својства, а врх поље Пропертиес изаберите муњу да види догађај који је доступан контрола , а ми смо ДравИтем двапут кликните. Следећа слика илуструје како:

и то је кодекс ДравИтем догађаја

 ЛистБок1_ДравИтем Привате Суб (БиВал сендер Ас Објецт и БиВал е Ас Систем.Виндовс.Формс.ДравИтемЕвентАргс) Хандлес ЛистБок1.ДравИтем
 Дим правоугаоник Као правоугаоним = е.Боундс

 Ако (е.Стате И ДравИтемСтате.Селецтед) Онда
 е.Грапхицс.ФиллРецтангле (СистемБрусхес.Хигхлигхт, правоугаоник)
 Друго
 е.Грапхицс.ФиллРецтангле (Брусхес.Вхите, правоугаоник)
 Енд Иф

 Дим Ас Стринг = ЛистБок1.Итемс номбреЦолор (е.Индек)

 Дим Б Ас Нев СолидБрусх (Цолор.ФромНаме (номбреЦолор))

 рецтангуло.Инфлате (-16, -2)
 е.Грапхицс.ФиллРецтангле (Б, Нови правоугаоник (рецтангуло.Кс, рецтангуло.И, 30, рецтангуло.Хеигхт))

 е.Грапхицс.ДравРецтангле (Пенс.Блацк, Нови правоугаоник (рецтангуло.Кс, рецтангуло.И, 30, рецтангуло.Хеигхт))

 Ако (е.Стате И ДравИтемСтате.Селецтед) Онда
 е.Грапхицс.ДравСтринг (номбреЦолор, е.Фонт, Брусхес.Вхите, рецтангуло.Кс + 34, рецтангуло.И + 2)
 Друго
 е.Грапхицс.ДравСтринг (номбреЦолор, е.Фонт, Брусхес.Блацк, рецтангуло.Кс + 34, рецтангуло.И + 2)
 Енд Иф
 Енд Суб

Сада ми само треба да програмирате тастере евентосде као што је приказано у следећем коду:

 БтнАцептар_Цлицк Привате Суб (БиВал сендер Ас Систем.Објецт и БиВал е Ас ЕвентАргс) Хандлес бтнАцептар.Цлицк
 Ми.Формс.Форм1.БацкЦолор = Цолор.ФромНаме (ЛистБок1.СелецтедИтем)
 Енд Суб

 БтнЦанцелар_Цлицк Привате Суб (БиВал сендер Ас Систем.Објецт и БиВал е Ас ЕвентАргс) Хандлес бтнЦанцелар.Цлицк
 Ме.Цлосе ()
 Енд Суб

Па, да тестирају апликацију ... ако је све добро прошло, изгледа овако:

Остављам неке дефиниције:

Грапхицс.ФиллРецтангле (метод): попуњава унутрашњост правоугаоника одређен координатном паром и ширине и висине.

Грапхицс.ДравРецтангле (метод): Нацртајте правоугаоник одређен координатном паром и ширине и висине.

Грапхицс.ДравСтринг (метод): Нацртајте одређену ниску текста на наведеној локацији и са четком и фонтова наведене објекте.

Надам се ово помаже, а можете да користите у својим пројектима.