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]