Ciclo sui controlli in G3

[andy60]

Ho ripreso un vecchio post di perseo e adattato ad una form, se faccio il ciclo sui controlli (DateBax, ComboBox, TextBox) e setto per tutti la proprietà ReadOnly = true, DateBox e ComboBox non mi si bloccano, permettono cmq l'inserimento.

 

Codice: [Seleziona]

Dim txt As Control  
 For Each txt In FDaily.Controls  
   If (Object.Class(txt).Name) = "TextBox" Or (Object.Class(txt).Name) = "DateBox" Or (Object.Class(txt).Name) = "ComboBox" Then  
    Object.SetProperty(txt, "ReadOnly", True)
    Endif
 Next  

[md9327]

La proprietà ReadOnly sulla ComboBox cambia solo l'aspetto e la logica dell'oggetto, ovvero non ti permette di inserire testi nel campo di editing, ma solo di selezionare voci nell'elenco. In questo caso, per la Combo, come per anche gli altri, puoi usare la proprietà Enabled.

[andy60]

denghiu