爲用戶自定義文本框設置重複屬性：這可以更輕鬆地完成嗎？

Question

這是我寫的代碼，當條件滿足時鎖定用戶窗體文本框。它在重複的形式來明確低效：

With txtESPPStock 
     .Locked = True 
     .BackColor = &H80000000 
     .value = "" 
     .Enabled = False 
    End With 
    With txtChildLife 
     .Locked = True 
     .BackColor = &H80000000 
     .value = "" 
     .Enabled = False 
    End With 
    With txtHealthcareFSA 
     .Locked = True 
     .BackColor = &H80000000 
     .value = "" 
     .Enabled = False 
    End With 
    With txtLtdPlusBuyUp 
     .Locked = True 
     .BackColor = &H80000000 
     .value = "" 
     .Enabled = False 
    End With 
    With txtMedicalDental 
     .Locked = True 
     .BackColor = &H80000000 
     .value = "" 
     .Enabled = False 
    End With 
    With txtSpouseLife 
     .Locked = True 
     .BackColor = &H80000000 
     .value = "" 
     .Enabled = False 
    End With 
    With txtStdPlusBuyUp 
     .Locked = True 
     .BackColor = &H80000000 
     .value = "" 
     .Enabled = False 
    End With 
    With txtSupplementalLife 
     .Locked = True 
     .BackColor = &H80000000 
     .value = "" 
     .Enabled = False 
    End With 
    With txtVision 
     .Locked = True 
     .BackColor = &H80000000 
     .value = "" 
     .Enabled = False 
    End With 
    With txt401kReg 
     .Locked = True 
     .BackColor = &H80000000 
     .value = "" 
     .Enabled = False 
    End With 

由於所有的內部設置是一樣的，好像如果我只是足夠聰明，我可以在許多行較少它的代碼。我想是說，對於每一個文本框，像：

With txtESPPStock 
    Call GetProperties 
End With 

甚至更​​好，獲得所有需要的屬性設置爲坐在一個數組，所以我可以做類似的特性：

For txtFieldNumber = 0 To 15 
    For PropertySettings = 0 To 3 
     ArrayValue(txtFieldNumber, PropertySettings) = getproperty(PropertySettings) 
    Next PropertySettings 
Next txtFieldNumber 

也許我與這最後一個的結構很接近，但我似乎缺乏一些知識，使我清楚如何做到這一點。任何人都可以幫我理清我嗎？

---

以同樣的方式學習，你可以遍歷數組通過範圍循環後，我能瘦下來的代碼如我所料，讓一個工具，它是由其他用戶窗體重複使用而無需重新編碼的設置：

Sub SetLockedFields(ByRef arrLockedFields() As Variant) 

    Dim varFieldToLock As Variant 
     For Each varFieldToLock In arrLockedFields 
      With frmPaycheckEntry.Controls(varFieldToLock) 
       .Locked = True 
       .BackColor = &H80000000 
       .value = "" 
       .Enabled = False 
      End With 
     Next 

End Sub 

要做到在我的第一個代碼示例所示的所有工作上面，我現在只是放置文本字段變量數組，並通過他們，就像這樣：

Private Sub UserForm_Initialize() 

    Dim arrLockedFields() As Variant 
      . 
      . 
      . 

     If <condition is met> Then 
      ReDim arrLockedFields(1 To 11) 
      arrLockedFields = Array("txtBasicLife", "txtChildLife", _ 
           "txtESPPStock", "txtHealthcareFSA", _ 
           "txtLtdPlusBuyUp", "txt401kReg", _ 
           "txtMedicalDental", "txtSpouseLife", _ 
           "txtStdPlusBuyUp", "txtSupplementalLife", _ 
           "txtVision") 
     End If 

    Call SetLockedFields(arrLockedFields) 

End Sub 

Answer 1

是，你可以使用循環來避免重複的代碼。

Sub t1() 
    Dim ctrl As Control 
    For Each ctrl In UserForm1.Controls 
     'Check if the control is a textbox 
     If TypeName(ctrl) = "TextBox" Then 
      With UserForm1.Controls(ctrl.Name) 
       .Locked = True 
       .BackColor = &H80000000 
       .Value = "" 
       .Enabled = False 
      End With 
     End If 
    Next 
End Sub 

又如：當你有一定的名字

Private Sub CommandButton1_Click() 
    Dim names() As Variant 
    Dim name As Variant 
    names = Array("TextBox1", "TextBox2") 
    For Each name In names 
     With UserForm1.Controls(name) 
      .Locked = True 
      .BackColor = &H80000000 
      .Value = "" 
      .Enabled = False 
     End With 
    Next 
End Sub