[求助]如何让窗体中锁定的文本框是一种颜色，没有锁定的又是一种颜色

sybai

如题：假如一个窗体中有很多文本框，例如有100个左右，如何让锁定的文本框显示一种颜色，没有锁定的又是另外一种颜色

Private Sub Form_Open(Cancel As Integer)
Dim ctl As Access.Control
For Each ctl In Me.Controls

If ctl.locked=trueThen
ctl.BackColor = 14024186


End If
Next
End Sub

If句里面的CTL属性应该如何写。。请指教。

[此贴子已经被作者于2007-1-31 16:19:07编辑过]

sgrshh29

Dim ctl As Control
For Each ctl In Me.Controls
If TypeOf ctl Is TextBox Then
   If ctl.Locked Then
      ctl.BackColor = &HFF00F0
    End If
End If
Next

一点通

用系统默认的就会不同的底色

sybai

谢谢大家的回复，此问题我已解决，

代码如下：

Private Sub Form_Open(Cancel As Integer)
Dim ctl As Access.Control
For Each ctl In Me.Controls
        Select Case ctl.ControlType
            Case acTextBox               

            If ctl.Locked = True Then ctl.BackColor = 14024186
               
            Case acComboBox      

            If ctl.Locked = True Then ctl.BackColor = 14024186
                    
        End Select
    Next

End Sub

piaoran

收藏了，学习下，以后俺也用的上！
哈哈
谢谢啊