在程序中动态改变TextBox控件的ReadOnly可以用以下代码:TextBox1.ReadOnly=true

但是在下面的代码中就出错。

        Dim MyControl As Control
        For Each MyControl In Me.Controls
            If TypeOf MyControl Is TextBox Then MyControl.ReadOnly = True
        Next

出错提示是MyControl没有此ReadOnly属性

请教高手是怎么回事?

已经搞定了.闷了半个小时
下面是代码,共享吧.论坛里可没有搜到

       Dim MyControl As Control
        For Each MyControl In Me.Controls
            If TypeOf MyControl Is TextBox Then
                CType(MyControl, TextBox).ReadOnly = True
            End If
        Next

[[it] 本帖最后由 不说也罢 于 2008-7-3 19:21 编辑 [/it]]

[[it] 本帖最后由 不说也罢 于 2008-7-3 19:53 编辑 [/it]]