У наставку ћемо погледати програм у програму Екцел ВБА који креира Усерформ који садржи више страница. Овај кориснички образац такође садржи слике.
Контрола за више страница садржи две странице. На страници 1 корисник може попунити своје личне податке. На страници 2 корисник може назначити која му се слика највише свиђа.
Да бисте креирали овај кориснички образац, извршите следеће кораке.
1. Отворите Висуал Басиц Едитор. Ако Пројецт Екплорер није видљив, кликните на Виев, Пројецт Екплорер.
2. Притисните Уметни, Кориснички образац. Ако се Тоолбок не појави аутоматски, кликните на Виев, Тоолбок. Екран треба да буде подешен на доле наведени начин.
3. Додајте контролу за више страница, ознаке, оквире за текст (прво при врху, друго испод првог), оквир, дугмад за опције (прво лево, друго десно), оквир са листом, контролу слике и командно дугме. Када се ово заврши, резултат би требао бити у складу са празном верзијом Усерформ -а приказаном раније. На пример, креирајте контролу са више страница кликом на Више страница из оквира са алаткама. Затим можете превући контролу на више страница на Усерформ. Када дођете до оквира „Пол“, не заборавите да прво нацртате овај оквир пре него што у њега поставите два дугмета са опцијама.
4. Можете променити називе и натписе контрола. Имена се користе у Екцел ВБА коду. Титлови су они који се појављују на екрану. Добра је пракса да промените називе контрола, али то овде није потребно јер у овом примеру имамо само неколико контрола. Да бисте променили натпис Усерформ, картице са више страница, ознаке, оквир, дугмад опција и командно дугме, кликните на Виев, Пропертиес Виндов и кликните на сваку контролу.
5. Да бисте приказали Усерформ, поставите командно дугме на свој радни лист и додајте следећи кодни ред:
Приватна под -командаБуттон1_Цлицк ()
УсерФорм1.Схов
Енд Суб
Сада ћемо креирати Суб УсерФорм_Инитиализе. Када користите метод Схов за Усерформ, ова подмена ће се аутоматски извршити.
6. Отворите Висуал Басиц Едитор.
7. У Пројецт Екплореру кликните десним тастером миша на УсерФорм1, а затим кликните на Виев Цоде.
8. Изаберите Кориснички образац са леве падајуће листе. Одаберите Инитиализе са десне падајуће листе.
9. Додајте следеће редове кода:
Привате Суб УсерФорм_Инитиализе ()
Са ЛистБок1
.АддИтем "Планине"
.АддИтем "Залазак сунца"
.АддИтем "Плажа"
.АддИтем "Винтер"
Завршити
Енд Суб
Објашњење: оквир са листом на страници 2 ће бити испуњен.
Сада смо креирали први део Усерформ -а. Иако већ изгледа уредно, ништа се неће догодити када изаберемо ставку из оквира са списком или када кликнемо на дугме У реду.
10. Преузмите слике (десна страна ове странице) и додајте их у „Ц: \ тест \“
11. У Пројецт Екплореру двапут кликните на УсерФорм1.
12. Двапут кликните на оквир са листом.
13. Додајте следеће редове кода:
Приватни Суб ЛистБок1_Цлицк ()
Ако је ЛистБок1.ЛистИндек = 0 Тада
Имаге1.Пицтуре = ЛоадПицтуре ("Ц: \ тест \ Моунтаинс.јпг")
Крај Ако
Ако је ЛистБок1.ЛистИндек = 1 Тада
Имаге1.Пицтуре = ЛоадПицтуре ("Ц: \ тест \ Сунсет.јпг")
Крај Ако
Ако је ЛистБок1.ЛистИндек = 2 Тада
Имаге1.Пицтуре = ЛоадПицтуре ("Ц: \ тест \ Беацх.јпг")
Крај Ако
Ако је ЛистБок1.ЛистИндек = 3 Тада
Имаге1.Пицтуре = ЛоадПицтуре ("Ц: \ тест \ Винтер.јпг")
Крај Ако
Енд Суб
Објашњење: ове линије кода учитавају слику у зависности од изабране ставке у оквиру са листом.
14. Двапут кликните на дугме У реду.
15. Додајте следеће редове кода:
Приватна под -командаБуттон1_Цлицк ()
Дим емптиРов Ас Лонг
'Учините Схеет1 активним
Лист1.Активирајте
'Одредите емптиРов
емптиРов = ВорксхеетФунцтион.ЦоунтА (Ранге ("А: А")) + 1
'Пренос информација
Ћелије (емптиРов, 1) .Валуе = ТектБок1.Валуе
Ћелије (емптиРов, 2) .Валуе = ТектБок2.Валуе
Ако је ОптионБуттон1.Валуе = Тачно
Ћелије (емптиРов, 3) .Валуе = "Мале"
Иначе
Ћелије (емптиРов, 3) .Валуе = "Женски"
Крај Ако
Ћелије (емптиРов, 4) .Валуе = ЛистБок1.Валуе
'Затворите образац корисника
Унлоад Ме
Енд Суб
Објашњење: прво активирамо Схеет1. Затим одређујемо емптиРов. Променљива емптиРов је први празан ред и повећава се сваки пут када се дода запис. Затим преносимо информације из Усерформ -а у одређене колоне емптиРов. Коначно, затварамо Усерформ.
16. Изађите из уређивача Висуал Басиц, унесите ознаке приказане испод у ред 1 и тестирајте Усерформ.
Резултат:
