< návrat zpět

MS Excel

Téma: Události komponent hromadně rss

Zaslal/a ilrom 6.10.2020 11:03

Ahoj,
potřeboval bych poradit s událostmi komponent...

Mám na formuláři několik komponent ListBox pojmenované stejně jen na konci je jiné číslo ( lbIngredience1, lbIngredience2, lbIngredience3,...lbIngredience20)

U jednotlivých komponent potřebuji použít událost např. Change() s tím, že každá událost bude obsahovat stejný zdrojový kód.
Dá se to udělat nějak efektivněji (hromadně) než vytvářet u všech prvků stejnou Proceduru?

Private Sub lbIngredience1_Change()
KusStejnehoKodu
End Sub

Private Sub lbIngredience2_Change()
KusStejnehoKodu
End Sub
.
.
.
Private Sub lbIngredience20_Change()
KusStejnehoKodu
End Sub

Za radu předem děkuji

Roman

Zaslat odpověď >
robert13(6.10.2020 11:49)#048240
avatar
Dá.
Pomocou modulu triedycitovat
robert13(6.10.2020 12:22)#048241
avatar
princíp napr:
http://www.vbaexpress.com/kb/getarticle.php?kb_id=85citovat
robert13(6.10.2020 12:26)#048242
avatar
Potom pre ich rozlíšenie použiješ nejakú jednoznačnú vlastnosť použitého prvku, ktorú ti vráti spoločný kódcitovat
robert13(6.10.2020 14:29)#048244
avatar
Iná ukážka:

https://www.engram9.info/excel-2003-vba/handling-multiple-userform-buttons-with-one-event-handler.htmlcitovat
robert13(6.10.2020 15:20)#048245
avatar
Len neviem, či som to dobre pochopil a neskomplikoval, lebo to, čo chceš sa dá aj tak, že proste každá udalosť change bude volať to isté makro, ktoré bude zapísané vo všeobecnom module... Teda, nemusí byť kód písaný x-krát pre každé tlačidlo. Ale bude x-krát odkaz na jednu spoločnú procedúru vo všeobecnom module.
Moje skoršie odpovede riešili to, že sa urobila kolekcia ovládacích prvkov a modul triedy ustriehne to, že bolo stlačené niektoré z tlačidiel kolekcie. Čiže nie je potrebné ošetrovať každé tlačidlo na udalosť change (click a pod)citovat
ilrom(6.10.2020 15:30)#048246
avatar
Děkuju za rady,

je to přesně to, co potřebuju.
1citovat
Barth(7.10.2020 11:37)#048254
avatar
Narazil jsem na potíž dostat do třídy události Enter a Exit, které jsou u prvků poděděny z MSForms.Control, ale pokud přidáte konkrétní prvek třeba Textbox či Combobox, tak se již událost nelze do třídy přidat. Nevíte někdo, lze-li nějak řešit?citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje