Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailem Visual Basic - zmeny vlastností Caption ActiveX prvkov

Ale veď ja sa ani nechcem odkazovať na ActiveX prvky pomocou Shape... Veď o tom je celý môj dotaz...
PRETO som tam umiestňoval ActiveX, aby som MAL prvky, u ktorých sa dajú tieto vlastnosti nastavovať!
Problém je v tom, že napriek tomu, že som tam dal ActiveX, ich neviem volať ako kolekciu Controls. Vedel som ich získať len pomocou Shape, čo mi samozrejme nevyhovuje, lebo VIEM, že Shape nemá ani Name ani Caption.

A neviem, čo by si potreboval vedieť, keď píšeš, že som žiadne informácie nedodal...
Tak ešte raz:
vo Vývojárovi som v režime návrhu do hárku (t.j. nie do formulára) vložil ActiveX: Label, keďže ActiveX má možnosť nastavovať množstvo parametrov a teda aby som dokázal nastavovať Name a Caption (prípadne i Backcolor).

Z popísanej procedúry je jasné, čo potrebujem:
prvkov tam mám cca 200 , tak spravím cyklus pre i od 1 do 200, pre každý prvok získam Name, ktoré vyhľadám v databáze a z databázy vyčítanú hodnotu pre daný prvok chcem naplniť do Caption.

Že prečo ActiveX?
Jednak pre už uvedenú možnosť nastavovania množstva vlastností a jednak kvôli tomu, že na hárku mám obrázok: mapu
K mapám som pri jednotlivých mestách potreboval vizuálnu informáciu z databázy, tak som ku každému mestu umiestnil ActiveX, ktorého Name je názov mesta. Dajme tomu, že pre každé mesto potrebujem napr počet obyvateľov... Takže v databáze vyhľadám mesto a zistím jeho počet obyvateľov. Počet obyvateľov chcem dať do Caption ActiveX-u. Prípadne podľa počtu obyvateľov môžem zmeniť i ďalšiu vlastnosť príslušného ActiveX - Backcolor. A to všetko do mapy (nie do buniek hárka, keďže sú prekryté mapou), vloženej ako obrázok do hárku

Ak poznáš iný spôsob, poraď

P.S. zaujímavé, že ak dám
Sheets("Mapa").Bratislava.Caption=5
tak to ide (Bratislava je Name ActiveX-u), ale potrebujem tie prvky zobecniť, aby som ich mohol volať v cykle parametrom Index a nie konkrétnym menom. Neviem, ako ich označiť inak, než Shapes(i)
Takže namiesto:
Sheets("Mapa").Shapes(i).Caption=5
potrebujem dostať (lebo Shape nemá Caption) niečo ako:
Sheets("Mapa").Prvok(i).Caption=5
pričom "i" je v tomto prípade index prvku s názvom Bratislava



Díky

Reakce na odpověď

1 Zadajte svou přezdívku:
2 Napište svou odpověď:
3 Pokud chcete dostat ban, zadejte libovolný text:

Zpět do poradny