VB6: Skratky objektov

Gregory House

Ahojte. Nevie niekto náhodou, ako sa v programovaní môžu používať skratky? Viem že na Form sa môže namiesto

Form1.Enabled = True

použiť

Kód: Vybrať všetko

Me.Enabled = True

. Snažím sa vytvoriť program, ktorý má vyše 100 Labelov a každý má medzi sebou nejaké interakcie a stále prepisovať pri nich čísla je deprimujúce. Ak niekto pozná také skratky, tak prosím, odpíšte. Díky.

bart11

(Vo VB nerobím)
Nebolo by vhodné namiesto tích 100-viek labelov vytvoriť jedno pole labelov a odkazovať sa na ne pomocou indexov?

Kód: Vybrať všetko

Dim poleLabel(100) As Label
...
poleLabel(0).Neviem = True

V prípade, že by si chcel medzi dvomi labelmi premiestňovať údaje, stačí si uložiť len ich indexy a napr. pomocou nejakej metódy ich spracuješ.

Teda ak už nemáš to pole vytvorené. Napísal si "prepisovať ich čísla", tak som predpokladal, že si ich vytváral takto:

Kód: Vybrať všetko

Dim label1 As Label
Dim label2 As Label
Dim label3 As Label ...

Gregory House

Asi som to zle vysvetlil, moja chyba. Ja nechcem aby boli Labely navzájom prepojené tak, že sa bude v každom zobrazovať to čo v predošlom. Je to moc dlhé a zložité, lebo keď kliknem napr. na Label24 tak sa v Label51 vykoná akcia Label51.Caption = Val(Label87.Caption) - Val(Label2.Caption).

Kód: Vybrať všetko

If Label25.Caption = "1 prvkov" Then
Label25.Caption = "1 prvok
End If

Chápete? Ja to chcem spraviť takýmto štýlom, ale keď to mám všetko kopírovať na 100 Labelov a stále meniť čísla, tak to ma deprimuje. Potrebujem vedieť skratku. Napr. MeLabel.Caption. Neviem čí MeLabel existuje, ale to hovorím ako príklad. Ak ste ma už teraz pochopili tak neviete fakt tú skratku?