작은 코드로 여러 콤보 상자를 변경하는 방법

Question

여기 내 문제가 있습니다.

10 개의 콤보 상자가있는 사용자 폼이 있습니다. Select Case 대신 하나씩 Combobox를 하나씩 콤보 상자의 속성을 backcolor 또는 fontcolor와 같이 바꿀 수 있습니까? 그래서 예를 들면

:

Sub ChangeMultipleComboBoxes() 
Dim comboB as control 

For Each comboB In Me.Controls 
If TypeName(comboB) = "ComboBox" Then 
comboB.BackColor = vbRed 
End If 
Next comboB 

End Sub 

문제는 comboB 위해 나는 그것이 무엇이든지 배경색 또는의 변화를 위해 어떤 속성을 찾을 수 없습니다 것입니다.

누군가 나를 도와 줄 수 있습니까?

Answer 1

자이더 (Zaider)가 말했듯이 코드가 작동합니다. Control으로 선언 된 경우 ComboBox 특정 속성에 대한 IntelliSense를 얻지 못합니다. 코드에서 수행 한 것처럼 속성을 사용할 수는 있습니다. (예 : 모든 컨트롤, 공통 속성, Caption을 사용할 수 있습니다.)

모든 ComboBox 속성에 대한 인텔리을 얻기 위해, ComboBox로 Control을 재-선언이 결정 나면 그 그것이 무엇 :

Private Sub UserForm_Click() 
Dim ctl As MSForms.Control 
Dim comboB As MSForms.ComboBox 

    For Each ctl In Me.Controls 
     If TypeName(ctl) = "ComboBox" Then 
     're-declare it as a ComboBox 
     Set comboB = ctl 
      'Now you get IntelliSens 
      comboB.BackColor = vbRed 
     End If 
    Next ctl 
    End Sub