Poradenství a kurzy
Perete se s Excelem? Zbavte sešity špíny a vyždímejte z Excelu maximum! Aviváž zdarma :-)
Algoritmy
Plné využití vzorců a nástrojů listu, aplikovaná matematika, VBA, netradiční řešení úloh, optimalizace běhu aplikací...
Programování
VBA a VB.NET, komentovaný a zarovnaný kód, ADO, WSH, WMI, API...
Štábní kultura
Čisté tabulky, infografika, uživatelsky přívětivé prostředí

Hromadné blokování prvků rozesetých po formuláři

Poměrně častou úlohou je obsloužit více prvků na formuláři, které se mají objevit či být dostupné pouze v určitém kontextu. Je-li možné je seskupit do rámečku (Frame), nebo mají vlastnost GroupName, máme vyhráno. Co když jsou ale rozmístěny po celém formuláři „cikcak“ a kombinací je spousta? Předložené řešení využívá ParamArray coby poslední parametr procedury, který obsáhne blíže nespecifikovaný výčet předaných objektů typu Variant – v daném případě prvky formuláře. Akce je v příkladu spuštěna po klepnutí do prázdného místa formuláře.

Hromadné blokování prvků rozesetých po formuláři

Hromadné blokování prvků rozesetých po formuláři

Private Sub UserForm_Click()

    PovolitPrvky False, CheckBox1, CommandButton1, CommandButton3
    'ZamknoutPrvky True, CheckBox1, CommandButton1, CommandButton3
   
End Sub

Sub PovolitPrvky(blnPovolit As Boolean, ParamArray objPrvky() As Variant)
   
    Dim objPrvek As Variant
   
    'pro každý prvek...
    For Each objPrvek In objPrvky
        'změna stavu prvku
        objPrvek.Enabled = blnPovolit
    Next objPrvek
   
End Sub

Sub ZamknoutPrvky(blnZamknout As Boolean, ParamArray objPrvky() As Variant)
   
    Dim objPrvek As Variant
   
    'pro každý prvek...
    For Each objPrvek In objPrvky
        'změna stavu prvku
        objPrvek.Locked = blnZamknout
    Next objPrvek
   
End Sub

Kód nabízí dvě procedury – PovolitPrvky a ZamknoutPrvky. Rozdíl mezi nimi je v užití dvou mírně odlišných vlastností Enabled a Locked. Nejviditelnější je to, že Enabled = False doprovází ne všemi milovaný grafický efekt „rytiny“ – zešedivění a stínování. U textového pole Enabled = False nedovolí nejen změnu textu v něm, ale ani výběr řetězce, zatímco při Locked = True text sice nezměníte, ale můžete jej vybrat (a zkopírovat).

Tip: O přepínání stavu se postará operátor Not.

    With TextBox1
        .Locked = Not .Locked
    End With

LinkedIn Auto Publish Powered By : XYZScripts.com