COMO DESATIVAR TODAS AS CIXAS DE TEXTO AJUDA

FABRICIOCOUTO 22/11/2011 08:09:03
#389655
estou crianda um sistema de cliente e os quero deixar caixas de texto desativadaas
quando o cliente da o click no botao incluir as caixas de texto ativa
JESUEL.OLIVEIRA 22/11/2011 09:03:58
#389668 Resposta escolhida
Amigo, use

   
    Dim cont As Control
    For Each cont In Controls
        If TypeOf cont Is TextBox Then
           cont.Enabled = False
        End If
    Next
EDUDU 22/11/2011 09:06:22
#389670
Voce pode inserir o codigo abaixo no evento Form_Load

For vContador = 0 To Me.Count - 1
If TypeName(Me.Controls(vContador)) = [Ô]TextBox[Ô] Then
Me.Controls(vContador).Enabled = False
End If
Next

no evento do comando [Ô]Incluir[Ô] o codigo fica assim
For vContador = 0 To Me.Count - 1
If TypeName(Me.Controls(vContador)) = [Ô]TextBox[Ô] Then
Me.Controls(vContador).Enabled = True
End If
Next

Você também pode incluir os controles em um Frame e pôr o frame como enabled = false
KERPLUNK 22/11/2011 09:09:25
#389672
For Each controle In Me.Controls
If TypeOf controle Is TextBox Then
controle.Enabled = False
End If
Next controle
FABRICIOCOUTO 22/11/2011 13:23:19
#389716
ae galera deu certinho vleu a todos pela ajuda ok
Tópico encerrado , respostas não são mais permitidas
Voltar