背景:
在修改数据时,像性别班级之类的选择,只能从列表框中修改,不能自己输入,为了防止自己输入将combox控件的style属性变成 2-dropdown list 这个就好像将combox控件变成了下拉式列表。不能输入,但是代码中需要在combox控件中显示文本,就好像下面这个代码
Public Sub viewData()
txtSID.Text = mrc.Fields(0)
txtName.Text = mrc.Fields(1)
comboSex.Text = mrc.Fields(2)
DTPickerBorn.Value = mrc.Fields(3)
comboClassno.Text = mrc.Fields(4)
txtTel.Text = mrc.Fields(5)
DTPickerRu.Value = Format(mrc.Fields(6), "YYYY-MM-DD")
txtAddress.Text = mrc.Fields(7)
txtComment.Text = mrc.Fields(8)
End Sub
这个时候就开始报错了
这个时候由于我们需要在combox控件上显示数据,所以我们需要类似于文本框,因此我们把style的属性变成0-Dropdown combo,这样就可以更改了,但是我们又不能在修改时让他手动输入数据所以我们通过keypress事件来限制它的输入
Private Sub comboCoursetype_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub
通过添加这个就可以限制任意字符的输入