none
Controles desabilitados para edição RRS feed

  • Pergunta

  • Gostaria que meus controles ficassem inabilitados para edição, porém com a aparência de ativos.

    Tentei o código abaixo, mas a aparência do texto fica desbotada (cinzenta). Os comboBox a propriedade BackColor não funciona.

    Usando a propriedade ReadOnly, o texto fica como eu quero, porém não consigo alterar a aparência do fundo. Com esta propriedade, teria que trabalhar controle por controle, pois ela não está disponível quando uso a função.

    Private Sub bloqueiacampos()
            Dim i As Integer
            Dim ctl As Control
    
            For Each ctl In Me.Controls
                If TypeOf ctl Is GroupBox Then
                    For i = 0 To ctl.Controls.Count - 1
                        If TypeOf ctl.Controls(i) Is TextBox Then
                            ctl.Controls(i).Enabled = False
                            ctl.Controls(i).BackColor = Color.White
                        ElseIf TypeOf ctl.Controls(i) Is ComboBox Then
                            ctl.Controls(i).Enabled = False
                            ctl.Controls(i).BackColor = Color.White
                        End If
                    Next
                Else
                End If
            Next ctl
        End Sub


    [b]Sergio Ivanenko[/b]

    quarta-feira, 15 de maio de 2013 14:15

Todas as Respostas

  • Experimente deixar o estilo do seu ComboBox como DropDownList.

    Eu não sei se é possível fazer com que o objeto não fique cinza uma vez usando o enabled = false, mas mesmo que fosse possível, não vale a pena. Existem outras formas bem melhores de resolver o seu problema. Reformule sua pergunta fazendo favor, ela não ficou muito clara. 


    Ao infinito e além!

    quarta-feira, 15 de maio de 2013 18:03