请问怎么能知道通过遍历得到的控件是否是下拉列表

Question

For j = 0 To Me.Count - 1
  if Me.Controls(j).名称<>下拉列表 then
   Me.Controls(j).Height = (Screen.Width / 12000) * Me.Controls(j).Height
  then
Next
怎么能得到控件Me.Controls(j)是不是下拉列表？

Answer 1

if typeof is ... then

Answer 2

Dim obj As Control
For Each obj In Me.Controls
    If TypeOf obj Is ComboBox Then
       
    End If
 
Next

Answer 3

Dim obj As Control
For Each obj In Me.Controls
    If Not TypeOf obj Is ComboBox Then
        obj.Height = (Screen.Width / 12000) * obj.Height
    End If
 
Next