Tag
Jestliže jste měli za úkol zpracovat v cyklu různé druhy ovládacích prvků, využívala se někdy
k tomuto účelu vlastnost Tag ovládacích prvků v součinnosti s kolekcí Controls. Vlastnost Tag
neměla ve Visual Basicu 6.0 žádný specifický význam a sloužila jako pomocná „paměť“ pro uložení
uživatelsky definovaných informací o daném ovládacím prvku. Proto jste cyklus přes takové
prvky mohli sestrojit tak, že jste (v režimu návrhu nebo při běhu) přiřadili do této vlastnosti nějakou
identifikaci:
OvládacíPrvek.Tag = "NějakáIdentifikace"
a pak napsali tento druh cyklu:
Dim ctl As Control
' For Each ctl In Controls
' If ctl.Tag = " NějakáIdentifikace" Then
' ' Něco udělej
' End If
Next
Ovládací prvky bohužel už vlastnost Tag nepodporují.
Někteří programátoři úlohu řešili tak, že si „šikovně“ovládací prvky pojmenovali –využívali prostě
při běhu hodnotu vlastnosti Name ovládacích prvků:
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.Name = "NějakýNázev" Or _
ctl.Name = "JinýNázev" Or _
ctl.Name = "JeštěJinýNázev" Then
' ' Něco udělej
End If
Next
Bohužel, ani vlastnost Name není při běhu dostupná.
k tomuto účelu vlastnost Tag ovládacích prvků v součinnosti s kolekcí Controls. Vlastnost Tag
neměla ve Visual Basicu 6.0 žádný specifický význam a sloužila jako pomocná „paměť“ pro uložení
uživatelsky definovaných informací o daném ovládacím prvku. Proto jste cyklus přes takové
prvky mohli sestrojit tak, že jste (v režimu návrhu nebo při běhu) přiřadili do této vlastnosti nějakou
identifikaci:
OvládacíPrvek.Tag = "NějakáIdentifikace"
a pak napsali tento druh cyklu:
Dim ctl As Control
' For Each ctl In Controls
' If ctl.Tag = " NějakáIdentifikace" Then
' ' Něco udělej
' End If
Next
Ovládací prvky bohužel už vlastnost Tag nepodporují.
Někteří programátoři úlohu řešili tak, že si „šikovně“ovládací prvky pojmenovali –využívali prostě
při běhu hodnotu vlastnosti Name ovládacích prvků:
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.Name = "NějakýNázev" Or _
ctl.Name = "JinýNázev" Or _
ctl.Name = "JeštěJinýNázev" Then
' ' Něco udělej
End If
Next
Bohužel, ani vlastnost Name není při běhu dostupná.
Labels: visual basic
<< Home