主题：隐藏下拉按钮

Dim nms() As String = {"身份证号","班级","民族","父亲姓名","母亲姓名","户籍省","户籍县","户籍镇","父亲身份证号","母亲身份证号"}
For Each nm As String In nms
    e.Form.Controls(nm).Enabled = False
    e.Form.Controls(nm).BackColor = Color.Gainsboro
如果是ComboBox控件隐藏下拉按钮
        e.Form.Controls(nm).BaseControl.ShowDropDownButton = False
    End If

Dim nms() As String = {"身份证号","班级","民族","父亲姓名","母亲姓名","户籍省","户籍县","户籍镇","父亲身份证号","母亲身份证号"}
For Each nm As String In nms
    Dim c = e.Form.Controls(nm)
    c.Enabled = False
    c.BackColor = Color.Gainsboro
    If typeof c Is winform.combobox
        c.BaseControl.ShowDropDownButton = False
    End If   
Next

谢谢