Controle Text

Question

Salut,
J'ai un ensemble de controle Text (Text1, Text2, Text3, ..., TextN) sur une Form. Je souhaite mettre leur propriété Enable à False mais pas un à un comme Text1.Enable=False, Text2.Enable=False, Text3.Enable=False,... mais en une seule opération. Merci pour votre aide.
 
mltgn

jrivet · Answer

Salut,

Cree tout tes text comme element de matrice de texte, et apres tu fais.

For i = 0 to ubound(MatriceTexte())
   MatriceTExt(i).Enable = false
next

@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

cs_trabice · Answer

c koi matrice de texte ??
stp
thx
fabrice
y'a pas un truc général ? pour tout controle?

jrivet · Answer

->trabice: Salut, Tu sais quand tu fais un copier coller d un controle dans un form, vb te demande si tu veux creer une matrice de controls, et bien comme c etait d un control de type text qu il etait question, et bien j ai untiliser le therme Matrice de Texte.
Bonne journee
@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

cs_rene38 · Answer

Bonjour
Une autre solution qui désactive tous les contrôles "Text???" de la feuille :

Dim TxtBx  As Control
For Each TxtBx In Me.Controls    If LCase$(Left$(TxtBx.Name, 4)) "text" Then TxtBx.Enabled False
Next TxtBx

cs_trabice · Answer

ah oki 
matrice = groupe de controle.
merci grand sage.. :-)
je connaissai for each.
je pensai que ta soluce marchait pas (sans vouloir te vexer bien sur)
je vé tester ca.

jrivet · Answer

->trabice .
Effectivement elle ne fonctione pas, mais celle ci si:
Dim i As Integer
For i = 0 To Command1.Count - 1
    Command1(i).Enabled = False
Next

Excusez moi pour la petite erreur
@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

cs_trabice · Answer

ah .
ca ca me plait.
je la garde en stock
thx
;-)
fabrice

jrivet · Answer

->trabice
Content qu elle te plaise (pour une fois que je sert a qqch ...lol)
@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

Controle Text

8 réponses

Discussions similaires