学生信息管理系统优化篇之combo

某一天一个简单的设想没想到却难了我很长时间，就是combo这个控件怎么才能使他不允许键入只能用下拉项。设想了几个方法：

1.就是用combo控件的style属性改为2-Dropdown List就可以让其只能下拉选项。但是有一个弊端就是只读模式，不能赋值。由于在之前需要赋值，所以这样行不通。如果不需要赋值的话，这种方法是可行的。

2.后来就想用代码改属性值得方法，在赋值后把控件属性改为2-Dropdown List。形如combo1.style = 2 ，但是发现这种并不能被识别，被识别成为了一个赋值语句然后出错了。

3.受人启发然后知道了用ASCII码值的方法让combo的值键入时始终为空值。

Private Sub comboCoursetype_KeyPress(KeyAscii As Integer)
    KeyAscii = 0
End Sub

4.在网上找到了一种变通的方法，就是只能输入下拉选项值。代码如下：

Private sub datacombo1_validate(cancel as boolean)
	If datacombo1.matxhedwithlist then
		Msgbox  ”OK”
		Msgbox datacombo1.boundtext
	Else
		Msgbox  ”ERR”
		Msgbox datacombo1.boundtext
	End if
End sub

总结：思考之后才能记得更牢，虽说好记性不如烂笔头，但是一些小知识是需要铭记的，不让会浪费许多时间。