VB 关于Combox的问题

来源：百度知道 编辑：UC知道 时间：2024/06/09 03:40:20
请问：有没有办法控制在COMBOX中输入的字节数，比如只能在COMBOX中输入8个字节。

Private Sub combo1_KeyPress(KeyAscii As Integer)
if len(combo1.text)>=8 then
KeyAscii = 0
end if
End Sub

Private Sub Combo1_Change()
If LenB(StrConv(Combo1.Text, vbFromUnicode)) > 8 Then
Combo1 = Combo1.Tag
Else
Combo1.Tag = Combo1
Combo1.SelStart = Len(Combo1)
End If
End Sub

Private Sub Form_Load()
Combo1.Tag = 0
End Sub

三楼的代码我有试过,能控制输入8个字符,再输入也就无效,不会显示.
不错,学习了!

貌似组合框没有这样的属性…你可以用字符串函数：比如Len(string)求字符长度的…LenB(string)求字符字节数的…Left(string,n)取前几个字符的…这些都可以间接做到…在ComboBox的修改状态时启动监测…