为了限定combobox的长度,我是这样做的
    Select Case KeyAscii
        Case 13
        Case 8
        Case Else
            If Len(cmbJyouken1.Text) >= 2 Then
                KeyAscii = 0
            End If
    End Select
可这样一做的话,当光标选中combobox中的内容的话,那么我只能用backspace或delete去除先前我输的内容,而不能通过打其它的内容,然后覆盖,怎么才能覆盖呵

解决方案 »

  1.   

    怎么不明白了拉!
    我的combobox是可以写数据的,但此数据只有2位呵!
    我要限制combobox位数为两位
    可这段程序运行后,出现这个问题,当我把输入的数据全部选中后,就不能再输数据了。
    怎么恢复呵!
      

  2.   

    将条件改为“Len(cmbJyouken1.Text) >= 2 And cmbJyouken1.SelLength = 0 ”即可!代码如下:
    Select Case KeyAscii
            Case 13
            Case 8
            Case Else
                If Len(cmbJyouken1.Text) >= 2 And cmbJyouken1.SelLength = 0 Then
                    KeyAscii = 0
                End If
    End Select