Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:
... label (popisek) a jeho použítí ve formuláři za pomocí VBA...
Karta Vývojář - Visual Basic. Menu Insert - UserForm. Z Toolboxu vložíme Label.
Seznam základních vlastnistí prvku Label (Popis)
Pojmenování prvku (můžeme změnit). Ve vzorcích se pak budeme na tento prvek odkazovat. V našem příkladě je Name Label1
Nastaví nebo získá přístupovou (zkratkovou klávesu Alt) klávesu daného ovládacího prvku.
Label1.Accelerator = "C"
ZkratkovaKlavesa = Label1.Accelerator
Význam u jiných prvků, ale i u Label jde nastavit.
Specifikuje, zda mění objekt automaticky velikost v souladu se svým celým obsahem. Pokud mění tak velký text zvětší objekt.
Hodnota (True False)
Label1.AutoSize = False
AutosizeStav = Label1.AutoSize
Vrací nebo nastavuje barva pozadí objektu Label.
Label1.BackColor = RGB(255, 128, 128)
BarvaPozadi = Label1.BackColor
Vrací nebo nastavuje styl pozadí objektu Label.
fmBackStyleTransparent (0) Pozadí je průhledné.
fmBackStyleOpaque (1) Pozadí je neprůhledné (výchozí nastavení).
Label1.BackStyle = fmBackStyleTransparent
Vrací nebo nastavuje barvu okrajů.
Label1.BorderColor = RGB(254, 127, 127)
Vrací nastavení nebo změní nastavení okrajů.
fmBorderStyleNone - 0 - nemá viditelný okraj
fmBorderStyleSingle - 1 -
Label1.BorderStyle = fmBorderStyleSingle
Poznámka ignoruje se pokud je vlastnost SpecialEffect = none
Varcí Text na objektu Label (Popis) nebo ho nastaví.
Label1.Caption = "muj text"
AktualniTextVLabel = Label1.Caption
Bublinková nápověda. Zobrazí se při najetí nad objekt
Label1.ControlTipText = "Muj druhý text"
ControlTipText = Label1.ControlTipText
Určuje, zda se může ovládací prvek stát aktivním a odpovídat na události, generované uživatelem. Nebo specifikuje jak je tato vlastnost nastavena.
Label1.Enabled = True
EnabledNastaveni = Label1.Enabled
Vrací nastavení fontu nebo nastaví změnu fontu.
Label1.Font.Italic = True
Label1.Font.Size = 22
Label1.Font.Bold = True
Label1.Font = "Times New Roman"
velikostFontu = Label1.Font.Size
typFontu = Label1.Font
FontJeKurziva = Label1.Font.Italic
Varcí nastavení nebo definuje barvu popředí objektu tj. v našem případě jakou barvu bude mít text.
Label1.ForeColor = RGB(255, 255, 0)
Vrací výšku objektu nebo jeho výšku nastaví.
Label1.Height = 20
Vyska = Label1.Height
Umístění objektu od levého okraje. Nebo zjištění jak je umístěn objekt.
umistenileft = Label1.Left
Label1.Left = 12
Přiřazení ikony por objekt
Label1.MouseIcon =
LoadPicture("c:\mojeIkonka.ico")
Vrací typ ukazatele myši, nebo nastaví ukazatel myši. Hodnoty jsou:
Nastavení obrázek na pozadí.
Label1.Picture = LoadPicture("c:\mujObrazek.bmp")
Pozice obrázku relativně k titulku.
Label1.PicturePosition = fmPicturePositionLeftTop
Vrací nebo určuje speciální efekty objektu.
Label1.SpecialEffect = fmSpecialEffectFlat
Label1.SpecialEffect = 6
StavSpecialEfekt =Label1.SpecialEffect
Vrací nebo udává pozici jednoho objektu v pořadí karet formuláře.
Label1.TabIndex = 0
Nabývá hodnot TRUE, FALSE.
Doplňkové informace o objektu.
Zaroznání textu. Vpravo, vlevo, na střed. Nabývá hodnot:
Label1.TextAlign = fmTextAlignCenter
Label1.TextAlign = 1
jakZarovnano = Label1.TextAlign
Umístění objektu od horní okraje. Nebo zjištění jak je umístěn objekt.
umistenitop = Label1.Top
Label1.Top = 12
Nastavuje viditelnost objektu, nebo zobrazuje jaký stav má objekt. Nabývá hodnot TRUE, FALSE.
Label1.Visible = False
Label1.Visible = True
Vrací šířku objektu nebo jeho výšku nastaví.
Label1.Width = 110
Sirka = Label1.Width
Určuje, zda se má obsah ovládacího prvku automaticky zalomit na konci řádku, nebo vrací jeho hodnotu. Nabývá hodnot TRUE, FALSE.
True - Text se zalamuje (výchozí nastavení). False - Text se nezalamuje.
StavWordWarp = Label1.WordWrap
Hotový příklad ke stažení:
Formulář Label (popis) - ukázky použití
Popis vlastnosti objektu Label máme za sebou :)
Článek byl aktualizován: 19.09.2020 11:06
Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.
Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.
Přidáno: 21.05.11 10:53
Ahoj, super článek. Nemáš k dispozici popis k ComboBox. Díky Tonda
Přidáno: 21.05.11 17:36
To Tonda: Díky. Na dalších prvcích formuláře se pracuje. Přidal jsem TextBox, další již brzo :) ....
Přidáno: 31.05.11 18:01
To Tonda: Tak jsem již napsal článek o použití ComboBox (Výběrového pole) ve formuláři VBA. Třeba není úplně pozdě :)
Přidáno: 12.09.12 16:08
jde nějak zajistit aby se mi ve formuláři vedle textboxu (kde je číslo) zobrazil popis (label) který je v seznamu na jiném listě a kterému je přazeno číslo z textboxu? děkuji
Přidáno: 12.09.12 18:39
To václav: jde do Caption se přiřadí příslušná hodnota Label1.Caption = ....
Přidáno: 13.09.12 06:36
ale to budu mít napevno,ne? já potřebuji aby když v texbox budu mít např. 2 tak label by byl např. "popis 1" a když texbox přpíšu na 4 tak label bude mít hodnotu: "popis 2" ty popisy by se brali z jiného listu kde by k nim byla přiřazena právě čísla v texboxu...
Přidáno: 13.09.12 18:48
to václav: využít třeba Select Case http://office.lasakovi.com/excel/vba-teorie-zaklady/select-case-excel-vba/ nebo podmínky if then http://office.lasakovi.com/excel/vba-teorie-zaklady/if-then-elseif-else-podminka-excel-vba/
Přidáno: 09.05.16 15:35
Chcel by som v makre Exceli urobit dinamicke pridelenie Label...nejako to mi nejde...da sa to vôbec urobit v exceli? Skusal som to asi takto: mam vo Form definovane Label-y s menom D1...D10 napisal som : for n=1 to 10 d(n).caption = "text" next dakujem za odpoved milan
Pomohl Vám návod? Sdílejte na Facebooku, G+ |
||
LinkedIn... |
Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2024 |