ВБ.нет - Замена индекса контрола на обрасцу

Интро

За оне који су већ упознати са ВБ6 лако је креирати контроле са истим именом али са различитим индексом.

Под ВБ.Нет БГ, ствари су оштрије; збирке контрола више не постоје.

Стога је неопходно развити трикове како би се превазишао овај недостатак, али не брините, све је могуће са ВБ.Нет-ом.
Можемо сматрати да су све контроле на обрасцу већ дио збирке. Одатле можемо покушати да их идентификујемо!
Можемо прегледати све "контроле" које чине дизајн форме, али главна је потешкоћа у томе што свака контрола има своја својства.
Овај први приступ третират ћемо својства вишеструких контрола различитих типова с неким линијама кода у једној подмени.

Прелиминарно

Отворите нови Виндовс Форм пројекат

Залијепите 4 тектБок и поставите њихова својства ознаке 1, 2, 3 и 4
Залијепите 6 кутије за слике и поставите њихова својства ознаке 1, 2, 3, 4 ... 6
Пасте 2 Буттонс

Код

Код је подељен на две подмене ради боље читљивости, али то може да се постигне једном подскупином.

Ако желите, можете очистити обе линије: Имг.имаге = ...

Слике су у зипу.

================================================= =============

'На обрасцу,

'4 ТектБок проприете Таг де 1 а 4

'6 ПицтуреБок проприете Таг де 1 а 6

================================================= =============

 Јавна класа Форм1 Приватно Суб Форм1_Лоад (БиВал пошиљалац као Систем.Објецт, БиВал е Ас Систем.ЕвентАргс) Руке МиБасе.Лоад ИнитПиц () ИнитТект () Крај Суб Суб ИнитТект () Дим Цтл Ас Цонтрол Дим Ткт Као ТектБок Статични НбАлеа + = 1: Ако НбАлеа> 4 Тада НбАлеа = 1 за сваки Цтл у Ме.Цонтролс 'боуцле сур тоут лес цонтролес де ла форме Ако ТипеОф Цтл је ТектБок онда' Верифие куе ц'ест ун тектбок Ткт = Цтл Ако Ткт.Таг = НбАлеа Тада 'С'ил н'и а куе дес ТектБок у форми н'ест пас нецессаире' де пассер пар уне вариабле буффер Ткт.Тект = "ц'ест ле ТектБок:" & Ткт.Наме Ткт.БацкЦолор = Боја .Фуцхсиа Елсе Ткт.Тект = "" Ткт.БацкЦолор = Цолор.Емпти Енд Иф Енд Ако је Крај Крај Суб Суб ИнитПиц () Дим Пиц Ас Контрола Дим Имг Ас ПицтуреБок Статиц НбАлеа Ас Интегер НбАлеа + = 1: НбАлеа> 6 Тхен НбАлеа = 1 'С'ил н'и а куе дес сликаБок сур ла форм ил н'ест пас нецессаире' де пассер пар уне вариабле буффер За сваку Пиц Ин Ме.Цонтролс 'боуцле сур тоут лес цонтролес де ла форме Ако ТипеОф Пи ц Је ПицтуреБок Затим Имг = Слика Ако Пиц.Таг = НбАлеа Тада Имг.БацкЦолор = Цолор.Акуамарине Имг.БордерСтиле = БордерСтиле.Фикед3Д 'Имг.Имаге = Систем.Дравинг.Битмап.ФромФиле (Ми.Апплицатион.Инфо. бт "& НбАлеа &" .бмп ") 'Имг.СизеМоде = ПицтуреБокСизеМоде.СтретцхИмаге Елсе Имг.БацкЦолор = Цолор.Цхоцолате Имг.БордерСтиле = БордерСтиле. Објецт, БиВал е Ас Систем.ЕвентАргс) Ручке Буттон1.Цлицк ИнитТект () Крај Суб Приватни Суб Буттон2_Цлицк (БиВал пошиљалац као Систем.Објецт, БиВал е као Систем.ЕвентАргс) Ручке Буттон2.Цлицк ИнитПиц () Енд Енд Енд

Преузимање: