Newsgroup: it.comp.lang.visual-basic
Titolo: Per non ripetere sempre gli stessi comandi !

From : 
il...@tin.it
Salve ragazzi,
io ho una conoscenza molto amatoriale quindi chiedo se qualcuno mi puo dare
una dritta per accorciare questi comandi che io continuo a ripetere.
Per esempio :
Text2.Locked = False
Text3.Locked = False
Text4.Locked = False
Text5.Locked = False
Text6.Locked = False
Text7.Locked = False
Text8.Locked = False
Text9.Locked = False
Text10.Locked = False
Text11.Locked = False
Text12.Locked = False
Text13.Locked = False
Text14.Locked = False
Text15.Locked = False
Text16.Locked = False
Text17.Locked = False
Text18.Locked = False
Text19.Locked = False
Text20.Locked = False
Text21.Locked = False
Text22.Locked = False
Text23.Locked = False
Text24.Locked = False
Text25.Locked = False
Text26.Locked = False
Text27.Locked = False
Text28.Locked = False
Text29.Locked = False
Text30.Locked = False
Text31.Locked = False
Text32.Locked = False
Text33.Locked = False
Text34.Locked = False
Text35.Locked = False
Text36.Locked = False
Text37.Locked = False
Text2.BackColor = QBColor(15)
Text3.BackColor = QBColor(15)
Text4.BackColor = QBColor(15)
Text5.BackColor = QBColor(15)
Text6.BackColor = QBColor(15)
Text7.BackColor = QBColor(15)
Text8.BackColor = QBColor(15)
Text9.BackColor = QBColor(15)
Text10.BackColor = QBColor(15)
Text11.BackColor = QBColor(15)
Text12.BackColor = QBColor(15)
Text13.BackColor = QBColor(15)
Text14.BackColor = QBColor(15)
Text15.BackColor = QBColor(15)
Text16.BackColor = QBColor(15)
Text17.BackColor = QBColor(15)
Text18.BackColor = QBColor(15)
Text19.BackColor = QBColor(15)
Text20.BackColor = QBColor(15)
Text21.BackColor = QBColor(15)
Text22.BackColor = QBColor(15)
Text23.BackColor = QBColor(15)
Text24.BackColor = QBColor(15)
Text25.BackColor = QBColor(15)
Text26.BackColor = QBColor(15)
Text27.BackColor = QBColor(15)
Text28.BackColor = QBColor(15)
Text29.BackColor = QBColor(15)
Text30.BackColor = QBColor(15)
Text31.BackColor = QBColor(15)
Text32.BackColor = QBColor(15)
Text33.BackColor = QBColor(15)
Text34.BackColor = QBColor(15)
Text35.BackColor = QBColor(15)
Text36.BackColor = QBColor(15)
Text37.BackColor = QBColor(15)

una dritta per accorciare questi comandi che io continuo a ripetere.
vedi l'argomento "matrici di controlli"
P.



Il modo più semplice per gestire così tanti campi testo (ma anche altri
controlli), è creare una matrice di controlli. Il sistema più semplice è
usare copia e incolla sul/sulla (Pal avrà di che ridire) form, verrà
richiesto se creare una matrice di controlli, rispondere sì.
Il secondo modo è quello di creare sul form una textbox e chiamarla (ad es.)
Txt avendo l'accortezza di impostare la proprietà index a 0 (zero).
Creando una seconda textbox e chiamandola sempre Txt l'indice si
autoincrementerà a 1 (uno).
avrai così una serie di txt indicizzati che potrai richiamare nel cosice:
Txt(0) .... Txt(15) ... Txt(n)
per modificare le proprietà di tutti i controlli con un codice compatto
potrai scrivere:
For J = 0 To 35
    Txt(J).Locked = True
Next
capito?
--
-----------------------------
Bye from WildSkin
ICQ #48778908
--------------------------------------------------------------------------
Sito ufficiale del NG it_comp_lang_visual-basic
http://www.murialdo.it:8000/it_lang_vb/
--------------------------------------------------------------------------