将ReadOnly属性设置为控件数组中的所有文本框

时间:2014-06-18 09:49:27

标签: vb.net visual-studio-2013

我有以下代码循环遍历表单中的各种阵列控件:

For r As Long = LBound(ctrlArray) To UBound(ctrlArray)
        If TypeOf ctrlArray(r) Is TextBox Then
            ctrlArray(r).Text = ""

            If ctrlArray(r).ReadOnly = False Then
                ctrlArray(r).ReadOnly = True
            End If
        Else
            If ctrlArray(r).Enabled = True Then
                ctrlArray(r).Enabled = False
            End If
        End If
    Next

我在尝试将文本框设置为只读时收到错误“'ReadOnly'不是System.Windows.Forms.Control的成员”。

1 个答案:

答案 0 :(得分:0)

在我点击提交按钮之前解决了这个问题。以为我会分享:

Dim tbx As TextBox
For r As Long = LBound(ctrlArray) To UBound(ctrlArray)
     If TypeOf ctrlArray(r) Is TextBox Then
          ctrlArray(r).Text = ""
          tbx = ctrlArray(r)
          If tbx.ReadOnly = False Then
               tbx.ReadOnly = True
          End If
     Else
         If ctrlArray(r).Enabled = True Then
               ctrlArray(r).Enabled = False
         End If
     End If
Next