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

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

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

Center

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

(1)单击确认按钮,框框中有不符合规定的内容时;

(2)弹出对话框—-成功添加用户,单击确定按钮后;

(3)单击清空按钮时。

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

以单击清空按钮时为例

加载窗体时添加如下代码

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

  1. Private Sub Form_Load()
  2. comboUserLevel.AddItem "管理员"
  3. comboUserLevel.AddItem "操作员"
  4. comboUserLevel.AddItem "一般用户"
  5. End Sub

扩展:combobox style属性

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

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

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

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

  1. Private Sub cmdClear_Click()
  2. txtUserID.Text = ""
  3. comboUserLevel.Text = ""
  4. txtUserName.Text = ""
  5. txtPassWord.Text = ""
  6. txtPassWordSure.Text = ""
  7. cmdOK.Enabled = True
  8. End Sub

运行

Center 1

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

那怎么办呢???

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

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

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

  1. comboUserLevel.ListIndex = 0

完美!!!

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

发表评论

表情:
评论列表 (有 0 条评论,243人围观)

还没有评论,来说两句吧...

相关阅读