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

来源:互联网 发布:淘宝买车可靠吗 编辑:程序博客网 时间:2024/05/16 04:33

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


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

(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 = TrueEnd Sub
  运行


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

  那怎么办呢???

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


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

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

 comboUserLevel.ListIndex = 0

  完美!!!

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


0 0
原创粉丝点击