excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: hodiny ve formuláři
MS Excel
Téma: hodiny ve formuláři 
Zaslal/a 14.6.2014 10:24
Dobrý den,
jak by se daly ve form udělat hodiny? Zatím jsem tam dostal jen čas, který ale neběží.
Pan Pecháček měl na svých stránkách excelplus.net následující řešení, není třeba žádných událostí ani OnTime, stačí status bar:
Na panelu nástrojů Toolbox klepneme pravým tlačítkem myši, zvolíme Additional Controls a najdeme prvek Microsoft StatusBar Control, version 6.0. Ten přidáme na plochu formuláře a doplníme kód:
Private Sub UserForm_Initialize()
'datum
StatusBar1.Panels(1).Style = sbrDate
StatusBar1.Panels(1).Width = 50
'čas
StatusBar1.Panels.Add
StatusBar1.Panels(2).Style = sbrTime
StatusBar1.Panels(2).Width = 30
'stav klávesy CapsLock
StatusBar1.Panels.Add
StatusBar1.Panels(3).Style = sbrCaps
StatusBar1.Panels(3).Width = 30
'volitelný text
StatusBar1.Panels.Add
StatusBar1.Panels(4).Style = sbrText
StatusBar1.Panels(4).Text = "Text zarovnaný doprava"
StatusBar1.Panels(4).Alignment = sbrRight
StatusBar1.Panels(4).Width = 100
End Sub
Ve výpisu přidáváme "panely", lépe řečeno funkční bloky (oddíly, sekce) do pruhu stavového řádku, definujeme jejich typ (vlastnost Style) a šířku (Width). Uvedený kód není ani potřeba, příslušné oddíly je možné definovat pod vlastností (Custom) v okně Properties, jež je typická pro prvky Visual Basicu 6, konkrétně na kartě Panels. Kromě uvedených typů bloků (datum, čas, stav klávesy CapsLock, volitelný text) nabízí StatusBar ještě zobrazení stavu kláves NumLock, ScrollLock a Insert.citovat
Na panelu nástrojů Toolbox klepneme pravým tlačítkem myši, zvolíme Additional Controls a najdeme prvek Microsoft StatusBar Control, version 6.0. Ten přidáme na plochu formuláře a doplníme kód:
Private Sub UserForm_Initialize()
'datum
StatusBar1.Panels(1).Style = sbrDate
StatusBar1.Panels(1).Width = 50
'čas
StatusBar1.Panels.Add
StatusBar1.Panels(2).Style = sbrTime
StatusBar1.Panels(2).Width = 30
'stav klávesy CapsLock
StatusBar1.Panels.Add
StatusBar1.Panels(3).Style = sbrCaps
StatusBar1.Panels(3).Width = 30
'volitelný text
StatusBar1.Panels.Add
StatusBar1.Panels(4).Style = sbrText
StatusBar1.Panels(4).Text = "Text zarovnaný doprava"
StatusBar1.Panels(4).Alignment = sbrRight
StatusBar1.Panels(4).Width = 100
End Sub
Ve výpisu přidáváme "panely", lépe řečeno funkční bloky (oddíly, sekce) do pruhu stavového řádku, definujeme jejich typ (vlastnost Style) a šířku (Width). Uvedený kód není ani potřeba, příslušné oddíly je možné definovat pod vlastností (Custom) v okně Properties, jež je typická pro prvky Visual Basicu 6, konkrétně na kartě Panels. Kromě uvedených typů bloků (datum, čas, stav klávesy CapsLock, volitelný text) nabízí StatusBar ještě zobrazení stavu kláves NumLock, ScrollLock a Insert.citovat
(17.6.2014 13:40)#020014
Děkuji za odpovědi, ale zjistil jsem, že je to nevyhovující. Nevíte někdo nějaký program, který umí zobrazovat systémový čas na plochu celého monitoru?citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články