主题：隐藏下拉按钮

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