机房那些事儿---清空combobox

青旅半醒 2022-07-13 07:55 144阅读 0赞

**最近，在敲机房收费系统的添加用户时遇到了一丢丢问题。**

**![Center][]**

**本来是这样一个界面，当你运行的时候，本着为人民服务的原则，有如下三种情况需要清空框框中的内容：**

**（1）单击确认按钮，框框中有不符合规定的内容时；**

**（2）弹出对话框---成功添加用户，单击确定按钮后；**

**（3）单击清空按钮时。**

**这些代码其实原理都是一样的**

**以单击清空按钮时为例**

**加载窗体时添加如下代码**

**这里由于用户级别为固定的几项，并且只允许用户选择不能输入，所以我们没添加如下代码，并设置该combobox 的style属性为2-Dropdown List**

Private Sub Form_Load()
        comboUserLevel.AddItem "管理员"
        comboUserLevel.AddItem "操作员"
        comboUserLevel.AddItem "一般用户"
    End Sub

**扩展：combobox style属性**

**0-Dropdown combo(默认值）：称为下拉式组合框，包括一个下拉式列表和一个文本框，文本框接受文本输入**

**1-Simple combo：称为简单组合框，由一个文本框和一个标准列表框组成，列表框不是下拉式的**

**2-Dropdown List：称为下拉列表组合框，他在外观上和下拉式组合框一样，可以从下拉列表框选择选项，但不能接受文本输入**

**单击清空按钮时添加如下代码**

Private Sub cmdClear_Click()
        txtUserID.Text = ""
        comboUserLevel.Text = ""
        txtUserName.Text = ""
        txtPassWord.Text = ""
        txtPassWordSure.Text = ""
        cmdOK.Enabled = True
    End Sub

**运行**

**![Center 1][]**

**出现错误的原因是我们当时设置了comboUserLevel的style属性为2，只接受选择，不能接受文本输入，但是现在我们偏要赋空值给他，所以才会出错。**

**那怎么办呢？？？**

**智慧如我---其实我们不止可以在代码中给combobox赋值的，combobox还有一个List属性，我们在他的属性中添加如下内容**

**![Center 2][]  
大家千万不要忽略最上边的那个空格的一项，因为我们一会想要清空combobox就靠它啦！**

**将单击清空按钮的comboUserLevel一项改为以下就好了**

comboUserLevel.ListIndex = 0

**完美！！！**

**总结：在敲机房的时候，开始害怕极了，都说这个是自己敲的代码，很难的，就把自己牵制住了，其实它并没有那么难，我们就去做就好了。在过程中我们会遇到各种各样的问题，但是我们没必要害怕，解决问题的方法总比问题多。想我这次遇到的这个问题，其实就是控件掌握的不好，不清楚控件的属性，其实多用就好了，相信自己！**

[Center]: /images/20220713/528db001a18044d3957fe67a3af7c1ff.png
[Center 1]: /images/20220713/b274c5804ede4d01b27697d2f4dc2a49.png
[Center 2]: /images/20220713/2dd1b220fa4e4a30a4b92139037e70d1.png