学生优化(五)------“实时错误383” combox控件只读属性

背景:

在修改数据时,像性别班级之类的选择,只能从列表框中修改,不能自己输入,为了防止自己输入将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

通过添加这个就可以限制任意字符的输入

已标记关键词 清除标记
相关推荐
©️2020 CSDN 皮肤主题: 数字20 设计师:CSDN官方博客 返回首页